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

Los cuadros de texto se utilizan principalmente para recibir información de los usuarios , o para mostrar texto o bien pre - programado o de una fuente de base de datos. En Visual Basic 6.0, el control " TextBox " se utiliza para dibujar un cuadro de texto en un formulario Windows Forms . Las propiedades del control se puede configurar en función de las necesidades de los usuarios . Por ejemplo , puede establecer un cuadro de texto de sólo lectura o modificable , con diferentes colores de fondo, o con barras de desplazamiento . También es posible limitar qué tipo de entrada de texto que puede aceptar. Aprenda a crear un programa en Visual Basic 6.0 que limita la entrada de cuadro de texto para sólo números . Instrucciones
1

Cargue 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" y haga clic en botón "Abrir" .
3

Agregar un cuadro de texto en el formulario haciendo clic en el " "El control de la" caja de herramientas cuadro de texto "y luego dibujar el tamaño de la caja de texto deseado. Asegúrese de que sea lo suficientemente amplia como para contener caracteres de entrada del usuario.
4

Borrar el título de texto al borrar la palabra " Texto 1 " al lado de la propiedad "Texto" en la ventana " Propiedades " a la derecha lado de la pantalla .
5

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

6 Inserte el siguiente código en el evento " Text1_Change ": .

Si No IsNumeric Entonces

MsgBox " entrada numérica única " ( Text1.Text ) , vbCritical , "Invalid input"

Text1.Text = ""

End If
7

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

Pruebe el programa para comprobar que se trata de funcionando como debería. Caracteres alfanuméricos de tipo o una combinación de letras y números en el cuadro de texto . Usted debe ver un mensaje de error que le permite saber que la entrada es inválida . Ahora , escriba sólo números en el cuadro de texto. Si no hay ningún mensaje de error aparece , el programa está funcionando correctamente.
9

Guardar el programa seleccionando " Guardar proyecto " desde el menú "Archivo". Proporcione un nombre de archivo en el espacio correspondiente y haga clic en " Guardar".