Access VBA教程:CountOfLines属性

CountOfLines属性返回Long 型值,指出标准模块或类模块中的代码行数。Long 型,只读。

expression.CountOfLines

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

设置

AllDataAccessPage属性仅在使用 Visual Basic 时才可用,并且是只读属性。

说明

模块中的行从 1 开始编号。

模块中最后一行的行数是 CountOfLines属性的值。

VBA示例

以下示例将计算 Modules集合中每个标准模块的行数和声明的行数。请注意,Modules集合只包含在模块编辑器中打开的模块。


Public Sub ModuleLineTotal(ByVal strModuleName As String)
    Dim mdl As Module
    ' Open module to include in Modules collection.
    DoCmd.OpenModule strModuleName
     ' Return reference to Module object.
    Set mdl = Modules(strModuleName)
     ' Print number of lines in module.
    Debug.Print "Number of lines: ", mdl.CountOfLines
     ' Print number of declaration lines.
    Debug.Print "Number of declaration lines: ", _
        mdl.CountOfDeclarationLines
     End Sub

上页:Access VBA教程:CountOfDeclarationLines属性 下页:Access VBA教程:CurrentData属性

Access VBA教程:CountOfLines属性

Access VBA教程:CurrentData属性 Access VBA教程:CurrentObjectName属性
Access VBA教程:CurrentObjectType属性 Access VBA教程:CurrentPage属性(快照查看器)
Access VBA教程:CurrentProject属性 Access VBA教程:CurrentRecord属性
Access VBA教程:CurrentSectionLeft属性 Access VBA教程:CurrentSectionTop属性
Access VBA教程:CurrentView属性 Access VBA教程:CurrentX属性
Access VBA教程:CurrentY属性 Access VBA教程:Custom属性
Access VBA教程:Cycle属性 Access VBA教程:DataAccessPages属性
Access VBA教程:Database属性 Access VBA教程:DataChange属性
Access VBA教程:DataEntry属性 Access VBA教程:DataOnly属性
Access VBA教程:DataSetChange属性 Access VBA教程:DatasheetBackColor属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号