Propiedad Module.ProcCountLines (Access)
La propiedad ProcCountLines devuelve el número de líneas de un procedimiento especificado de un módulo estándar o un módulo de clase. Long de sólo lectura.
Sintaxis
expresión. ProcCountLines (ProcName, ProcKind)
Expresión Variable que representa un objeto Module .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| ProcName | Obligatorio | String | El nombre de un procedimiento del módulo. |
| ProcKind | Obligatorio | vbext_ProcKind | El tipo de procedimiento. Vea la sección Comentarios para los valores posibles. |
Comentarios
El argumento ProcKind puede ser una de las siguientes constantes de vbext_ProcKind .
| Constante | Descripción |
|---|---|
| vbext_pk_Get | Un procedimiento Property Get. |
| vbext_pk_Let | Un procedimiento Property Let. |
| vbext_pk_Proc | Un procedimiento Sub o Function. |
| vbext_pk_Set | Un procedimiento Property Set. |
El procedimiento comienza por los comentarios y las constantes de compilación que preceden inmediatamente a la definición de procedimiento, indicada por una de las siguientes instrucciones:
- Una instrucción Sub
- Una instrucción Function
- Una instrucción Get de propiedad
- Una instrucción Let de propiedad
- Una instrucción Property Set
La propiedad ProcCountLines devuelve el número de líneas de un procedimiento, comenzando por la línea devuelta por la propiedad ProcStartLine y terminando por la línea que termina el procedimiento. El procedimiento puede terminar con End Sub, End Function o End Property.
Nota:
La propiedad ProcCountLines trata los procedimientos Sub y Function de forma similar, pero distingue entre cada tipo de procedimiento Property.
Ejemplo:
En el ejemplo siguiente se muestra un mensaje que indica el número de líneas de un procedimiento determinado.
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."
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.