Ver Mensaje Individual
  #5 (permalink)  
Antiguo 27/09/2008, 06:24
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses
Puntos: 19
Respuesta: Mayusculas en VB 6.0

Cita:
Iniciado por Avellaneda Ver Mensaje
Código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase))
End Sub
Procesamiento de mas...

Algo mas simple y facil

Código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub