24/08/2006, 07:52
|
| |
| Por falta de variantes no será... jejeje
Public Function SoloNumeros(ByVal KeyAscii As Integer) As Integer
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
If InStr("0123456789.,-", Chr(KeyAscii)) = 0 Then
SoloNumeros = 0
Beep
Else
SoloNumeros = KeyAscii
End If
If KeyAscii = 8 Then SoloNumeros = KeyAscii
End Function |