Module.ProcCountLines 属性 (Access)
ProcCountLines 属性返回标准模块或类模块中一个指定过程的行数。 只读 Long。
语法
表达式。ProcCountLines (ProcName、 ProcKind)
表达 一个代表 Module 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| ProcName | 必需 | 字符串 | 模块中过程的名称。 |
| ProcKind | 必需 | vbext_ProcKind | 过程的类型。 有关可能的设置，请参阅“备注”部分。 |
备注
ProcKind 参数可以是以下vbext_ProcKind常量之一。
| 常量 | 说明 |
|---|---|
| vbext_pk_Get | Get 属性 过程。 |
| vbext_pk_Let | Let 属性 过程。 |
| vbext_pk_Proc | 子程序 或 函数 的过程。 |
| vbext_pk_Set | 设置属性 的过程。 |
过程以说明语句和编译常量打头，然后是下列一个语句表示的过程定义：
- Sub 语句
- 函数语句
- Property Get 语句
- Property Let 语句
- 属性集语句
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."
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。