使用
ColumnCount
属性可以指定在列表框或组合框的列表框部分中显示的列数，或者发送到图表控件或未绑定对象帧中的 OLE 对象的列数。
Integer
型，可读/写。
表达式
。
ColumnCount
表达
一个代表
ListBox
对象的变量。
列数
属性包含一个介于 1 和数表、 查询或 SQL 语句中的字段或控件的
行来源
属性中指定的值列表中的值的最大数目。
对于
表字段
，您可以设置此属性在表设计视图的字段属性部分中的
查阅
选项卡上的
DisplayControl
属性设为组合框或列表框。
例如，如果将
Employees
窗体上列表框的
ColumnCount
属性设置为 3，则一列可以列出姓氏，另一列可以列出名字，第三列可以列出员工 ID 号。
组合框或列表框中可以有多个列。 如果控件的
行来源
属性中包含的表、 查询或 SQL 语句的名称，将组合框或列表框中将显示来自源，从左到右，向上的
列数
属性指定的数量的字段。
若要显示域的不同组合，创建一个新查询或
行来源
属性中，指定域和所需的顺序新的 SQL 语句。
如果
行来源
属性中包含的值 (
行来源类型
属性设置为值列表) 的列表，则值将放入的行和列的组合框或列表框中的
行来源
属性中列出的顺序中。 例如，如果将
行来源
属性包含列表"红色;绿色;蓝色;黄色"和
列数
属性设置为 2，组合框或列表框列表的第一行将包含第一列和第二列中的"绿色"中的"红色"。 第二行第一列中，"黄色"的第二列中包含"Blue"。
使用
ColumnWidths
属性可设置控件中显示的列的宽度或隐藏列。
下面的示例使用
Column
属性和
ColumnCount
属性来打印列表框中选定的值。
Public Sub Read_ListBox()
Dim intNumColumns As Integer
Dim intI As Integer
Dim frmCust As Form
Set frmCust = Forms!frmCustomers
If frmCust!lstCustomerNames.ItemsSelected.Count > 0 Then
' Any selection?
intNumColumns = frmCust!lstCustomerNames.ColumnCount
Debug.Print "The list box contains "; intNumColumns; _
IIf(intNumColumns = 1, " column", " columns"); _
" of data."
Debug.Print "The current selection contains:"
For intI = 0 To intNumColumns - 1
' Print column data.
Debug.Print frmCust!lstCustomerNames.Column(intI)
Next intI
Debug.Print "You haven't selected an entry in the " _
& "list box."
End If
Set frmCust = Nothing
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。
即将发布：在整个 2024 年，我们将逐步淘汰作为内容反馈机制的“GitHub 问题”，并将其取代为新的反馈系统。 有关详细信息，请参阅：https://aka.ms/ContentUserFeedback。
提交和查看相关反馈
