Propiedad Module.ProcOfLine (Access)
La propiedad ProcOfLine devuelve el nombre del procedimiento que contiene una línea especificada en un módulo estándar o un módulo de clase. String de sólo lectura
Sintaxis
expresión. ProcOfLine (Line, ProcKind)
Expresión Variable que representa un objeto Module .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Line | Obligatorio | Long | El número de una línea 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 constantes siguientes 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. |
Para cualquier número de línea dado, la propiedad ProcOfLine devuelve el nombre del procedimiento que contiene esa línea. Dado que los comentarios y las constantes de compilación inmediatamente anteriores a una definición de procedimiento se consideran parte de ese procedimiento, la propiedad ProcOfLine puede devolver el nombre de un procedimiento para una línea que no está dentro del cuerpo del procedimiento.
La propiedad ProcStartLine indica la línea en la que comienza un procedimiento; la propiedad ProcBodyLine indica la línea en el que comienza en la definición de procedimiento (el cuerpo del procedimiento).
Tenga en cuenta que el argumento ProcKind indica si la línea pertenece a un procedimiento Sub o Function , un procedimiento Property Get , un procedimiento Property Let o un procedimiento Property Set . Para determinar en qué tipo de procedimiento se encuentra una línea, pase una variable de tipo Long a la propiedad ProcOfLine y, a continuación, compruebe el valor de esa variable.
Nota:
La propiedad ProcOfLine trata los procedimientos Sub y Function de forma similar, pero distingue entre cada tipo de procedimiento Property.
Ejemplo:
El siguiente procedimiento de función enumera los nombres de todos los procedimientos de un módulo especificado.
Public Function AllProcs(ByVal strModuleName As String)
Dim mdl As Module
Dim lngCount As Long
Dim lngCountDecl As Long
Dim lngI As Long
Dim strProcName As String
Dim astrProcNames() As String
Dim intI As Integer
Dim strMsg As String
Dim lngR As Long
' Open specified Module object.
DoCmd.OpenModule strModuleName
' Return reference to Module object.
Set mdl = Modules(strModuleName)
' Count lines in module.
lngCount = mdl.CountOfLines
' Count lines in Declaration section in module.
lngCountDecl = mdl.CountOfDeclarationLines
' Determine name of first procedure.
strProcName = mdl.ProcOfLine(lngCountDecl + 1, lngR)
' Initialize counter variable.
intI = 0
' Redimension array.
ReDim Preserve astrProcNames(intI)
' Store name of first procedure in array.
astrProcNames(intI) = strProcName
' Determine procedure name for each line after declarations.
For lngI = lngCountDecl + 1 To lngCount
' Compare procedure name with ProcOfLine property value.
If strProcName <> mdl.ProcOfLine(lngI, lngR) Then
' Increment counter.
intI = intI + 1
strProcName = mdl.ProcOfLine(lngI, lngR)
ReDim Preserve astrProcNames(intI)
' Assign unique procedure names to array.
astrProcNames(intI) = strProcName
End If
Next lngI
strMsg = "Procedures in module '" & strModuleName & "': " & vbCrLf & vbCrLf
For intI = 0 To UBound(astrProcNames)
strMsg = strMsg & astrProcNames(intI) & vbCrLf
Next intI
' Message box listing all procedures in module.
MsgBox strMsg
End Function
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.