USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Controles Intrínsecos (Padrão))

Título da Dica:  Máscara de CPF no TextBox
Postada em 27/6/2007 por JOM            
Private Sub Text1_Change()
If Len(Text1) = 3 Then
Text1 = Text1 + "."
Text1.SelStart = 5
End If
If Len(Text1) = 7 Then
Text1 = Text1 + "."
Text1.SelStart = 9
End If
If Len(Text1) = 11 Then
Text1 = Text1 + "-"
Text1.SelStart = 14
End If

End Sub

obs: ponha o valor 14 na propriedade maxlength
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página