22/09/2014, 01:40
|
| | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 4 meses Puntos: 29 | |
Respuesta: Funcion para caracteres validos y mayuscula Usa el evento keypress
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(1, "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
__________________ No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |