|
楼主 |
发表于 2010-2-11 07:52
|
显示全部楼层
又找到一个解答.
Dim MyArray(6,3)
Private Sub UserForm_Initialize()
Dim i As Single
'第一个列表框包含三个数据列
ListBox1.ColumnCount =3
'第二个框包含六个数据列
ListBox2.ColumnCount = 6
'把整数值加载到 MyArray 的第一列
For i = 0 To 5
MyArray(i, 0) = i
Next i
'加载 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
ListBox1.List() = MyArray
ListBox2.Column() = MyArray
End Sub |
|