Visual Basic - Permitir solo numericos en campo de texto
Códigos Visual Basic
Permite solo que se ingresen numeros en un campo de texto de un formulario.
Tutores.org
Mostrando Codigo - Visual Basic
EXPLICACION
Tenemos que crear un formulario y un campo de texto que lo llamaremos Text1
CODIGO
// Codigo ofrecido por Tutores.org
- Private Sub Text1_KeyPress(KeyAscii As Integer)
- If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
- End Sub
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Permitir solo numericos en campo de texto" href="http://www.tutores.org/codigo/1597/" target="_blank">Permitir solo numericos en campo de texto</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Permitir solo numericos en campo de texto" href="http://www.tutores.org/codigo/1597/" target="_blank">Permitir solo numericos en campo de texto</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Sin definirSin definir
1
5
hola solo una cosa yo intente con ese codigo y si funciona pero hya un problem despues de escribir el numero no me permite borrarlo
Comentario usuario
Ronal
15-11-2008 17:46:52
4
5
hola mi nombre es ronal soy un principiante en esto de visuAL BASIC ME DEJARON UN TRABAJO DONDE ME PIDEN QUE CUANDO INGRESE UN NUMERO PAR EN UNA CAJA DE TEXTO ME BOTE UN MENSAJE QUE DIGA PAR Y DE IGAUL MANERA CUANDO INGRESO UN NUMERO IMPAR COMO PUEDO CODIFICARLO GRACIAS
Comentario usuario
Guess
19-05-2008 10:26:26
5
5
Puedes modificar el codigo si quieres permitir presionar la tecla de backspace (para borrar) de la siguiente manera:
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
8 = backspace
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
8 = backspace
Comentario usuario
Yessus
15-09-2008 12:58:21
1
5
Excelente el aporte... me fue muy útil...gracias!!!
Suerte y un abrazo.
Suerte y un abrazo.
Comentario usuario
fer
10/08/2004 15.25.59
1
5
pero tambien el el textbox podrias ponerIf IsNumeric(txt1.Text) Thenelsemsgbox " solo numeros"end if
Comentario usuario
ANDRES MATERONANDRES MATERON
4
5
EXCELENTE SOLUCION MUY BUENA ESA OPCION LA PROBE Y FUNCIONO AL PELO... GRACIAS.
Comentario usuario
mtmmtm
3
5
tengo claro como hacer codigo, lo que no tengo en claro es como ordenarlo...quiero saber como hacerlo y como encontrar informacion para guiarme
INSERTAR COMENTARIO