通过

使用列表框模拟Two-Dimensional数组

  • 项目

以下示例加载包含数据的二维数组，然后使用 Column 和 List 属性加载两个 ListBox 控件。 请注意，在加载过程中， Column 属性将转置数组元素。

若要使用本示例，请将此示例代码复制到窗体的"脚本编辑器"中。 若要运行本代码，需要打开该窗体，以便激活 Open 事件。 确保该窗体包含两个名称分别为“ListBox1”和“ListBox2”的 ListBox 控件。

Dim MyArray(6,3) 
 
Sub Item_Open() 
 Dim i 
 
 Set ListBox1 = Item.GetInspector.ModifiedFormPages("P.2").ListBox1 
 Set ListBox2 = Item.GetInspector.ModifiedFormPages("P.2").ListBox2 
 
 ListBox1.ColumnCount = 3 'The 1st list box contains 3 data columns 
 ListBox2.ColumnCount = 6 'The 2nd box contains 6 data columns 
 
 'Load integer values into first column of MyArray 
 For i = 0 To 5 
 MyArray(i, 0) = i 
 Next 
 
 'Load columns 2 and three of MyArray 
 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" 
 
 'Load data into ListBox1 and ListBox2 
 ListBox1.List() = MyArray 
 ListBox2.Column() = MyArray 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。