Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Свойство 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 и обратная связь.