mascara para cpf e cnpj no mesmo textbox


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: mascara para cpf e cnpj no mesmo textbox

LUIZ PEDRO

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 31/03/2010 18:14 hs

Galera

Gostaria de saber como faço para criar mascaras para o cpf e o cnpj no mesmo textbox ?

xcaverna

SERRINHA
BA - BRASIL

ENUNCIADA !

Postada em 31/03/2010 22:14 hs

olha esse código, é criado por mim, qualquer dúvida é só falar.

http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=5737

LUIZ PEDRO

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 01/04/2010 00:20 hs

Ola amigo

Sinceramente nao entendi, nao tem outro exemplo mais simples, eu so quero que quando digitar um cpf no textbox ele reconheça que um cpf e aplique a mascara correta e o mesmo como cnpj.

Perci!

MATAO
SP - BRASIL

ENUNCIADA !

Postada em 01/04/2010 09:32 hs

Você poderia tentar fazer com que quando der um ENTER na TextBox, verificar o tamanho (LEN) da Textbox, se tamanho for 14, aplica-se a máscara de CPF, se for 18, então aplica-se a máscara do CNPJ.

Mais ou menos assim:

Private Tex1_KeyPress(KeyAscii as Integer)

If KeyAscii = vbKeyRetyrn Then

If Len(Text1.Text) = 14 Then

' comando que coloca a máscara na TextBox (CPF)

Elseif Len(Text1.Text)=18 Then

' comando que coloca a máscara na TextBox (CNPJ)

Else

' mansagem avisando que o campo é inválido

Endif

End Sub

Veja se resolve o seu caso.

Até mais.

xcaverna

SERRINHA
BA - BRASIL

ENUNCIADA !

Postada em 01/04/2010 09:40 hs

mais simples ?

o código tá pronto só é copiar e colar.

LUIZ PEDRO

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 01/04/2010 11:11 hs

Ola Perci

Estou fazendo desta forma, mas so esta verificando o cpf, o cnpj nao.

Private Sub txtCpfCnpj_KeyPress(KeyAscii As Integer)

    Dim X As Integer

        If KeyAscii = vbKeyRetyrn Then
            If Len(txtCpfCnpj.Text) = 14 Then

                X = Len(txtCpfCnpj.Text)

                If X = 3 Then txtCpfCnpj.Text = txtCpfCnpj.Text + ".": txtCpfCnpj.SelStart = Len(txtCpfCnpj.Text)
                If X = 7 Then txtCpfCnpj.Text = txtCpfCnpj.Text + ".": txtCpfCnpj.SelStart = Len(txtCpfCnpj.Text)
                If X = 11 Then txtCpfCnpj.Text = txtCpfCnpj.Text + "-": txtCpfCnpj.SelStart = Len(txtCpfCnpj.Text)
                If X > 14 Then MsgBox "Formato inválido de CPF": txtCpfCnpj.Text = ""

    ElseIf Len(txtCpfCnpj.Text) = 18 Then
             If Len(txtCpfCnpj.Text) = 18 Then

            X = Len(txtCpfCnpj.Text)

            If X = 2 Then txtCpfCnpj.Text = txtCpfCnpj.Text + ".": txtCpfCnpj.SelStart = Len(txtCpfCnpj.Text)
            If X = 6 Then txtCpfCnpj.Text = txtCpfCnpj.Text + ".": txtCpfCnpj.SelStart = Len(txtCpfCnpj.Text)
            If X = 10 Then txtCpfCnpj.Text = txtCpfCnpj.Text + "/": txtCpfCnpj.SelStart = Len(txtCpfCnpj.Text)
            If X = 10 Then txtCpfCnpj.Text = txtCpfCnpj.Text + "-": txtCpfCnpj.SelStart = Len(txtCpfCnpj.Text)
            If X > 18 Then MsgBox "Formato inválido de CPF": txtCpfCnpj.Text = ""

    ElseIf Len(txtCpfCnpj.Text) > 18 Then
        Else
             MsgBox " Campo no formato inválido, Redigite ! ", vbExclamation + vbOKOnly

    End If
        End If
            End If

Página(s): 1/2 PRÓXIMA »