Make your own free website on Tripod.com
Visual Basic tiene dos tipos de listas:
1)List Box
2)Combo
El list box contiene elementos que se pueden agregar y también eliminar. Para agregar elementos a la lista se utliza el método additem.
Otro de los métodos es el clear, que permite borrar todos los elementos que hay en la lista.
El método RemoveItem se utiliza para eliminar un elemento de la lista y se indica el número de elemento (posición que ocupa dentro de la lista) generalmente se utiliza mediante el siguiente sistema
RemoveItem L.ListIndex
o también RemoveItem Nº
Propiedades:

*ListCount, nos da la cantidad de elementos que hay en la lista
*ListIndex, Nos da el número de elemento que se encuentra seleccionado partiendo de 0. Si no hay seleccionados esta propiedad vale -1.
*Text, contiene el texto del elemento seleccionado (de la lista)
Métodos:
AddItem:
Se usa para agregar elementos a la lista.Ej. Lista.AddItem Texto
Removeitem:
Sirve para eliminar un elemento de la lista.Ej.Removeitem 0 borra el 1er. elemento
Cuando el usuario selecciona un elemento de la lista se genera el evento click y la forma de saber qué elemento de la lista se ha seleccionado es mediante la propiedad .Text. Para determinar qué elemento se marcó usamos la propiedad .ListIndex. Si no hay elemento seleccionado, ListIndex vale -1.
En el siguiente ejemplo hay 1 formulario con una lista L donde deben figurar varios nombres, con una caja de texto Ne que nos debe dar el número de lista que corresponde a un nombre seleccionado, para lo que debemos utilizar el evento click sobre la lista L. Otra caja de texto N debe indicarnos la cantidad de nombres que hay en la lista. Una caja de texto T nos indicará el nombre seleccionado.Finalmente el botón borrar deberá limpiar la lista y también ambas cajas de texto. Otro botón btnborrarelemento nos permitirá mediante el método RemoveItem borrar un elemento de la lista en particular.
Private Sub btnagregar_Click()
L.AddItem "Pepe"
L.AddItem "Pedro"
L.AddItem "Tito"
N.Text = L.ListCount
End Sub
Private Sub btnborrar_Click()
L.Clear
N.Text = 0
NE = -1
T.Text = ""
End Sub
Private Sub btnborrarelemento_Click()
If L.ListIndex >= 0 Then
L.RemoveItem L.ListIndex
N.Text = L.ListCount
T.Text = ""
End If
End Sub
Private Sub L_Click()
T.Text = L.Text
NE = L.ListIndex
End Sub

En el siguiente ejercicio tenemos dos listas "A" y "B" . El botón agregar "btnagregar" nos permitirá agregar a la lista "A" el nombre que hayamos ubicado en la caja de texto "N" . Con el botón AB podemos trasladar un nombre seleccionado en lista A a la lista B. De la misma manera, desde la lista B, se podrá seleccionar un nombre y con el botón BA trasladarlo a la lista A. En ambos casos, si se hace click sobre cualquiera de los dos botones (AB o BA) sin haber seleccionado el elemento a trasladar, aparecerá una caja de texto que indicará "debe seleccionar un elemento". Dos botones más, TAB y TBA permitarán trasladar todos los elementos desda la lista A o la B respectivamente.
Obsérvese la forma de tratar el botón TAB y el botón TBA obteniendo el mismo resultado.
Private Sub btnagregar_Click()
A.AddItem N.Text
N.Text = ""
End Sub
Private Sub ab_Click()
B.AddItem A.Text
If A.ListIndex >= 0 Then
A.RemoveItem A.ListIndex
Else
MsgBox ("Debe seleccionar un elemento")
End If
End Sub
Private Sub ba_Click()
A.AddItem B.Text
If B.ListIndex >= 0 Then
B.RemoveItem B.ListIndex
Else
MsgBox ("Debe seleccionar un elemento")
End If
End Sub
Private Sub TBA_Click()
While B.ListCount > 0
A.AddItem B.List(0)
B.RemoveItem 0
Wend
End Sub
Otra forma:
Private Sub TAB_Click()
For I = 0 To A.ListCount - 1
B.AddItem A.List(I)
Next
A.Clear
End Sub
For I = 0 To A.Listcount -1
B AddItem A.List (I)
Next
A.clear
End Sub
Algo más de las listas