22/09/2014, 01:40
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 6 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! |