Imprimir página | Cerrar ventana

VBA: Formularios. Array a ListBox

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77409
Fecha de impresión: 23/Febrero/2020 a las 09:10


Tema: VBA: Formularios. Array a ListBox
Publicado por: genoma111
Asunto: VBA: Formularios. Array a ListBox
Fecha de publicación: 24/Agosto/2013 a las 00:16
Palabras clave: Array, Matriz, Matrices, Caja de Lista, ListBox.

Este sub pasa un array a una caja de lista para poder visualizarlo.

Para el ejemplo creo un array tipo variant de 2 dimensiones en tiempo de ejecución.
w es el array.
List0 es mi cuadro de lista en mi formulario.
ArrayToListBox es el Sub.

Uso:

Private Sub Command0_Click()
    Dim w(1, 2)
   
    w(0, 0) = "Hola"
    w(0, 1) = "Que"
    w(0, 2) = "Tal"
    w(1, 0) = 1
    w(1, 1) = 2
    w(1, 2) = 3
   
    ArrayToListBox List0, w
   
End Sub

Sub ArrayToListBox:

'--------------------------------------------------------------------------------
' Nombre:      ArrayToListBox
' Propósito:   Llena una caja de lista a partir de un array
' Argumentos:
'              lst: La caja de lista
'              w:   El array
' Autor:       Diego F.Pereira-Perdomo
' Fecha:       Aug-23-2013
'--------------------------------------------------------------------------------
Public Sub ArrayToListBox(lst As ListBox, w())

    Dim str As String
    Dim i   As Long
    Dim j   As Long
   
    lst.RowSource = ""   
    lst.RowSourceType = "Value List"
    lst.ColumnCount = UBound(w, 2) + 1
    lst.ColumnHeads = True
   
    For i = 0 To UBound(w, 1)
        For j = 0 To UBound(w, 2)
            str = str & w(i, j) & ";"
        Next j
        lst.AddItem str
        str = ""
    Next i

End Sub



-------------
"To VBA or not to VBA... that's the question" DFP



Imprimir página | Cerrar ventana