全部显示

ProcCountLines 属性返回一个 Long 值，该值包含标准模块或类模块中一个指定过程的行数。只读。

expression.ProcCountLines(ProcName, ProcKind)

expression     必需。返回“应用于”列表中的一个对象的表达式。

ProcName     必需 String 型。模块中过程的名称。

ProcKind     必需 vbext_ProcKind 型。过程的类型。该常量可以是下列值之一：

 

说明

ProcCountLines 属性仅在使用 Visual Basic 时才可用。

过程以说明语句和编译常量打头，然后是下列一个语句表示的过程定义：

 

 

 

 

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