Поделиться через

Имитация массива Two-Dimensional с помощью списков

  • Статья

В следующем примере загружается двумерный массив с данными и, в свою очередь, загружается два элемента управления ListBox с помощью свойств Column и List . Обратите внимание, что свойство Column транспонирует элементы массива во время загрузки.

Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь в том, что форма содержит два элемента управления ListBox с именами ListBox1 и ListBox2.

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 и обратная связь.