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

 

  Fórum

  Visual Basic .Net
Voltar
Autor Assunto:  Format no Vb.Net
®ogerVB
OSASCO
SP - BRASIL
ENUNCIADA !
Postada em 20/05/2005 12:58 hs            
Olá!!!
Estou tentado migrar uma função do VB6.0 para o VB.Net, mas estou tendo um probleminha, pois a função que eu uso formata o campo para o CPF ( format(campo, "@@@.@@@.@@@-@@"), mas no VB.Net não está funcionando, não da erro nem nada, apenas não funciona...
Como posso fazer isso no .Net???
Obirgado!!!
   
Fabio Rocha
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/06/2005 10:11 hs            
Uma boa solução é essa:
 

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

' Máscara para CPF

Dim KeyAscii As Byte = Convert.ToByte(e.KeyChar)

If KeyAscii <> 8 Then

If KeyAscii > 47 And KeyAscii < 58 Then

e.Handled = False

If Len(TextBox1.Text) = 3 Then

TextBox1.Text = TextBox1.Text & "."

TextBox1.SelectionStart = Len(TextBox1.Text)

Else

If Len(TextBox1.Text) = 7 Then

TextBox1.Text = TextBox1.Text & "."

TextBox1.SelectionStart = Len(TextBox1.Text)

Else

If Len(TextBox1.Text) = 11 Then

TextBox1.Text = TextBox1.Text & "-"

TextBox1.SelectionStart = Len(TextBox1.Text)

End If

End If

End If

Else

e.Handled = True

End If

End If

End Sub

 

Espero ter ajudado!
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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