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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Digitar em minúsculo
¨Hennyere¨
Pontos: 2843
SALVADOR
BA - BRASIL
Postada em 22/03/2006 00:22 hs         
Como fazer p que sempre q entrar em um determinado campo de texto, mesmo que o Caps Lock esteja ligado, os caracteres fiquem em minúsculo? Tem que ser na ação "Ao digitar".
 
Grato
     
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 22/03/2006 06:46 hs            
Private Sub Text1_Change()
    Me.Text1.Text = LCase(Me.Text1.Text)
End Sub
     
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 22/03/2006 06:59 hs            
ou pode ser assim tb:
Private Sub Text1_Change()
    Me.Text1.Text = StrConv(Me.Text1.Text, vbLowerCase)
End Sub
     
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 22/03/2006 09:51 hs            

Pode ser também no KeyPress

 

Private Sub Text1_KeyPress(KeyAscii As Integer)
   KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub

     
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 22/03/2006 11:51 hs            
no keypress nao funcionou nao!!
     
¨Hennyere¨
Pontos: 2843
SALVADOR
BA - BRASIL
Postada em 22/03/2006 23:33 hs         
funcionou no keypress. valeu!
     
Página(s): 1/1    

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