3.7. Listas y listas desplegables

Control Cuadro de Lista (ListBox)

Un control ListBox muestra una lista de elementos entre los cuales el usuario puede seleccionar uno o más elementos. Si el número de elementos supera el número que puede mostrarse, se agregará automáticamente una barra de desplazamiento al control ListBox.

La propiedad List es un arreglo que contiene los elementos de la lista, y comienza con índice 0. La propiedad ListCount establece el número total de elementos de la lista. La propiedad ListIndex contiene el índice del elemento seleccionado, el cual es un número entre 0 (primer elemento) y el número total de elementos en la lista –1 (ListCount – 1). Si no se selecciona ningún elemento, el valor de la propiedad ListIndex será –1.

La propiedad NewIndex contiene el índice del último elemento añadido a la lista. Esto puede ser útil si desea hacer algo con el elemento añadido, por ejemplo, que sea el elemento actualmente seleccionado.

Propiedades

Enabled True/False. Determina si el control responde a las acciones del usuario.

List Arreglo con los elementos de la lista.

ListCount Número de elementos de la lista.

ListIndex Elemento seleccionado.

MultiSelect Establece si es posible seleccionar varios elementos o uno solo.

Name Nombre del control.

NewIndex Indice del último elemento añadido al Cuadro de Lista.

Selected Arreglo de valores lógicos paralelo y del mismo tamaño al arreglo list, indica que elementos han sido seleccionados (True) de la lista. Se utiliza en lugar de ListIndex cuando establecemos la propiedad Multiselect en 1 ó 2.

Sorted True/False. Establece los elementos se ordenan alfabéticamente.

Style Establece el comportamiento del control.

Text Devuelve el elemento seleccionado en el cuadro de lista; el valor de retorno es siempre equivalente al que devuelve la expresión List(ListIndex). Es de sólo lectura en tiempo de diseño y es de sólo lectura en tiempo de ejecución.

Métodos

AddItem Permite añadir nuevos elementos a la lista.

RemoveItem Permite eliminar elementos de la lista.

Eventos

Click Ocurre cuando el usuario interactúa con el control.

Ejemplos

Muestra en el Cuadro de Texto txtGaseosa el elemento seleccionado

Private Sub lstGaseosas_Click()

txtGaseosa.Text = lstGaseosas.Text

End Sub

Añade un nuevo elemento al Cuadro de Lista lstGaseosas

Private Sub cmdAgregar_Click()

Dim strNuevoElemento As String

strNuevoElemento = InputBox("Ingrese una nueva gaseosa:", _

"Nueva gaseosa")

If Trim(strNuevoElemento) <> "" Then

lstGaseosas.AddItem strNuevoElemento

End If

End Sub

Elimina el elemento actual del Cuadro de Lista lstGaseosas

Private Sub cmdEliminar_Click()

If lstGaseosas.ListIndex <> -1 Then

lstGaseosas.RemoveItem lstGaseosas.ListIndex

End If

End Sub