09/07/2004, 13:07
|
| | | Fecha de Ingreso: marzo-2004
Mensajes: 10
Antigüedad: 21 años, 1 mes Puntos: 0 | |
| Sub Text1_Keypress(KeyAscii As Integer)
'si no es digito y es distinto de la tecla para borrar no haga nada
If Not IsNumeric(Chr(KeyAscii)) and keyascii <> 8 Then
KeyAscii = 0
End If
End Sub
Última edición por boutroux; 09/07/2004 a las 13:10 |