通过

Module.CreateEventProc 方法 (Access)

CreateEventProc 方法创建一个类模块中的事件过程。

语法

表达式。CreateEventProc (EventName、 ObjectName)

表达 一个代表 Module 对象的变量。

参数

名称 必需/可选 数据类型 说明
EventName 必需 String 一个事件的名称。
ObjectName 必需 字符串 具有 EventName 参数指定的事件的 对象。

如果正在向 Form 对象添加该事件过程，则应为该参数指定"Form"一词。 如果正在向 Report 对象添加该事件过程，则应为该参数指定"Report"一词。 如果正在向 Control 对象添加该事件过程，则应为该参数指定该控件的名称。

返回值

Long

备注

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。