Метод Module.CreateEventProc (Access)

Метод CreateEventProc создает процедуру события в модуле класса.

Синтаксис

expression. CreateEventProc (EventName, ObjectName)

Выражение Переменная, представляющая объект Module .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
EventName	Обязательный	String	Имя события.
ObjectName	Обязательный	String	Объект с событием, заданным аргументом EventName . Если процедура события добавляется в Форму, для этого аргумента должно быть указано слово Form. Если процедура события добавляется в отчет, для этого аргумента должно быть указано слово "Report". Если процедура события добавляется в элемент управления, для этого аргумента должно быть указано имя элемента управления.

Возвращаемое значение

Длинное целое

Замечания

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

Метод CreateEventProc создает заглушку кода для процедуры события для указанного объекта. Например, этот метод можно использовать для создания процедуры события Click для кнопки команды в форме. Microsoft Access создает процедуру события Click в модуле, связанном с формой, содержащей кнопку команды.

После создания заглушки кода процедуры события с помощью метода CreateEventProc можно добавить строки кода в процедуру с помощью других методов объекта Module . Например, для вставки строки кода можно использовать метод InsertLines .

Пример

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

Function ClickEventProc() As Boolean 
 Dim frm As Form, ctl As Control, mdl As Module 
 Dim lngReturn As Long 
 
 On Error GoTo Error_ClickEventProc 
 ' Create new form. 
 Set frm = CreateForm 
 ' Create command button on form. 
 Set ctl = CreateControl(frm.Name, acCommandButton, , , , _ 
 1000, 1000) 
 ctl.Caption = "Click here" 
 ' Return reference to form module. 
 Set mdl = frm.Module 
 ' Add event procedure. 
 lngReturn = mdl.CreateEventProc("Click", ctl.Name) 
 ' Insert text into body of procedure. 
 mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Way cool!""" 
 ClickEventProc = True 
 
Exit_ClickEventProc: 
 Exit Function 
 
Error_ClickEventProc: 
 MsgBox Err & " :" & Err.Description 
 ClickEventProc = False 
 Resume Exit_ClickEventProc 
End Function

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

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