mascara

[Fauze 0]

Olá Pessoal,

 

Alguém sabe se é possível num campo textbox, na medida que for digitando ( se for CNPJ por exemplo ) ir inserindo os pontos, a barra e o traço ?

 

Se for possível poderiam mandar um exemplo ?

[Claudio Neto 3]

Fácil, se pode utilizar umas maskedbox que já cria a máscara sozinha, ou utilizar o evento keypress.

 

Vai um exemplo que utilizo para ceps:

 

Private Sub txtCEP_KeyPress(KeyAscii As Integer)

 

If KeyAscii < 48 Or KeyAscii > 57 Then

If KeyAscii <> 8 Then

KeyAscii = 0

End If

Else

If Len(txtCEP.Text) = 5 Then

txtCEP.Text = txtCEP.Text & "-"

txtCEP.SelStart = Len(txtCEP.Text)

elseif len(txtcep.text) = 9 then

keyascii = 0

End If

End If

 

End Sub

 

O que não entender diz ai que te ajudo.

[Fauze 0]

Valeu Cláudio,

 

É isso mesmo que eu precisava.

 

Deus o abençoe !