Module.ProcCountLines 屬性 (Access)
ProcCountLines 屬性會傳回指定程序在標準模組或類別模組中的行數。 唯讀的 Long。
語法
運算式。ProcCountLines (ProcName、 ProcKind)
表達 代表 Module 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| ProcName | 必要 | 字串 | 程序在模組中的名稱。 |
| ProcKind | 必要 | vbext_ProcKind | 程序的類型。 請參閱這些可能設定的「備註」小節。 |
註解
ProcKind引數可以是下列其中一個vbext_ProcKind常數。
| 常數 | 描述 |
|---|---|
| vbext_pk_Get | Property Get 程序。 |
| vbext_pk_Let | Property Let 程序。 |
| vbext_pk_Proc | Sub 或 Function 程序。 |
| vbext_pk_Set | Property Set 程序。 |
程序以任何在程序定義之前的備註和編譯常數開始，以下列其中一項表示：
- Sub語句
- Function語句
- Property Get語句
- Property Let 語句
- Property Set 語句
ProcCountLines 屬性傳回程序中的行數，以 ProcStartLine 屬性所傳回的行開始並且以程序的最後一行作為結束。 該程序可以以End Sub、End Function 或 End Property 做為結束。
注意事項
ProcCountLines 屬性會以類似方式處理 Sub 及 Function 程序，但會區別 Property 程序的每個類型。
範例
下列範例顯示的訊息，會指出指定程序的行數。
Dim strForm As String
Dim strProc As String
strForm = "Products"
strProc = "Form_Activate"
MsgBox "There are " & Forms(strForm).Module.ProcCountLines(strProc, vbext_pk_Proc) & _
" lines in the " & strProc & " procedure."
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。