全部显示

CountOfLines 属性

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

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

设置

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

说明

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

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

示例

以下示例将计算 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