Access VBA教程:ListIndex属性

使用 ListIndex属性可以确定在列表框或组合框中所选择的项。Long 型,可读写。

expression.ListIndex

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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集合还提供了访问列表框或组合框中选定行数据的方法。

VBA示例

若要返回 ListIndex属性的值,可以使用以下代码:


Dim l As Long
l = Forms(formname).Controls(controlname).ListIndex

若要设置 ListIndex属性值,可以使用以下代码:


Forms(formname).Controls(controlname).ListIndex = index

其中,formname 和 controlname 分别是窗体和列表框或组合框控件的名称,以 String 值表示,index 是项目的索引值。

上页:Access VBA教程:ListCount属性 下页:Access VBA教程:ListRows属性

Access VBA教程:ListIndex属性

Access VBA教程:ListRows属性 Access VBA教程:ListWidth属性
Access VBA教程:LocationOfComponents属性 Access VBA教程:Locked属性
Access VBA教程:LogMessages属性 Access VBA教程:LpOleObject属性
Access VBA教程:MailEnvelope属性 Access VBA教程:Major属性
Access VBA教程:MaxRecButton属性 Access VBA教程:MaxRecords属性
Access VBA教程:MDE属性 Access VBA教程:Me属性
Access VBA教程:MenuBar属性 Access VBA教程:MinMaxButtons属性
Access VBA教程:Minor属性 Access VBA教程:Modal属性
Access VBA教程:Module属性 Access VBA教程:Modules属性
Access VBA教程:MousePointer属性 Access VBA教程:MouseWheel属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号