Máscara no CPF em uma TextBox

[michel008 0]

Pessoal,

 

Estou com problemas em incluir máscara no CPF, uso um banco de dados no Access e estou desenvolvendo um programa em VB 2010.

 

Eu até consigo colocar a máscara na textbox do CPF, mas o problema é que depois que digito os números o cursor do mouse pára e não consigo mover nem com o Tab nem com o mouse.....

 

Estou usando esse código:

 

txtTexto.MaxLength = 14

If Len(txtTexto.Text) = 3 Then

txtTexto.Text = txtTexto.Text & "."
txtTexto.SelectionStart = Len(txtTexto.Text) + 1

ElseIf Len(txtTexto.Text) = 7 Then

txtTexto.Text = txtTexto.Text & "."
txtTexto.SelectionStart = Len(txtTexto.Text) + 1

ElseIf Len(txtTexto.Text) = 11 Then

txtTexto.Text = txtTexto.Text & "-"
txtTexto.SelectionStart = Len(txtTexto.Text) + 1

End If

 

Me ajudem a resolver esse problema.

[KhaosDoctor 242]

Existe um controle que chama MaskedTextbox, isso evita de você ter que escrever todos esses códigos ai, basta você colocar a máscara e ele faz tudo sozinho.

[michel008 0]

Já tentei com MaskedTextbox também... mas não dá certo.

 

O "TAB" não funciona e o cursor fica preso não vai mais pra lugar nenhum.

Existe um controle que chama MaskedTextbox, isso evita de você ter que escrever todos esses códigos ai, basta você colocar a máscara e ele faz tudo sozinho.

 

Já tentei com MaskedTextbox também... mas não dá certo.

 

O "TAB" não funciona e o cursor fica preso não vai mais pra lugar nenhum.

[GGerminiani 0]

    Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus

If Len(TextBox1.text) = 14 then 'CNPJ'

TextBox1.text = MID(TextBox1.text,1,2) & "." & MID(TextBox1.text,3,3) & "." & MID(TextBox1.text,6,3) & "/" & MID(TextBox1.text,9,4) & "-" & MID(TextBox1.text,13,2)

ElseIf Len(TextBox1.text) = 11 then 'CPF'

TextBox1.text = MID(TextBox1.text,1,3) & "." & MID(TextBox1.text,4,3) & "." & MID(TextBox1.text,7,3) & "-" & MID(TextBox1.text,10,2)

End if

    End Sub

Veja se resolve

[KhaosDoctor 242]

O MaskedTextBox é como um textbox normal, algo que você fez deu conflito.

[michel008 0]

 

    Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus

If Len(TextBox1.text) = 14 then 'CNPJ'

TextBox1.text = MID(TextBox1.text,1,2) & "." & MID(TextBox1.text,3,3) & "." & MID(TextBox1.text,6,3) & "/" & MID(TextBox1.text,9,4) & "-" & MID(TextBox1.text,13,2)

ElseIf Len(TextBox1.text) = 11 then 'CPF'

TextBox1.text = MID(TextBox1.text,1,3) & "." & MID(TextBox1.text,4,3) & "." & MID(TextBox1.text,7,3) & "-" & MID(TextBox1.text,10,2)

End if

    End Sub

Veja se resolve

 

 

GGerminiani,

 

Funcionou!!!!! Agora o TAB não fica mais preso na textbox, fiz os testes e agora sim funcionou perfeitamente.

 

Muito obrigado mesmo!!!!!!!!

 

Valeu.