通过

Module.CountOfLines 属性 (Access)

  • 项目

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

语法

表达式。CountOfLines

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

备注

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

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

示例

下面的示例计数的行和在 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。