CreateEventProc 方法

全部顯示

CreateEventProc 方法在類模塊中創(chuàng)建一個(gè)事件過程。它返回一個(gè) Long 型值來標(biāo)識(shí)事件過程首行的行號。Long 型。

expression.CreateEventProc(EventName, ObjectName)

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對象的表達(dá)式。

EventName     必需 String 型。字符串表達(dá)式，用于確定事件的名稱。

ObjectName     必需 String 型。含有由 eventname   參數(shù)所指定事件的對象。可以是 Form、Report 或 Control 對象，窗體節(jié)或報(bào)表節(jié)，也可以是類模塊。

說明

CreateEventProc 方法為指定對象的事件過程創(chuàng)建代碼承接模塊。例如，可以使用該方法為窗體上的命令按鈕創(chuàng)建 Click 事件過程。Microsoft Access 在命令按鈕所在窗體的相關(guān)模塊中創(chuàng)建 Click 事件過程。

如果使用 CreateEventProc 方法創(chuàng)建了事件過程代碼承接模塊，則可以使用 Module 對象的其他方法為過程添加代碼行。例如，可以使用 InsertLines 方法插入一行代碼。

示例

下面的示例將創(chuàng)建新窗體、添加命令按鈕并為命令按鈕創(chuàng)建 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