Cómo limitar un cuadro de texto a números Sólo en Visual Basic 6.0

Los cuadros de texto se usan principalmente para recibir información de los usuarios, o para mostrar el texto, ya sea previamente programada, o de una fuente de base de datos. En Visual Basic 6.0, el control "Cuadro de texto" se utiliza para dibujar un cuadro de texto en un formulario Windows. las propiedades del control se pueden ajustar en función de las necesidades de los usuarios. Por ejemplo, se puede establecer un cuadro de texto o editable de sólo lectura, con diferente color de fondo, o con barras de desplazamiento. También es posible limitar el tipo de entrada de texto que puede aceptar. Aprende a crear un programa en Visual Basic 6.0 que limita una entrada de cuadro de texto a sólo números.

Instrucciones

1 Cargar el entorno de Visual Basic 6.0, haga clic en el icono de acceso directo del programa desde el escritorio, o seleccionar "Microsoft Visual Basic 6.0" en el menú "Inicio" en su computadora.

2 Seleccione "EXE estándar" en el cuadro de diálogo "Nuevo proyecto", haga clic en el botón "Abrir".

3 Agregar un cuadro de texto en el formulario haciendo clic en el control "Cuadro de texto" de la "Caja de Herramientas", luego dibujar el tamaño de la caja de texto deseado. Asegúrese de que sea suficientemente ancha para contener caracteres de entrada del usuario.

4 Desactive la leyenda de texto borrando la palabra "Text1" junto a la propiedad "Texto" en la ventana "Propiedades" en el lado derecho de la pantalla.

5 Haga doble clic en el control de cuadro de texto para mostrar la ventana "Código". Aquí es donde se va a escribir las instrucciones o códigos fuente que el programa va a ejecutar en tiempo de ejecución. El código fuente que se va a escribir validará la entrada del usuario y acepta sólo caracteres numéricos, de lo contrario se mostrará un mensaje de error.

6 Inserte el siguiente código dentro del evento "Text1_Change":

Si no IsNumeric (Text1.Text) A continuación,

MsgBox "Numeric input only!", vbCritical, "Invalid Input"

Text1.Text = ""

Terminara si

7 Presione F5 o seleccione "Ejecutar" y luego "Inicio" en el menú para cambiar al modo de tiempo de ejecución.

8 Pruebe el programa para comprobar que se está ejecutando como debiera. Escribir caracteres alfanuméricos o combinación de letras y números en el cuadro de texto. Debería ver un mensaje de error que le permite saber la entrada no es válida. Ahora, escribir sólo números en el cuadro de texto. Si no hay ningún mensaje de error aparece, el programa está funcionando correctamente.

9 Guarde el programa seleccionando "Guardar proyecto" del menú "Archivo". Proporcionar un nombre de archivo en el espacio proporcionado, a continuación, haga clic en "Guardar".