“感兴趣就好！”大李微微点点头，然后问我道，“你知道程序是怎么知道哪些对象可以引发何种事件，以及怎么样把事件和事件处理程序关联起来？”

　　见到我迷茫的眼神，大李用鼠标点击打开被region合起来的“windows 窗体设计器生成的代码”，指着中间的一句自动生成的代码：

　　friend withevents button1 as system.windows.forms.button

　　“当你在设计窗口往窗体上添加了一个按钮后，会自动在代码中加入这句代码，friend 关键字授予对一个或多个所声明的编程元素的友元访问权限。那么withevent是干什么的？”

　　我立刻在帮助中查找，有了：

　　withevents 关键字指示被声明的对象变量引用可以引发事件的类实例。

　　“明白了，”我也不能总傻听着，“在声明对象的时候用withevents来进行标识，再在事件处理程序中的过程声明结尾处使用 handles 关键字将就可以处理由使用 withevents 关键字声明的对象变量所引发的事件了。”

　　“没错，你看来我写一段代码，使用的就是withevent-handles的方法来处理事件。类名为chenry吧，它内含一个事件eventhr。”

module module1
　　　　 public class chenry
　　　　　　　 public event eventhr()　　　 ´ 声明一个事件
　　　　　　　 sub causesomeevent()
　　　　　　　　　　　 raiseevent eventhr()　　 ´ 引发事件
　　　　　　　 end sub
　　　 end class
　
　　　 withevents obj as new chenry()　　 ´模块或类级别的声明
　　　 sub obj_eventhr() handles obj.eventhr ´在handles之后声明事件
　　　　　　　 msgbox("事件处理器捕捉到了事件.")　　 ´处理事件.
　　　 end sub
　　　 sub main()
　　　　　　　 obj.causesomeevent()　　 ´调用对象去引发事件
　　　 end sub
end module

编缉推荐阅读以下文章

• VB.NET之旅（十五）—动态事件处理方法
• vb.net之旅（十四）—动态关联事件与处理程序
• VB.NET之旅（十二）—事件驱动
• VB.NET之旅（十一）—可视继承
• VB.NET之旅（十）—何时用接口
• VB.NET之旅（九）—接口继承
• VB.NET之旅（八）—接口
• VB.NET之旅（七）—脆弱的基类
• VB.NET之旅（六）—重载与隐藏
• VB.NET之旅（五）—类的继承