Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Свойство 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 и обратная связь.