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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  MÁSCARA TEXTBOX!
Skorpiao
BELÉM
PA - BRASIL
ENUNCIADA !
Postada em 16/01/2006 15:50 hs            
Eae!
Como faço pra colocar uma máscara em um TextBox, ex: 000.000.000-00 (CPF)
Obrigadio e Falowwss!!
   
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 16/01/2006 16:04 hs            
Private Sub txtcpf_KeyPress(KeyAscii As Integer)
'formatacao do cpf
 If InStr(1, "0123456789-" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Jesus Cristo é O Senhor!!!
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 16/01/2006 16:05 hs            
olha vc pode fazer isso no evento lost_focus do cotrole
 
Private Sub Text1_LostFocus()
Text1 = Format(Text1, "@@@.@@@.@@@-@@")
End Sub
 
t+
   
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 16/01/2006 16:10 hs            
Segue mais um :
Private Sub Text1_Change()
Dim x As Integer
x = Len(Text1.Text)
If x = 3 Then Text1.Text = Text1.Text + ".": Text1.SelStart = Len(Text1.Text)
If x = 7 Then Text1.Text = Text1.Text + ".": Text1.SelStart = Len(Text1.Text)
If x = 11 Then Text1.Text = Text1.Text + "-": Text1.SelStart = Len(Text1.Text)
If x > 14 Then MsgBox "Formato inválido de CPF": Text1.Text = ""
End Sub
 
 

"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
Armando Gioia
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 16/01/2006 16:39 hs            
ou usa o maskbox...
   
Sopmac
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 16/01/2006 17:17 hs            
pessoal, mas quando for necessário consultar no BD e o campo referente a mask estiver em branco no banco de Dados, ele não ierá gerar um erro porque a mask não aceitaria valor nulo? - Isto ocorreu comigo.

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


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