Cómo hacer un cuadro de entrada de Visual Basic

A Visual Basic InputBox ofrece 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 un resultado InputBox.The de una variable InputBox podría formar parte de una base de datos de direcciones, una aplicación de hoja de tiempo u otro . 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 " en la lista de plantillas que aparece cuando se introduzca por primera vez Visual Basic . En la siguiente pantalla , haga doble clic en el control " Label " en la " caja de herramientas " que se encuentra a la izquierda de la pantalla. Esto coloca una caja " Label1 " en la forma en el centro de la pantalla. Utilice los cuadros de pequeño en las fronteras de este cuadro para agrandar el cuadro .

2 Haga clic en esta nueva etiqueta para mostrar sus propiedades en el panel de la derecha . Haga doble clic en la propiedad "Subtítulo " para resaltar el título predeterminado , " Label1 ". Pulse la tecla " Delete" en el teclado para eliminar el pie de foto.
3

doble clic en el " CommandButton ", un pequeño rectángulo en la " caja de herramientas "para agregar esto a la forma . Utilice la lista de propiedades para cambiar el título predeterminado , " Command1 " a "Mostrar InputBox ". Haga doble clic en el nuevo botón llamado para abrir la ventana de código.
4

Escriba el código de abajo entre el dos líneas ya existentes : " Private Sub Command1_Click ()" y " End Sub ".

SuNombre Dim , noanswer Como StringDim LocX , LocY en lugar de la pantalla IntegerLocX = 6500 ' en twips . Hay 1440 twips a un inchLocY = 4500 'Cambiar los números para adaptarse a su needsLabel1.Caption = "" ' esta en blanco el título cada vez que el programa es runNoAnswer = " No vas a decirme tu nombre? " SuNombre = InputBox ( " Cuál es tu nombre? " , "Creación de un InputBox " , LocX , LocY ) ' las dos comas en una fila en la línea de arriba son vitalIf SuNombre = "" ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Buenos días" y SuNombre & ". ¿Cómo estás hoy ? " End If
5

Press " F5 "para ejecutar el programa.