通过

Module.CountOfDeclarationLines 属性 (Access)

  • 项目

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

语法

表达式。CountOfDeclarationLines

表达 一个代表 Module 对象的变量。

备注

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

CountOfDeclarationLines 属性的值等于 Declarations 节最后一行的行号。 使用此属性可确定“声明”部分的结束位置以及模块正文开始的位置。

示例

下面的示例计数的行和在 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。