CountOfDeclarationLines 屬性

全部顯示

CountOfDeclarationLines 屬性返回 Long 型值，指出在標(biāo)準(zhǔn)模塊或類模塊中的聲明節(jié)中的代碼行數(shù)。Long 型，只讀。

expression.CountOfDeclarationLines

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。

設(shè)置

AllForms 屬性僅在使用 Visual Basic 時才可用，并且是只讀屬性。

說明

模塊中的行從 1 開始編號。

CountOfDeclarationLines 屬性值等于聲明節(jié)中最后一行的行數(shù)，此屬性可以用來確定聲明節(jié)結(jié)束的位置和模塊主體開始的位置。

示例

以下示例將計算 Modules 集合中每個標(biāo)準(zhǔn)模塊的行數(shù)和聲明的行數(shù)。請注意，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