ListBox 控制項、List 屬性範例

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

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

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

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定該表單包含一個名為 ListBox1 的 ListBox 和一個名為 CommandButton1 的 CommandButton 。

Dim MyArray(6, 3) 
'Array containing column values for ListBox. 
 
Private Sub UserForm_Initialize() 
 Dim i As Single 
 
 ListBox1.ColumnCount = 3 
'This list box contains 3 data columns 
 
 'Load integer values MyArray 
 For i = 0 To 5 
 MyArray(i, 0) = i 
 MyArray(i, 1) = Rnd 
 MyArray(i, 2) = Rnd 
 Next i 
 
 'Load ListBox1 
 ListBox1.List() = MyArray 
 
End Sub

Private Sub CommandButton1_Click() 
' Exchange contents of columns 1 and 3 
 
 Dim i As Single 
 Dim Temp As Single 
 
 For i = 0 To 5 
 Temp = ListBox1.List(i, 0) 
 ListBox1.List(i, 0) = ListBox1.List(i, 2) 
 ListBox1.List(i, 2) = Temp 
 Next i 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。