FORMATACAO
Pessoal, digito um texto em um textbox, exemplo:
AB21875
no LostFocus do text, como passo para:
AB-21875
AB21875
no LostFocus do text, como passo para:
AB-21875
Imaginando que os dois primeiros caracteres serão separados dos demais:
text1.text = left(text1.text,2) & [Ô]-[Ô] & right(text1.text,len(text1.text)-2)
text1.text = left(text1.text,2) & [Ô]-[Ô] & right(text1.text,len(text1.text)-2)
bom mais simples ainda
Text1.Text = Format(Txet1.Text,[Ô]@@@-@@@@[Ô])
valeu pessoal!
Tópico encerrado , respostas não são mais permitidas