CountOfDeclarationLines 屬性返回 Long 型值,指出在標(biāo)準(zhǔn)模塊或類(lèi)模塊中的聲明節(jié)中的代碼行數(shù)。Long 型,只讀。
expression.CountOfDeclarationLines
expression 必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。
AllForms 屬性僅在使用 Visual Basic 時(shí)才可用,并且是只讀屬性。
模塊中的行從 1 開(kāi)始編號(hào)。
CountOfDeclarationLines 屬性值等于聲明節(jié)中最后一行的行數(shù),此屬性可以用來(lái)確定聲明節(jié)結(jié)束的位置和模塊主體開(kāi)始的位置。
以下示例將計(jì)算 Modules 集合中每個(gè)標(biāo)準(zhǔn)模塊的行數(shù)和聲明的行數(shù)。請(qǐng)注意,Modules 集合只包含在模塊編輯器中打開(kāi)的模塊。
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