ProcCountLines 属性返回一个 Long 值,该值包含标准模块或类模块中一个指定过程的行数。只读。
expression.ProcCountLines(ProcName, ProcKind)
expression 必需。返回“Applies To”列表中的一个对象的表达式。
ProcName 必需 String 型。模块中过程的名称。
ProcKind 必需 vbext_ProcKind 型。过程的类型。该常量可以是下列值之一:
常量 | 说明 |
---|---|
vbext_pk_Get | Property Get 过程。 |
vbext_pk_Let | Property Let 过程。 |
vbext_pk_Proc | Sub 或 Function 过程。 |
vbext_pk_Set | Property Set 过程。 |
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."