共用方式為


Module.CountOfLines 屬性 (Access)

CountOfLines 屬性會傳回 Long 值,表示在標準模組或類別模組中的程式碼行數。 唯讀的 Long

語法

運算式CountOfLines

表達 代表 Module 物件的變數。

註解

模組之中的行號是從 1 開始的。

在模組中的最後一行的行數就是 CountOfLines 屬性的值。

範例

下列範例會計算線條及 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應