MASCARAR O TEXT PARA USO

USUARIO.EXCLUIDOS 18/04/2004 08:23:05
#21158
Olá pessoal;

Eu gostaria de saber como faço pra mascarar o text de modo que eu possa utilizá-lo como o Maskedit.

Obrigado.

Mestrix[S26]
CAJU 22/04/2004 10:39:33
#21886 Resposta escolhida
Private Sub Text1_GotFocus()
Text1.Text = Replace(Text1.Text, "/", "")
End Sub

e no lostfocus como vc fez

tranqà¼ilo???
CAJU 22/04/2004 10:40:21
#21887
Private Sub Text1_GotFocus()
Text1.Text = Replace(Text1.Text, "/", "")
End Sub

Private Sub Text1_LostFocus()
Text1.Text = CDate(Format(Text1.Text, "##/##/####"))
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar