指定要向使用者顯示之多欄清單方塊中的資料行

下列範例會使用 TextColumn 屬性來識別 ListBox 中提供其 Text 屬性資料的資料行。 本範例將 ListBox 的第三欄設定為文字欄。 當您從 ListBox選取專案時， TextColumn 中的值會顯示在 TextBox 中。

此範例也會示範如何使用AddItem方法和List屬性載入多欄ListBox。

若要使用本範例，請將此範例程式碼複製到表單的指令碼編輯器中。 若要執行該程式碼，您需要開啟該表單以啟動 Open 事件。 請確定表單包含：

• 一個名為 ListBox1 的 ListBox 。

• 一個名為 TextBox1 的 TextBox 。

Dim ListBox1 
Dim TextBox1 
 
Sub Item_Open() 
 Set ListBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("ListBox1") 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1") 
 
 ListBox1.ColumnCount = 3 
 
 ListBox1.AddItem "Row 1, Col 1" 
 ListBox1.List(0, 1) = "Row 1, Col 2" 
 ListBox1.List(0, 2) = "Row 1, Col 3" 
 
 ListBox1.AddItem "Row 2, Col 1" 
 ListBox1.List(1, 1) = "Row 2, Col 2" 
 ListBox1.List(1, 2) = "Row 2, Col 3" 
 
 ListBox1.AddItem "Row 3, Col 1" 
 ListBox1.List(2, 1) = "Row 3, Col 2" 
 ListBox1.List(2, 2) = "Row 3, Col 3" 
 
 ListBox1.TextColumn = 3 
 
End Sub 
 
Sub ListBox1_Click() 
 TextBox1.Text = ListBox1.Text 
End Sub

支援和意見反應

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