CountOfDeclarationLines 属性

expandtri全部显示

CountOfDeclarationLines 属性返回 Long 型值,指出在标准模块类模块中的声明节中的代码行数。Long 型,只读。

expression.CountOfDeclarationLines

expression     必需。返回“应用于”列表中的一个对象的表达式。

设置

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

说明

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

CountOfDeclarationLines 属性值等于声明节中最后一行的行数,此属性可以用来确定声明节结束的位置和模块主体开始的位置。

示例

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