Access VBA教程:ProcCountLines属性

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 SubEnd FunctionEnd Property 语句来结束。

注意   ProcCountLines属性不区分 Sub 和 Function 过程,但是区分 Property 过程的每一类型。

VBA示例

下面的示例将显示一条消息,表明给定过程中的行数。

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


上页:Access VBA教程:ProcBodyLine属性 下页:Access VBA教程:ProcOfLine属性

Access VBA教程:ProcCountLines属性

Access VBA教程:ProcOfLine属性 Access VBA教程:ProcStartLine属性
Access VBA教程:ProductCode属性 Access VBA教程:ProjectName属性
Access VBA教程:ProjectType属性 Access VBA教程:Properties属性
Access VBA教程:PrtDevMode属性 Access VBA教程:PrtDevNames属性
Access VBA教程:PrtMip属性 Access VBA教程:Query属性
Access VBA教程:ReadingOrder属性 Access VBA教程:ReadyState属性 (Snapshot Viewer)
Access VBA教程:RecordLocks属性 Access VBA教程:RecordSelectors属性
Access VBA教程:Recordset属性 Access VBA教程:RecordsetClone属性
Access VBA教程:RecordsetType属性 Access VBA教程:RecordSource属性
Access VBA教程:RecordSourceQualifier属性 Access VBA教程:References属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号