Formato de texto en VB
Quisiera por favor que me dijeras como yo puedo darle un objeto texto para que solo me acepte números nada más.
Gracias
Gracias
1 Respuesta
Respuesta
1
Lo que dices no es muy difícil de hacer; en el evento keypress introduce lo siguiente:
EJ:
If Keyascii < 48 and keyascii > 57 then
keyascii = 0
End if
Simplemente si pulso una tecla que no es un numero se ejecuta el if y se borra
EJ:
If Keyascii < 48 and keyascii > 57 then
keyascii = 0
End if
Simplemente si pulso una tecla que no es un numero se ejecuta el if y se borra
Hola. Estuve probando, los comandos que me enviaste, y noto dos cosas: la primera es que si pongo el conector and no me funciona. Ahora si le pongo or si funciona.
Lo segundo es que este método no me permite usar el "Back Space" para devolverme en caso de que cometa un error al escribir el numero, pues solo puedo escribir número.
Yo te pregunto, existe otra forma que me permita lograr lo que yo quiero.
Gracias
Lo segundo es que este método no me permite usar el "Back Space" para devolverme en caso de que cometa un error al escribir el numero, pues solo puedo escribir número.
Yo te pregunto, existe otra forma que me permita lograr lo que yo quiero.
Gracias
Me parece que me confundí donde pone:
If Keyascii < 48 and keyascii > 57 then
deberia de poner
If Keyascii < 48 or keyascii > 57 then
Este código se basa en cuando se pulsa una tecla se pasa el código ascii de la tecla, también se pueden comprobar otras teclas como el backspace
Ej:
Select case keyascii
case 48 to 57 'es un numero
case 32 'es un espacio
case else 'ninguna de las anteriores
keyascii = 0 'anular tecla
end select
También tienes otro control más efectivo para hacer esto, es el maskedit
If Keyascii < 48 and keyascii > 57 then
deberia de poner
If Keyascii < 48 or keyascii > 57 then
Este código se basa en cuando se pulsa una tecla se pasa el código ascii de la tecla, también se pueden comprobar otras teclas como el backspace
Ej:
Select case keyascii
case 48 to 57 'es un numero
case 32 'es un espacio
case else 'ninguna de las anteriores
keyascii = 0 'anular tecla
end select
También tienes otro control más efectivo para hacer esto, es el maskedit