ProcBodyLine 屬性

全部顯示

ProcBodyLine 屬性返回一個(gè) Long 值，該值包含標(biāo)準(zhǔn)模塊或類模塊中一個(gè)指定過(guò)程主體開始的行號(hào)。只讀。

expression.ProcBodyLine(ProcName, ProcKind)

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

ProcName     必需 String 型。模塊中過(guò)程的名稱。

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

說(shuō)明

ProcBodyLine 屬性僅在使用 Visual Basic 時(shí)才可用。

過(guò)程主體以過(guò)程定義開始，并用下列一個(gè)語(yǔ)句來(lái)表示：

 

 

 

 

ProcBodyLine 屬性返回標(biāo)識(shí)過(guò)程定義起始行的行號(hào)。與此不同，ProcStartLine 屬性返回標(biāo)識(shí)某過(guò)程與模塊中前一個(gè)過(guò)程分隔處的行號(hào)。在過(guò)程定義（過(guò)程的主體）之前的任何說(shuō)明語(yǔ)句或編譯常量都被認(rèn)為是過(guò)程的一部分，但 ProcBodyLine 屬性則忽略它們。

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

示例

下面的示例將顯示一條消息，表明過(guò)程的定義從哪行開始。

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