标准|程序
Henry的VB.NET之旅（十三）—标准事件处理程序
韩睿
“感兴趣就好！”大李微微点点头，然后问我道，“你知道程序是怎么知道哪些对象可以引发何种事件，以及怎么样把事件和事件处理程序关联起来？”
见到我迷茫的眼神，大李用鼠标点击打开被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
“你要注意的是怎么样通过RaiseEvent来引发事件，另外一个很简单的问题也需要注意的是，事件处理程序的命名一般是用‘对象名_事件名’的方式。”大李边写程序边指点说。
“事件的声明和引发是只能在一个层次内，还是可以在派生类里引发基类的事件？”我不由好奇地问。
“你开始学会思考了，”大李不知道是不是在嘲笑我，“VB.NET要求必须在声明事件的范围内引发事件。派生类不能引发从基类继承的事件，但是可以处理基类引发的事件。我们可以来看一个示例。”大李马上对刚写的代码进行了修改：
Module Module1
Public Class CHenry
Public Event EventHR() ' 声明一个事件
Sub CauseSomeEvent()
RaiseEvent EventHR() ' 引发事件
End Sub
End Class
Public Class Class2 ‘从Chenry派生而来的类
Inherits CHenry
Sub Obj_EventHR() Handles MyBase.EventHR
MsgBox("事件处理器捕捉到了事件.") '处理事件.
End Sub
End Class
WithEvents Obj As New Class2() '模块或类级别的声明
Sub Main()
Obj.CauseSomeEvent() '调用对象去引发事件
End Sub
End Module
“还记得我跟你说过MyBase的意义了吧？（注：详见《构造与析构》一篇）我们可以添加 Handles MyBase.<event name> 语句来声明派生类中的事件处理程序。问一个基本的问题，你看obj是Class2类的一个实例对吧？但为什么它也具有Chenry类才有的CauseSomeEvent方法？”大李说得我眼球都快掉下来了。
“当然是因为Class2是CHenry类的派生类，继承了它的方法呗。”我神情极为沮丧。
“哈哈，别急呀，在VB.NET中我们最常碰到的就是面向对象的问题。不断回顾有好处，温故而知新！”大李最后的微笑对我倒不啻为一句忠告。要学好VB.NET，我还真得好好复习一下面向对象的内容。
大李话题一转，淡淡地跟我说：“WithEvents 语句和 Handles 子句提供了标准的陈述性指定事件处理程序的方法。也就是如何把对象的事件和某一个事件处理程序进行关联。WithEvents 所声明对象引发的事件可以由任何过程用命名此事件的 Handles 子句来处理。换句话说，有Handles子句标识的事件处理程序也只能处理由WithEvents声明的对象。虽然 Handles 子句是关联事件与事件处理程序的标准方法，它仅限于在编译时关联事件与事件处理程序。还有一种方法可以允许在运行时动态地将事件与一个或更多的事件处理程序连接或者断开，而并不要求使用 WithEvents 来声明对象变量。”
“是吗？”我一下子从沉思中惊醒过来，好奇心又一次袭来。
（未完待续）