Crear una clase para llenar los controles (ComboBox, ListBox, CheckListBox) utilizando un ArrayList
(VB.NET – ADO.NET)

Fecha: 20/04/2005
Autor: Carlos A. Reyes ([email protected])

 


La idea del siguiente artículo es la de mostrar una forma diferente de llenar los controles de tipo lista como son el ComboBox, el ListBox y el CheckListBox. Lo que hice fue crear una clase que llamé CargarLista, en la cual le cree dos métodos (públicos), uno es “DatosLista” el cual uso para cargar los datos dentro de los controles mediante un ArrayList, y el otro método, que fue un agregado, es “MarcarLista” que lo uso para realizar selecciones múltiples de los datos dentro de los controles ListBox y CheckListBox.

Para poder mostrar el uso de la clase se ha creado un ejemplo con los siguientes controles, un Form (Form1), el control ListBox (ListBox1), el CheckedListBox (CheckedListBox1), el ComboBox (ComboBox1) y un Button (Button1). Dentro del Zip está el Form que use de ejemplo.

Para los datos que muestro en el ejemplo me base en las tablas “Region” y “Territories” de la base Northwind que trae MSSQL 2000, por las dudas dentro del .zip que acompaña al artículo está el archivo “EjemploBD” con los datos que utilicé, solo que en formato XML.

La forma que uso para explicar el funcionamiento es mostrando todo el código, realizando comentarios en casi todos los renglones.

A continuación sigue código en Visual Basic:

Public Class CargarLista
    ' declaro la clase Carga, para solo ser usada dentro de la clase CargarLista
    Private Class Carga
        ' declaro la variable que uso para asignar o obtener el valor del Codigo
        ' es de tipo object porque el valor puede ser un valor numérico o alfanumérico
        Private mCodigo As Object
        ' declaro la variable que uso para asignar o obtener el valor de la Descripción
        Private mDescripcion As String

        ' declaro la propiedad Codigo de la clase Carga
        Public Property Codigo() As Object
            Get
                Return mCodigo
            End Get
            Set(ByVal Value As Object)
                mCodigo = Value
            End Set
        End Property

        ' declaro la propiedad Descripcion de la clase Carga
        Public Property Descripcion() As String
            Get
                Return mDescripcion
            End Get
            Set(ByVal Value As String)
                mDescripcion = Value
            End Set
        End Property

        ' declaro el método New de la clase Carga
        Public Sub New(ByVal InitCodigo As Object, ByVal InitDescripcion As String)
            mCodigo = InitCodigo
            mDescripcion = InitDescripcion
        End Sub
    End Class

    ' la función DatosLista es pública y sirve para llenar la carga de objetos de listas
    Public Function DatosLista(ByVal DataTable As DataTable, ByVal Objeto As Object, _
        ByVal Codigo As String, ByVal Descripcion As String)
        ' declaro la matriz de tipo ArrayList, dimensionandola a la cantidad de registros de la tabla
        Dim Array As New ArrayList(DataTable.Rows.Count)
        ' declaro la variable como tipo DataRow
        Dim Registro As DataRow

        ' asigno a la propiedad DisplayMember el Nombre del campo vinculado del ArrayList
        Objeto.DisplayMember = "Descripcion"
        ' asigno a la propiedad ValueMember el Nombre del campo vinculado del ArrayList
        Objeto.ValueMember = "Codigo"

        ' deshabilita la actualización en pantalla del control enviado cpmo parámetro (Objeto)
        Objeto.BeginUpdate()

        ' recorro la Table, registro por registro
        For Each Registro In DataTable.Rows
            ' agrego un nuevo registro dentro del ArrayList
            Array.Add(New Carga(Registro(Codigo), Trim(Registro(Descripcion))))
        Next
        ' asigno al DataSource del control enviado como parámetro el ArrayList
        Objeto.DataSource = Array

        ' habilita la actualización en pantalla del control enviado como parámetro (Objeto)
        Objeto.EndUpdate()
    End Function

    ' la función MarcarLista es pública y sirve para marcar los datos dentro de las listas
    ' ésta función es solo para los controles ListBox y CheckedListBox
    Public Function MarcarLista(ByVal DataView As DataView, ByVal Objeto As Object)
        Dim a As Integer
        Dim b As Integer

        ' deshabilita la actualización en pantalla del control enviado como parámetro (Objeto)
        Objeto.BeginUpdate()


        ' pregunto por el tipo de objeto
        If InStr(Objeto.GetType.FullName, "CheckedListBox") <> 0 Then
            ' rutina que sirve solo para desmarcar todos los elementos del control CheckedListBox
            For b = 0 To Objeto.datasource.count - 1
                Objeto.SetItemCheckState(b, CheckState.Unchecked)
            Next
        Else
            ' anula la selección de todos los elementos del control ListBox
            Objeto.ClearSelected()
        End If

        ' ciclo para recorrer la Vista que viene como parámetro (DataView)
        For a = 0 To DataView.Count - 1
            ' ciclo para recorrer los datos dentro del objeto enviado como parámetro (Objeto)
            For b = 0 To Objeto.DataSource.Count - 1
                ' pregunta si el codigo de la lista(Objeto) coincide con el de la vista(DataView)
                If Objeto.DataSource.item(b).codigo() = DataView.Item(a).Row(0) Then
                    If InStr(Objeto.GetType.FullName, "CheckedListBox") <> 0 Then
                        ' realiza el check del control CheckedListBox
                        Objeto.SetItemCheckState(b, CheckState.Checked)
                    Else
                        ' realiza la selección del control enviado como parámetro (ListBox)
                        Objeto.SetSelected(b, True)
                    End If
                    Exit For
                End If
            Next
        Next

        ' habilita la actualización en pantalla del control enviado como parámetro (Objeto)
        Objeto.EndUpdate()
    End Function
End Class

 


Espero que el artículo les haya sido útil, si es así por favor colabora conmigo votando por este artículo en PanoramaBox. Gracias.


 


Fichero con el código de ejemplo: creyes_LlenarListas.zip - 10 KB


ir al índice