El control ListBox

Opciones principales

 

Fecha: 06/Jun/2005 (03 de Junio de 2005)
Autor: Ing. Fernando Luque Sánchez
DCE 4 Estrellas

fls2307@hotmail.com
fernandoluque2307@yahoo.com
fluque@infonegocio.net.pe

 


Sres Desarrolladores, les envío este aporte que permitirá conocer las opciones principales del control ListBox, en este articulo no utilizo el enlace del control a base de datos, pero de todas maneras espero que les sea útil. Suerte a todos.

UN POCO DE TEORÍA

Los controles de lista como ListBox, ComboBox y CheckedListBox (pueden visitar el artículo que publiqué hace algún tiempo en  http://www.elguille.info/colabora/puntoNET/FernandoLuque_Controles.htm) permiten el manejo de varias opciones, en este artículo trato de explicar el uso del control ListBox.

La diferencia básica del control ListBox con respecto al ComboBox es que el control ListBox permite la selección de múltiples opciones además lógicamente de poder mostrarlas.

A continuación sigue código en Visual Basic

    Private Sub CargaFormulario(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
        'Llenar los elementos del ListBox lstDisponibles

        Dim aOpciones() As String = {"Net Desarrollo", "Visual Basic .Net", "ASP .Net", _

            "XML Web Service", "Application Blocks", "Ing. Fernando Luque", "COM+ Components"}

        lstDisponibles.Items.AddRange(aOpciones)

 

        'Llenar los elementos del ListBox lstMulti para

        'probar el comportamiento de la Propiedad SelectionMode

        'NOTE QUE EN EL ARRAY ANTERIOR SE USO AddRange

        'Cuando se utiliza DataSource no se pueden eliminar

        'los elementos de la lista

        Dim aMultiple() As String = {"Carolina", "Maria Fernanda", "Fernando", _

                    "Carla", "Ingrid", "Esmeralda", "Víctor"}

        lstMulti.DataSource = aMultiple

        lstMulti.ClearSelected()

    End Sub

 

    Private Sub AgregarNombre(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles cmdAgregar.Click

        'Comprobar el ingreso de un dato en la caja de texto

        If Len(Trim(txtnombre.Text)) = 0 Then

            MessageBox.Show("No hay dato para agregar...", "Error", MessageBoxButtons.OK)

            txtnombre.Focus()

            Exit Sub

        End If

        'Comprobar si está en la lista

        Dim i As Integer, vPresente As Boolean

        For i = 0 To lstNombres.Items.Count - 1

            If lstNombres.Items.Item(i) = txtnombre.Text Then

                vPresente = True

                Exit For

            End If

        Next

        If vPresente = False Then

            lstNombres.Items.Add(txtnombre.Text)

            lstNombres.Focus()

        End If

    End Sub

 

    Private Sub Eliminar(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles cmdEliminar.Click

        If lstNombres.SelectedIndex <> -1 Then

            lstNombres.Items.Remove(lstNombres.SelectedItem)

        End If

    End Sub

El código completo está en el archivo adjunto. Suerte a todos, espero les sirva de ayuda, no olviden dar su opinión en mi Panoramabox, gracias.

Ing. Fernando Luque Sánchez
Trujillo - Perú


Espacios de nombres usados en el código de este artículo:

System.Windows


Fichero con el código de ejemplo: FernandoLuque_El_Control_ListBox.zip - 15 KB


ir al índice