|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Controles Intrínsecos (Padrão))
|
|
 |
Título da Dica: Forçando Caracteres Maiúsculos ou Minúsculos em um TextBox
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
milinha_meiga@hotmail.com
Para facilitar a digitação de caracteres maiúsculos ou minúsculos, independente do pressionamento de Caps Lock ou do Shift, converta cada caracter no evento KeyPress.
'''[CODE language=VB]
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Converter p/ maiúsculos
KeyAscii = Asc(UCase(Chr(KeyAscii)))
'Converter p/ maiúsculos
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub
'''[/CODE]
|
|
|
|
|
