Cómo hacer un cuadro de entrada en Visual Basic

Un básico InputBox Visual proporciona una manera para que el desarrollador para solicitar la opinión de un usuario y asignar el resultado a una variable para su uso en otras partes de una aplicación. En lugar de una imagen gráfica, una palabra de código de Visual Basic hace que un resultado InputBox.The de una variable InputBox podría formar parte de una base de datos de direcciones, una parte de horas o en otra aplicación. Podría aparecer en información al usuario si el InputBox pide algo así como "¿Cuál es su nombre", y, cuando el usuario responde, el equipo puede responder "Buenos días [SuNombre]. ¿Cómo estás hoy? "La respuesta proporcionada por el usuario reemplaza la variable se muestra entre paréntesis.

Instrucciones

1 Abra un nuevo proyecto de Visual Basic mediante la selección de "EXE estándar" de la lista de plantillas que aparece cuando se carga por primera vez de Visual Basic. En la siguiente pantalla, haga doble clic en el control "Etiqueta" en la "caja de herramientas" que se encuentra a la izquierda de la pantalla. Esto coloca una caja "Label1" en el formulario en el centro de la pantalla. Utilice los cuadros de pequeño en las fronteras de este cuadro para agrandar la caja.

2 Haga clic en esta nueva etiqueta para mostrar sus propiedades en el panel de la derecha. Haga doble clic en la propiedad "Caption" para resaltar el título predeterminado, pulse la tecla "Label1." "Eliminar" en el teclado para eliminar el subtítulo.

3 Haga doble clic en el "CommandButton", un pequeño rectángulo en la "caja de herramientas" para añadir esto a la forma. Use la lista de propiedades para cambiar el título predeterminado, "Command1" a "Mostrar InputBox." Haga doble clic en el botón recién nombrado para abrir la ventana de código.

4 Escriba el siguiente código entre las dos líneas que ya están presentes: "Private Sub Command1_Click ()" y "End Sub".

Dim SuNombre, noanswer As String
Dim LocX, LocY como número entero
LocX = 6500 'ubicación de la pantalla en twips. Hay 1440 twips a una pulgada
LocY = 4500 'Cambiar los números para satisfacer sus necesidades
Label1.Caption = "" 'esto deja en blanco el título cada vez que se ejecuta el programa
Noanswer = "¿No le gustaría por favor dígame su nombre?"
SuNombre = InputBox ( "¿Cuál es su nombre?", "Creación de un Cuadro de entrada",, LocX, LocY)
'Las dos comas en una fila en la línea de arriba son vitales
Si SuNombre = "" Entonces
Label1.Caption = noanswer
Más
Label1.Caption = "Buenos días," y SuNombre & ". ¿Cómo estás hoy?"
Terminara si

5 Pulse la tecla "F5" para ejecutar el programa.

Consejos y advertencias

• Añadir un mensaje explicativo para cubrir los problemas o para otros fines que no desea colocar en la forma o en el rubro real como en el ejemplo anterior. Para ello, cambie estas líneas de código:
• Eliminar la línea que empieza "Label1.Caption = noanswer continuación."
• Reemplazar esta con:
• MsgBox ( "Debemos tener su nombre para proceder.")
• Sólo aproximadamente 1024 caracteres pueden caber en un InputBox. El número exacto depende de la fuente.