List Box Visual Basic

LENGUAJE DE PROGRAMACION II LIST BOX
Para el siguiente ejemplo colocar los siguientes controles en un formulario como está en la imagen:

EVENTO LOAD DE LA FORMA
Private Sub Form1_Load(ByValsender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'cuenta los elementos de la lista con = lst_nombre.Items.Count contar.Text = CStr(con) End Sub

El evento Load de una forma seacciona al momento de ejecutar la forma, dicho de otro modo al cargar (load) la forma en modo de ejecución. Este evento se realiza sin que el usuario haga ninguna acción, por lo que el programadorcoloca aquí las operaciones que desea estén listas al momento en que el usuario empiece a usar la forma.

En este caso deseamos que cuente los elementos de la lista, por lo que se usa el métodoItems.Count.h

EVENTO CLICK DEL BOTON AGREGAR
Private Sub Btn_agregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_agregar.Click nomb = nombre.Text If nomb = "" ThenMsgBox("1Debe ingresar un nombre para poder agregar un elemento", CType(vbQuestion + vbOKOnly, MsgBoxStyle), "Datos incompletos") 'Salimos de la rutina ya que no se ha ingresado nada en el control text1Exit Sub End If 'Agregamos el contenido del Text1 en el control List1 lst_nombre.Items.Add(nomb) nombre.Text = "" con = lst_nombre.Items.Count contar.Text = CStr(con) End Sub

En el ejemplo anteriorcuando se presiona añadir, antes de utilizar el método Items.Add para añadir el contenido del Text nombre, se comprueba mediante un IF que el Text no está vacío. Si está vacío se muestra un mensaje deerror y se sale de la rutina mediante Exit sub. Si se ha ingresado algún texto, ignora la cláusula IF Then y ejecuta la línea que añade el Item

EVENTO CLICK DEL BOTON ELIMINAR SELECCIONADO
PrivateSub Btn_eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_eliminar.Click 'Si la lista no está vacía entonces podemos eliminar If lst_nombre.SelectedIndex -1...