FORMATANDO TEXTBOX

IRENKO 19/09/2012 09:06:08
#409942
Ola pessoal, estou precisando de uma funcao para formatar um texto no LOSTFOCUS de um TEXTBOX, sendo:

2222222222

passar para
22222222-22

independente do tamanho do texto colocar o [Ô]-[Ô] antes dos dois ultimos numeros.

Agradeço as sugetões.
MARCELO.TREZE 19/09/2012 09:27:10
#409943 Resposta escolhida
assim

Private Sub Text1_LostFocus()
Dim T As String
T = Text1.Text
Text1.Text = Format(T, String(Len(T) - 2, [Ô]@[Ô]) & [Ô]-@@[Ô])
End Sub
IRENKO 19/09/2012 09:36:03
#409947
Valeu Marcelo! Isso mesmo q eu precisava!
MARCELO.TREZE 19/09/2012 09:42:38
#409950
como sempre colega disponha.
IRENKO 19/09/2012 09:55:44
#409951
Marcelo, aproveitando de sua boa vontade, hehehe.... como ficaria essa rotina como uma função generica? Para uso em varios textbox para o mesmo formato?
IRENKO 19/09/2012 10:08:16
#409956
tentei isso mas não funcionou!

Private Function Mascara(ByRef Controle As Object)
Dim T As String
T = Controle
Controle = Format(T, String(Len(T) - 2, [Ô]@[Ô]) & [Ô]-@@[Ô])
End Function
MARCELO.TREZE 19/09/2012 10:43:40
#409960
tem que ser string


Private Function Mascara(ByRef Controle As Object) As String
Dim T As String
T = Controle
Mascara = Format(T, String(Len(T) - 2, [Ô]@[Ô]) & [Ô]-@@[Ô])
End Function


para usar

Private Sub Text1_LostFocus()
Text1.Text = Mascara(Text1)
End Sub
IRENKO 19/09/2012 10:58:18
#409962
OK!! Agora sim!! Agradecido mais uma vez!
Tópico encerrado , respostas não são mais permitidas
Voltar