ProcBodyLine 属性返回一个 Long 值,该值包含标准模块或类模块中一个指定过程主体开始的行号。只读。
expression.ProcBodyLine(ProcName, ProcKind)
expression 必需。返回“应用于”列表中的一个对象的表达式。
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 过程。 |
ProcBodyLine 属性仅在使用 Visual Basic 时才可用。
过程主体以过程定义开始,并用下列一个语句来表示:
? | Sub 语句。 |
? | Function 语句。 |
? | Property Get 语句。 |
? | Property Let 语句。 |
? | Property Set 语句。 |
ProcBodyLine 属性返回标识过程定义起始行的行号。与此不同,ProcStartLine 属性返回标识某过程与模块中前一个过程分隔处的行号。在过程定义(过程的主体)之前的任何说明语句或编译常量都被认为是过程的一部分,但 ProcBodyLine 属性则忽略它们。
注释 ProcBodyLine 属性不区分 Sub 和 Function 过程,但是区分 Property 过程的每一类型。
下面的示例将显示一条消息,表明过程的定义从哪行开始。
Dim strForm As String
Dim strProc As String
strForm = "Products"
strProc = "Products_Subform_Enter"
MsgBox "The definition of the " & strProc & " procedure begins on line " & _
Forms(strForm).Module.ProcStartLine(strProc, vbext_pk_Proc) & "."