TECLADO

USUARIO.EXCLUIDOS 09/12/2003 23:21:00
#440 Resposta escolhida

fácil...

tem de utilizar um código no evento Keypress de seu controle:

Ex:
'--- Maíusculas
Private Sub txtNome_Keypress(KeyAscii as integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

'--- Minúsculas
Private Sub txtNome_Keypress(KeyAscii as integer)

KeyAscii = Asc(LCase(Chr(KeyAscii)))

End Sub

Feito amigo!

Abraços,
Giovanni B. Machado