VBWEB - Máscara de CPF no TextBox

USUÁRIO: SENHA:

SALVAR LOGIN ?


	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