1
Prepare una forma de celebrar un nuevo control ListBox después de abrir Visual Basic , haga clic en "Archivo" y "Nuevo proyecto ". Seleccione " EXE estándar" para la plantilla. Coloque un control ListBox en el formulario haciendo clic y arrastrando el control de los múltiples controles en el panel izquierdo. El control ListBox es un icono que se parece a un pequeño rectángulo que contiene tres líneas horizontales y una barra de desplazamiento vertical. Por lo general, el quinto icono en la columna de la derecha , justo debajo de un pequeño círculo con un punto en el mismo. Al colocar el cursor sobre la casilla , aparecerá " ListBox " . En el formulario, utilizar el ratón para ampliar la caja hasta que se llena aproximadamente un tercio de la forma .
2
Añadir un TextBox al formulario haciendo doble clic en el control de cuadro de texto en el panel izquierdo . Este icono es un pequeño cuadrado con las letras " AB" en ella , por lo general el segundo hacia abajo en la columna de la derecha. Guarde el formulario con los dos controles , haga clic en " Archivo" y " Guardar proyecto como . " En primer lugar , se le pedirá que introduzca un nombre de formulario . Dale el nombre " ListBox Demo" . Después de hacer clic en "Guardar ", un segundo mensaje le pide un nombre de proyecto . Asigne al proyecto el mismo "Demo ListBox " nombre.
3
Crear una lista de lugares que se mostrarán a la población cuando se hace clic en una ubicación . Abra el panel "Propiedades" en el lado derecho de la pantalla (si no está visible ) pulsando la tecla " F4 " . Haga clic en el formulario y luego desplácese hacia abajo en las propiedades hasta que aparezca " Leyenda ". Haga doble clic sobre este para resaltar el nombre , que será " Form1 . " Cambiar a " Población ". Haga clic en TextBox1 y cambie la propiedad MultiLine en "True ".
4
clic en "Ver" y luego " código " para abrir una ventana de código . Llenar la columna con algunos datos , escriba las siguientes líneas exactamente como se muestra :
Private Sub Form_Load () List1.AddItem "Washington" List1.AddItem "Seattle " List1.AddItem " Bellevue " List1.AddItem " Redmond " List1.AddItem "Oregon " List1.AddItem "Portland " List1.AddItem " Coos Bay" List1.AddItem " Myrtle Point " End Sub
5
Agregue un poco de código que se mostrará la población de un lugar cuando el usuario lo selecciona mediante la introducción de este código por debajo de la primera rutina : Private Sub List1_Click () población As StringPopulation = "tiene una población actual de " Select Case List1.ListIndexCase " 0 " Texto1 . Texto = "Washington" y Población & " 6,5498,224 . " Case " 1 " Text1.Text = "Seattle " y Población y " 582174 . " Case " 3 " ; Text1.Text = " Redmond " y Población & ". 48739 " End Sub SelectEnd
6
Guardar el proyecto. Pulse la tecla "F5 " para probar el proyecto. Cuando resalte un lugar con el cursor , los datos de población deben aparecer en el cuadro de texto . Si no es así , vuelva a comprobar su entrada código para asegurarse de que coincide exactamente con lo que se ve en los pasos anteriores .