FORMATACAO NA CAIXA DE TEXTO

JPAULO101 25/01/2010 16:40:41
#332801
Opa! Galera belelza. Estou eu com uma pequena dúvida com formatação de texto. é o seguinte tenho uma caixa de texto onde digito o nome do arquivo, gostaria de saber se têm como ao digitar na caixa de texto e clicar no botão para executar uma ação acrescentasse os zeros a esquerda.

Exemplo:

Se digitar 1 ficar na caixa de texto 0000001
Se digitar 11 ficar na caixa de texto 0000011
Se digitar 123 ficar 0000123
Se digitar 1234 ficar 0001234
E assim a cada número a mais digitado vai diminuindo os zeros.

Agradeço ajuda de todos.

Abraços!!
ADHEL 25/01/2010 16:58:04
#332803
Private Sub Command1_Click()
Text1.Text = Format(Text1.Text, [Ô]0000000[Ô])

End Sub

Configure o maxlength do commandbutton para a quantidade dezeros que desejar.
ADHEL 25/01/2010 17:03:38
#332804
DESCULPE

Configure o maxlength do TEXTBOX para a quantidade de zeros que voce desejar
JPAULO101 25/01/2010 17:31:51
#332806
Olá ADHEL, caso contiver alguma letra junto com o número por exemplo 1234HP01, com seria a formatação.


Obrigado.
EDERMIR 25/01/2010 21:48:14
#332821
Citação:

:
Private Sub Command1_Click()
Text1.Text = Format(Text1.Text, [Ô]0000000[Ô])

End Sub

Configure o maxlength do commandbutton para a quantidade dezeros que desejar.



Imaginando que você que completar com zeros a esquerda SEMPRE:

O MAXLENGTH está com 15

text1.text = right([Ô]000000000000000[Ô] & text1.text,15)

Neste caso aparecerá: 00000001234HP01
EDERMIR 25/01/2010 21:54:19
#332822 Resposta escolhida
Para uma forma mais [Ô]limpa[Ô], configurando o MAXLENGTH para o tamanho necessário:

text1.text = iif(text1.maxlength=0,trim(text1.text),Right(String(text1.maxlength, [Ô]0[Ô]) & trim(text1.text), text1.maxlength))


Neste caso se o MAXLENGTH estiver com ZERO, o valor de TEXT1.TEXT não é alterado.
TECLA 25/01/2010 22:20:35
#332823
Tente assim no evento CHANGE do TEXTBOX:

Private Sub Text1_Change()
Text1 = Format(Text1, [Ô]00000000[Ô])
Text1.SelStart = Len(Text1)
If Len(Text1) > 8 Then Text1 = Right(Text1, 8)
If Len(Text1) < 8 Then Text1 = String(8 - Len(Text1), [Ô]0[Ô]) & Text1
End Sub
JPAULO101 26/01/2010 09:38:33
#332840
Valeu pessoal pela ajuda consegui resolver aqui. Obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar