mªjose
03 de Diciembre del 2003

Hola a todos

¿Como se podria hacer si lo que quieres que se escriba en el textbox es de tipo numerico y no permita introducir ninguna letra,solo numeros?

¿Y como se podria hacer para poner un formato? Es que es para introducir el DNI y que no te deje el programa si quieres introducir letras. No se si me explico.


Un saludo

Baltasar
03 de Diciembre del 2003

con el evento Keypress:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

de ese modo sólo puedes usar números (el valor 8 es para el borrado hacia la izquierda). Si quisieras permitir la introducción de una letra al principio o al final, juega con la propiedad selstart.

Saludos

Jose Moure Moure
03 de Diciembre del 2003

Hola MªJose,yo lo hago de la siguiente forma:
En el evento KeyPress pongo
If InStr("0123456789", Chr(keyascii)) = 0 Then keyascii = 0
end if

tiradofrank
03 de Diciembre del 2003

prueba con esta rutina, es muy sencilla y te la doy a modo de ejemplo, solo tienes que recortarla y pegarla a ver si te funciona:

If IsNumeric(Text1.Text) Then
MsgBox "es número"
Else
MsgBox "no es número"
End If

claro en ves del mansaje "es numero" viene tu rutina de procesamiento, y en ves de el msgbox de no es numero viene la restriccion que tu le quieras poner a tu programa, si quieres lo mandas a terminar o simplemente a esperar que inserten un numero.
espero que te sirva......
saludos.