Hola a todos amigos taringueros, despues de mi gran ausencia por el trabajo, jejejeje, decidí crear un pequeño post que a lo mejor le servirá a muchos practicante de la programación como yo. Ya que estoy iniciando en el mundo de la programación les traigo el codigo siguiente que es para validar un textbox o caja de texto para que solo acepte numeros...
ok. empecemos, supongamos que tenemos un textbox el cual se llamara text1, llamaremos a la siguiente funcion, keypress y escribimos el siguiente codigo:
Private Sub Text1_KeyPress(KeyAscii As Integer)
strvalid = "1234567890"
KeyAscii = Asc(Chr(KeyAscii))
If (KeyAscii > 10) Then
If InStr(strvalid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub
Ahora solo presionen F5 e intenten escribir palabras en la caja de texto, jijijijii, fácil pero se me dificulto encontrar una forma de hacer esto, así que adelante con el mundo de la programación.
Bueno amigos eso ha sido todo por hoy.
David_91
ok. empecemos, supongamos que tenemos un textbox el cual se llamara text1, llamaremos a la siguiente funcion, keypress y escribimos el siguiente codigo:
Private Sub Text1_KeyPress(KeyAscii As Integer)
strvalid = "1234567890"
KeyAscii = Asc(Chr(KeyAscii))
If (KeyAscii > 10) Then
If InStr(strvalid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub
Ahora solo presionen F5 e intenten escribir palabras en la caja de texto, jijijijii, fácil pero se me dificulto encontrar una forma de hacer esto, así que adelante con el mundo de la programación.
Bueno amigos eso ha sido todo por hoy.
David_91