Свойство Module.ProcBodyLine (Access)
Свойство ProcBodyLine возвращает номер строки, с которой тело указанной процедуры начинается в стандартном модуле или модуле класса. Только для чтения, Long.
Синтаксис
expression. ProcBodyLine (ProcName, ProcKind)
Выражение Переменная, представляющая объект Module .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
ProcName | Обязательный | String | Имя процедуры в модуле. |
ProcKind | Обязательный | vbext_ProcKind | Тип процедуры. Возможные параметры см. в разделе Примечания. |
Замечания
Аргумент ProcKind может быть одной из следующих vbext_ProcKind констант.
Константа | Описание |
---|---|
vbext_pk_Get | Процедура Property Get . |
vbext_pk_Let | Процедура Property Let . |
vbext_pk_Proc | Процедура Sub или Function . |
vbext_pk_Set | Процедура набора свойств . |
Текст процедуры начинается с определения процедуры, обозначаемого одним из следующих элементов:
- Оператор Sub
- Оператор Function
- Оператор Property Get
- Оператор Property Let
- Оператор Property Set
Свойство ProcBodyLine возвращает число, определяющее строку, с которой начинается определение процедуры. Напротив, свойство ProcStartLine возвращает число, идентифицирующее строку, в которой процедура отделена от предыдущей процедуры в модуле. Все примечания или константы компиляции, которые предшествуют определению процедуры (текст процедуры), считаются частью процедуры, но свойство ProcBodyLine игнорирует их.
Примечание.
Свойство ProcBodyLine обрабатывает процедуры Sub и Function аналогичным образом, но различает каждый тип процедуры Property.
Пример
В следующем примере отображается сообщение, указывающее, с какой строки начинается определение процедуры.
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) & "."
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по