Ver Mensaje Individual
  #5 (permalink)  
Antiguo 09/07/2004, 13:07
boutroux
 
Fecha de Ingreso: marzo-2004
Mensajes: 10
Antigüedad: 21 años
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