接收异步通知事件

当使用事件进行异步通知时，部件作者已做完了大部分工作。建立客户来接收事件变得非常容易。

注意 本主题是逐步创建 ActiveX EXE 示例过程的一部分。选择“创建 ActiveX EXE 部件”，开始本主题。

要在 CoffeeWatch 中接收 CoffeeReady 事件，请按照以下步骤执行：

1. 切换到已加载 CoffeeWatch 工程的 Visual Basic 实例。
   
   
2. 在 CoffeeWatch 工程的“工程资源管理器”窗口中，右键单击“Form1”打开上下文菜单，并选择“查看代码”打开代码窗口。注释那两个按钮的 Click 事件的代码。
   
   
3. 声明段中的代码修改为：

   Option Explicit
   Private WithEvents mwcmnTest As CoffeeMonitor
   

   注意 mwcmnTest 变量中加入了字母‘w’，用来提醒作者这是个 WithEvents 变量。这是某个作者的个人习惯。字符串‘cmn’用来说明变量是 CoffeeMonitor 类型的。

4. 往 Form1 的 Load 事件中添加如下代码，用来创建新的 CoffeeMonitor 对象，并将它赋给 WithEvents 变量。在运行时，当出现赋值的情况，Visual Basic 就将对象的事件连接到它们的事件过程上。

   Private Sub Form_Load()
   Set mwcmnTest = New CoffeeMonitor
   End Sub
   

5. 在“对象”下拉菜单中，选中“mwcmnTest”获得对它的事件过程的访问。在 CoffeeReady 事件中添加如下代码。

   Private Sub mwcmnTest_CoffeeReady()
   MsgBox "COFFEE!"
   End Sub
   

6. 按 F5 键运行工程。

   每隔十秒，将收到来自 Coffee 的通知。在此期间，CoffeeWatch 没有被阻塞，可以移动它或调整它的大小，并单击其按钮。

7. 关闭 CoffeeWatch 窗体，回到设计状态。

循序渐进

本主题是逐步创建 ActiveX EXE 示例过程的一部分。