使用 ItemsSelected 屬性可傳回隱藏 ItemsSelected 集合的唯讀參考。 此隱藏的集合可用於存取多選清單方塊控制項中選取資料列的資料。
語法
運算式。ItemsSelected
表達 代表 Control 物件的變數。
註解
ItemsSelected 集合是與其他集合不同，因為它是的 變體 而不是物件的集合。 每個 Variant 是一個整數索引參照清單方塊或下拉式方塊中選取的資料列。
擷取資料的清單方塊或下拉式方塊中選取的列與 欄 屬性或 ItemData 屬性一起使用使用 ItemsSelected 集合。 您可以在每個使用 列出 ItemsSelected 集合...]下一個 陳述式。
例如，如果您的表單上有 [ 員工 ] 清單方塊，您可以列出 ItemsSelected 集合，並使用控制項的 ItemData 屬性傳回清單方塊中每個選取資料列的系結資料行值。
若要啟用多個選取的清單方塊中的資料列，將控制項的 MultiSelect 屬性以簡單或延伸。
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 支援與意見反應。