¿Solo numeros en un texbox?
Código PHP:
Function SoloNumeros(ByVal KeyAscii As Integer) As Integer
' Intercepta un codigo ASCII recibido admitiendo solamente
' caracteres numéricos, además:
' cambia el punto por una coma
' acepta el signo -
' deja pasar sin afectar si recibe tecla de borrado o return
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
If InStr("0123456789.,-", Chr(KeyAscii)) = 0 Then
SoloNumeros = 0
Else
SoloNumeros = KeyAscii
End If
' teclas especiales permitidas
If KeyAscii = 8 Then SoloNumeros = KeyAscii borrado atras
End Function
Private Sub txtvalor_KeyPress(KeyAscii As Integer)
KeyAscii = SoloNumeros(KeyAscii)
End Sub