TextColumn 属性示例

下例用 TextColumn 属性来标识列表框中数据的列，该列为其 Text 属性提供数据。该示例把列表框的第三列设置为文本列。当从列表框中选定一个条目时，来自 TextColumn 的值将被显示在标签中。

该示例还演示如何用 AddItem 方法和 List 属性来加载一个多列列表框。

窗体包含：

• 名为 ListBox1 的列表框。
• 名为 TextBox1 的文本框。

Sub UserForm_Initialize()
	UserForm_ListBox1.ColumnCount = 3
	
	UserForm_ListBox1.AddItem "Row 1, Col 1"
	UserForm_ListBox1.List(0, 1) = "Row 1, Col 2" 
	UserForm_ListBox1.List(0, 2) = "Row 1, Col 3"
	
	UserForm_ListBox1.AddItem "Row 2, Col 1"
	UserForm_ListBox1.List(1, 1) = "Row 2, Col 2"
	UserForm_ListBox1.List(1, 2) = "Row 2, Col 3"
	
	UserForm_ListBox1.AddItem "Row 3, Col 1"
	UserForm_ListBox1.List(2, 1) = "Row 3, Col 2"
	UserForm_ListBox1.List(2, 2) = "Row 3, Col 3"
	
	UserForm_ListBox1.TextColumn = 3
End Sub

Sub UserForm_ListBox1_Change()
	UserForm_TextBox1.Text = UserForm_ListBox1.Text
End Sub