ProcCountLines 屬性

全部顯示

ProcCountLines 屬性返回一個 Long 值，該值包含標準模塊或類模塊中一個指定過程的行數(shù)。只讀。

expression.ProcCountLines(ProcName, ProcKind)

expression     必需。返回“應用于”列表中的一個對象的表達式。

ProcName     必需 String 型。模塊中過程的名稱。

ProcKind     必需 vbext_ProcKind 型。過程的類型。該常量可以是下列值之一：

 

說明

ProcCountLines 屬性僅在使用 Visual Basic 時才可用。

過程以說明語句和編譯常量打頭，然后是下列一個語句表示的過程定義：

 

 

 

 

ProcCountLines 屬性返回過程中的行數(shù)，這些行以 ProcStartLine 屬性返回的行開始，以過程的最后一行結束。過程可以使用 End Sub、End Function 或 End Property 語句來結束。

注釋 ProcCountLines 屬性不區(qū)分 Sub 和 Function 過程，但是區(qū)分 Property 過程的每一類型。

示例

下面的示例將顯示一條消息，表明給定過程中的行數(shù)。

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."