Access VBA教程:CreateEventProc方法

CreateEventProc方法在类模块中创建一个事件过程。它返回一个Long 型值来标识事件过程首行的行号。Long 型。

expression.CreateEventProc(EventName, ObjectName)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

EventName  必需 String 型。字符串表达式,用于确定事件的名称。

ObjectName  必需 String 型。含有由 eventname参数所指定事件的对象。可以是FormReportControl对象,窗体节报表节,也可以是类模块。

说明

CreateEventProc方法为指定对象的事件过程创建代码承接模块。例如,可以使用该方法为窗体上的命令按钮创建 Click事件过程。Microsoft Access 在命令按钮所在窗体的相关模块中创建 Click事件过程。

如果使用 CreateEventProc方法创建了事件过程代码承接模块,则可以使用 Module对象的其他方法为过程添加代码行。例如,可以使用InsertLines方法插入一行代码。

VBA示例

下面的示例将创建新窗体、添加命令按钮并为命令按钮创建 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

上页:Access VBA教程:CreateDataAccessPage方法 下页:Access VBA教程:CreateForm方法

Access VBA教程:CreateEventProc方法

Access VBA教程:CreateForm方法 Access VBA教程:AddFromFile方法
Access VBA教程:AddFromGuid方法 Access VBA教程:CreateGroupLevel方法
Access VBA教程:CreateNewDocument方法 Access VBA教程:CreateNewWorkgroupFile方法
Access VBA教程:CreateReport方法 Access VBA教程:CreateReportControl方法
Access VBA教程:CurrentDb方法 Access VBA教程:CurrentUser方法
Access VBA教程:DAvg方法 Access VBA教程:DCount方法
Access VBA教程:DDEExecute方法 Access VBA教程:DDEInitiate方法
Access VBA教程:DDEPoke方法 Access VBA教程:DDERequest方法
Access VBA教程:DDETerminate方法 Access VBA教程:DDETerminateAll方法
Access VBA教程:DefaultControl属性 Access VBA教程:DefaultWorkspaceClone方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号