列表框控件和 List 属性示例

下例中，交换多列列表框的列。该示例以两种方法使用 List 属性：

在列表框中访问和交换单个值。在这种用法中，List 有下标，指明特定值的行和列。

最初用来自数组的值加载列表框。在这个用法中，List 没有下标。

窗体包含

• 名为 ListBox1 的列表框
• 名为 CommandButton1 的命令按钮。

Dim Array(6, 3)           
'数组含有列表框的列值。

Sub UserForm_Initialize()
    Dim i

    UserForm_ListBox1.ColumnCount = 3        
'这个列表框包含三个数据列

    '加载整数值 MyArray
    For i = 0 To 5
        Array(i, 0) = i
        Array(i, 1) = Rnd
        Array(i, 2) = Rnd
    Next

    '加载 ListBox1
    UserForm_ListBox1.List() = Array

End Sub
Sub UserForm_CommandButton1_Click()
'交换 1 列和 3 列的内容

    Dim i
    Dim Temp

    For i = 0 To 5
        Temp = UserForm_ListBox1.List(i, 0)
        UserForm_ListBox1.List(i, 0) = UserForm_ListBox1.List(i, 2)
        UserForm_ListBox1.List(i, 2) = Temp
    Next
End Sub