列表框控件、Column、ColumnCount 和 List 属性示例

下例加载带数据的二维数组，随后用 Column 和 List 属性加载两个列表框控件。请注意在加载期间 Column 属性将转置数组元素。

窗体包含：

• 名为 ListBox1 和 ListBox2 的两个列表框控件。

Dim MyArray(6,3)

Sub UserForm_Initialize()
    Dim i
     '第一个列表框包含三个数据列
    UserForm_ListBox1.ColumnCount =3
     '第二个框包含六个数据列
     UserForm_ListBox2.ColumnCount = 6         

    '把整数值加载到 MyArray 的第一列
    For i = 0 To 5
        MyArray(i, 0) = i
    Next

    '加载 MyArray 的列 2 和列 3
    MyArray(0, 1) = "Zero"
    MyArray(1, 1) = "One"
    MyArray(2, 1) = "Two"
    MyArray(3, 1) = "Three"
    MyArray(4, 1) = "Four"
    MyArray(5, 1) = "Five"

    MyArray(0, 2) = "Zero"
    MyArray(1, 2) = "Un ou Une"
    MyArray(2, 2) = "Deux"
    MyArray(3, 2) = "Trois"
    MyArray(4, 2) = "Quatre"
    MyArray(5, 2) = "Cinq"

    '把数据加载到 ListBox1 和 ListBox2
    UserForm_ListBox1.List() = MyArray
    UserForm_ListBox2.Column() = MyArray

End Sub