28/08/2004, 15:07
|
 | | | Fecha de Ingreso: abril-2002 Ubicación: Morelia México
Mensajes: 356
Antigüedad: 22 años Puntos: 1 | |
| Por cualquier cosa aqui te pongo el código anterior libre de comentarios
Private Sub TNumeros_KeyPress(KeyAscii As Integer)
KeyAscii = Numeros(KeyAscii)
End Sub
Public Function Numeros(Tecla As Integer) As Integer
Dim strValido As String
strValido = "0123456789"
If Tecla > 26 Then
If InStr(strValido, Chr(Tecla)) = 0 Then
Tecla = 0
End If
End If
Numeros = Tecla
End Function
__________________
Abraham Velasco
Usuario # 516 en los Foros del Web.
El hombre no vale por lo que sabe, sino por lo que transmite
C'est parce qu'il y a un Dieu que nous sommes libres |