Свойство Module.ProcCountLines (Access)

Статья
04/07/2023

Свойство ProcCountLines возвращает количество строк в указанной процедуре в стандартном модуле или модуле класса. Только для чтения, Long.

Синтаксис

expression. ProcCountLines (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

Свойство ProcCountLines возвращает количество строк в процедуре, начиная со строки, возвращаемой свойством ProcStartLine , и заканчивая строкой, которая завершает процедуру. Процедура может быть завершена с помощью End Sub, Функции End или End Property.

Примечание.

Свойство ProcCountLines обрабатывает процедуры Sub и Function аналогичным образом, но различает каждый тип процедуры Property.

Пример

В следующем примере отображается сообщение, указывающее количество строк в данной процедуре.

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."

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через