ListBox 控件、BoundColumn 属性示例

以下示例演示 BoundColumn 属性如何影响 ListBox 的值。 用户可以选择将 ListBox 的值设置为 ListBox 中指定数据行或指定数据列的索引值。

若要使用此示例，请将此示例代码复制到窗体的 Declarations 部分。 确保该窗体包含：

• 一个名为"ListBox1"的 ListBox 。
• 一个名为"Label1"的 Label 。
• 三个名称分别为"OptionButton1"、"OptionButton2"和"OptionButton3"的 OptionButton 控件。

Private Sub UserForm_Initialize() 
 ListBox1.ColumnCount = 2 
 
 ListBox1.AddItem "Item 1, Column 1" 
 ListBox1.List(0, 1) = "Item 1, Column 2" 
 ListBox1.AddItem "Item 2, Column 1" 
 ListBox1.List(1, 1) = "Item 2, Column 2" 
 
 ListBox1.Value = "Item 1, Column 1" 
 
 OptionButton1.Caption = "List Index" 
 OptionButton2.Caption = "Column 1" 
 OptionButton3.Caption = "Column 2" 
 OptionButton2.Value = True 
End Sub 
 
Private Sub OptionButton1_Click() 
 ListBox1.BoundColumn = 0 
 Label1.Caption = ListBox1.Value 
End Sub 
 
Private Sub OptionButton2_Click() 
 ListBox1.BoundColumn = 1 
 Label1.Caption = ListBox1.Value 
End Sub 
 
Private Sub OptionButton3_Click() 
 ListBox1.BoundColumn = 2 
 Label1.Caption = ListBox1.Value 
End Sub 
 
Private Sub ListBox1_Click() 
 Label1.Caption = ListBox1.Value 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。