|
|
Postada em 16/01/2006 15:50 hs
Eae! Como faço pra colocar uma máscara em um TextBox, ex: 000.000.000-00 (CPF) Obrigadio e Falowwss!! |
|
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/01/2006 16:04 hs
Private Sub txtcpf_KeyPress(KeyAscii As Integer)
'formatacao do cpf
If InStr(1, "0123456789-" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Jesus Cristo é O Senhor!!!
|
|
|
|
|
|
Postada em 16/01/2006 16:05 hs
olha vc pode fazer isso no evento lost_focus do cotrole Private Sub Text1_LostFocus()
Text1 = Format(Text1, "@@@.@@@.@@@-@@")
End Sub t+ |
|
|
|
|
|
Postada em 16/01/2006 16:10 hs
Segue mais um : Private Sub Text1_Change()
Dim x As Integer
x = Len(Text1.Text)
If x = 3 Then Text1.Text = Text1.Text + ".": Text1.SelStart = Len(Text1.Text)
If x = 7 Then Text1.Text = Text1.Text + ".": Text1.SelStart = Len(Text1.Text)
If x = 11 Then Text1.Text = Text1.Text + "-": Text1.SelStart = Len(Text1.Text)
If x > 14 Then MsgBox "Formato inválido de CPF": Text1.Text = ""
End Sub
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
|
Postada em 16/01/2006 16:39 hs
|
|
|
|
Sopmac
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/01/2006 17:17 hs
pessoal, mas quando for necessário consultar no BD e o campo referente a mask estiver em branco no banco de Dados, ele não ierá gerar um erro porque a mask não aceitaria valor nulo? - Isto ocorreu comigo.
Equipe Sopmac
|
|
|
|
