chipujo
25 de Julio del 2003

Hola espero que me puedan ayudar lo que pasa es que quiero restringir el textbox donde solo se puedan escribir datos numericos
Y pues no se el codigo si me pueden a yudar les estaria muy agradecido

ccortes
25 de Julio del 2003

en un modulo

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
If KeyAscii = 13 Then SoloNumeros = KeyAscii ' return End Function
End Function

luego en el form

Private Sub txt1_KeyPress(KeyAscii As Integer)
KeyAscii = SoloNumeros(KeyAscii)
End Sub

perroka
25 de Julio del 2003

Ok. y si pones :
Solonumeros=9
en vez de
Solonumeros=0
Cuando la tecla pulsada es distinta de un número, emite un "bip"