ListBox.ItemsSelected 属性 (Access)

使用 ItemsSelected 属性可返回对隐藏 ItemsSelected 集合的只读引用。 此隐藏集合可用于访问多选列表框控件中选定行中的数据。

语法

表达式。ItemsSelected

表达 一个代表 ListBox 对象的变量。

备注

ItemsSelected 集合与其他集合的不同之处在于，它是 Variants 集合，而不是对象的集合。 每个 Variant 是一个整型索引，引用列表框或组合框中选定的行。

将 ItemsSelected 集合中 列 属性或 ItemData 属性结合使用，以从列表框或组合框中选定的行中检索数据。 您可以通过使用 列出 ItemsSelected 集合，每个...下一步 语句。

例如，如果窗体上有一个 Employees 列表框，则可以列出 ItemsSelected 集合，并使用控件的 ItemData 属性返回列表框中每个选定行的绑定列的值。

若要启用多项选择列表框中的行，请设置控件的简单 多重选择 属性或扩展。

ItemsSelected 集合有两个属性：Count 和 Item 属性，没有方法。

示例

以下示例打印“联系人”窗体上“名称”列表框中每个选定行的绑定列的值。 要试用此示例，请创建该列表框，根据需要设置其 BoundColumn 属性并将其 MultiSelect 属性设置为“简单”或“展开的”。 切换到“窗体”视图，在列表框中选择多个行，然后运行以下代码。

Sub BoundData() 
 Dim frm As Form, ctl As Control 
 Dim varItm As Variant 
 
 Set frm = Forms!Contacts 
 Set ctl = frm!Names 
 For Each varItm In ctl.ItemsSelected 
 Debug.Print ctl.ItemData(varItm) 
 Next varItm 
End Sub

以下示例使用相同的列表框控件，但打印列表框中每个选定行的每一列的值，而不是仅打印绑定列中的值。

Sub AllSelectedData() 
 Dim frm As Form, ctl As Control 
 Dim varItm As Variant, intI As Integer 
 
 Set frm = Forms!Contacts 
 Set ctl = frm!Names 
 For Each varItm In ctl.ItemsSelected 
 For intI = 0 To ctl.ColumnCount - 1 
 Debug.Print ctl.Column(intI, varItm) 
 Next intI 
 Debug.Print 
 Next varItm 
End Sub

支持和反馈

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