使用 ListIndex 属性可以确定在列表框或组合框中所选择的项。Long 型,只读。
expression.ListIndex
expression 必需。返回“应用于”列表中的一个对象的表达式。
ListIndex 属性值是一个整型值,其值从 0 到列表框或组合框中项目总数减 1。当选择了列表框中的某一项,或选择了组合框中列表框部分的某一项时,Microsoft Access 将设置 ListIndex 属性值。列表中第一项的 ListIndex 属性值为 0,第二项的属性值为 1,以此类推。
此属性仅在使用宏或 Visual Basic 时才可用,在“窗体”视图和“数据表”视图中只能读取该属性,而在其他视图中不能使用。
对组合框或列表框而言,也可以通过将 BoundColumn 属性值设为 0,使 ListIndex 属性值可用。如果 BoundColumn 属性设为 0,则组合框或列表框所绑定的基础表字段将包含与 ListIndex 属性设置相同的值。
列表框也有一个 MultiSelect 属性。它允许用户从控件中选择多个项。当选择了列表框中的多个项时,可以使用控件的 Selected 属性来决定选定的项。Selected 属性是一组数值,从 0 到 ListCount 属性值减 1。对列表框中的每个项目,如果选定,Selected 属性将为 True;如没有选定,则为 False。
ItemsSelected 集合还提供了访问列表框或组合框中选定行数据的方法。
若要返回 ListIndex 属性的值,可以使用以下代码:
Dim l As Long
l = Forms(formname).Controls(controlname).ListIndex
若要设置 ListIndex 属性值,可以使用以下代码:
Forms(formname).Controls(controlname).SetFocus
Forms(formname).Controls(controlname).ListIndex = index
其中,formname 和 controlname 分别是窗体和列表框或组合框控件的名称,以 String 值表示,index 是项目的索引值。