交換多欄清單方塊的資料行

下列範例會切換多欄 ListBox 中的欄。 本範例以兩種方法來使用 List 屬性：

1. 存取和切換 ListBox 中的各個值。 在這種用法中， List 具有賦予列和欄指定值的下標。

2. 用陣列中的值做為 ListBox 的初始載入值。 在這種用法中， List 沒有下標。

若要使用本範例，請將此範例程式碼複製到表單的 [指令碼編輯器] 中。 若要執行該程式碼，您需要開啟該表單以啟動 Open 事件。 請確定該表單包含一個名為 ListBox1 的 ListBox 和一個名為 CommandButton1 的 CommandButton 。

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 支援與意見反應。