Access VBA教程:CountOfDeclarationLines属性

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

expression.CountOfDeclarationLines

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

设置

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

说明

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

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

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教程:Count属性 下页:Access VBA教程:CountOfLines属性

Access VBA教程:CountOfDeclarationLines属性

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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号