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

Переключение столбцов в списке с несколькими столбцами

  • Статья

В следующем примере столбцы многоколонок ListBox меняются местами. В примере свойство List используется двумя способами:

  1. Чтобы получить доступ к отдельным значениям в ListBox и обмениваться ими. При таком использовании List имеет индексы для обозначения строки и столбца указанного значения.

  2. Чтобы изначально загрузить ListBox элементами из массива. При таком использовании List не имеет индексов.

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

Dim Listbox1 
Dim MyArray(6, 3) 
 
Sub Item_Open 
 Dim i 
 Set Listbox1 = Item.GetInspector.ModifiedFormPages("P.2").Listbox1 
 
 Listbox1.ColumnCount = 3 
 For i = 0 to 5 
 MyArray(i, 0) = i 
 MyArray(i, 1) = Rnd 
 MyArray(i, 2) = Rnd 
 Next 
 
 Listbox1.List() = MyArray 
End Sub 
 
Sub CommandButton1_Click 
 Dim i 
 Dim Temp 
 
 For i = 0 to 5 
 Temp = Listbox1.List(i, 0) 
 Listbox1.List(i, 0) = Listbox1.List(i, 2) 
 Listbox1.List(i, 2) = Temp 
 Next 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.