2009-03-20 VB定义事件

       下面演示下怎样在VB定义事件:

1. 新建一个VB EXE 工程.

2. 添加一个类，命名为ITest,代码为：

Option Explicit

Public Event TestEvent()

Public Function TestFunction() As Boolean
    RaiseEvent TestEvent
End Function

3. 添加一个窗体，命名为frmMain,在窗体上放置一个Button，命名为cmdTest,窗体的代码为：

Option Explicit

Private WithEvents Test As ITest

Private Sub cmdTest_Click()
    Set Test = New ITest
    Call Test.TestFunction
End Sub

Private Sub Test_TestEvent()
    MsgBox "Raise event.", vbOKOnly, "VBEvents"
End Sub

3. 运行程序，点击Button,就可以看到事件被触发了。