Access VBA教程:ListRows属性

使用 ListRows属性可以设置组合框中列表框部分所能显示的最大行数。Integer 型,可读写。

expression.ListRows

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

说明

ListRows属性是一个整型值,指明最大的显示行数,默认设置为 8,ListRows属性的设置值必须在 1 到 255 之间。

可以使用组合框的属性表Visual Basic 设置该属性。

对于表字段,可以在表“设计”视图的“字段属性”节的“查阅”选项卡上,设置该属性。字段的DisplayControl属性应设为“组合框”或“列表框”。

提示   如果在表“设计”视图中选择“查阅向导”作为字段的数据类型,Microsoft Access 将自动设置 ListRows属性值。

在 Visual Basic 中,使用数值表达式来设置该属性值。

也可以使用组合框的默认控件样式或 Visual Basic 中的DefaultControl方法,设置该属性的默认值。

如果行的实际数目超过 ListRows属性所设置的值时,组合框中列表框部分将显示垂直滚动条。

VBA示例

下面的示例将使用 ListCount属性来查找“客户”窗体上“客户列表”组合框中列表框部分的行数,然后设置 ListRows属性,以便在列表中显示指定的行数。


Public Sub SizeCustomerList()
    Dim ListControl As Control
    Set ListControl = Forms!Customers!CustomerList
    With ListControl
        If .ListCount < 8 Then
            .ListRows = .ListCount
        Else
            .ListRows = 8
        End If
    End With
 End Sub

上页:Access VBA教程:ListIndex属性 下页:Access VBA教程:ListWidth属性

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属性 Access VBA教程:Moveable属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号