在学习了VB.NET这门编程语言后，大家会慢慢的发现这门语言中隐藏的知识是很广的，有很多功能值得我们去深入的研究。比如VB.NET Override就是其中一个比较难掌握的知识点。在类或控件的继承中，子类或子控件封装了父类的所有函数，其中包括事件处理程序。本文将着重讨论事件处理程序的VB.NET Override实现方法。

继承事件处理程序

当组件被继承时，它的所有成员都被封装到子类中。事件处理程序是响应特定事件的方法，是组件成员之一，因而也被继承。请看一个典型的事件处理程序：

Private Sub Button1_Click(ByVal 
sender As System.Object, 
ByVal e as _   
System.EventArgs) Handles
 Button1.Click   
Static Counter as Integer = 0   
Counter += 1   
MessageBox.Show (" This button
 has been clicked " & _   
Counter.ToString() & " times.")   
End Sub  

我们看到，宣告部分末尾的 Handles 子句把处理程序关联到特定的事件上。具体而言，上述代码将在 Button1.Click 事件发生时运行。这就是用于定义事件处理程序的典型语法。

为了实现VB.NET Override，你必须使用 Overridable 关键字，并且重新定义其可见性为 Protected 、 Protected Friend 或者 Public 。下面示范如何 override 事件处理程式：

Protected Overridable Sub 
Button1_Click(ByVal sender 
As System.Object, _   
ByVal e as System.EventArgs) 
Handles Button1.Click   
Static Counter as Integer = 0   
Counter += 1   
MessageBox.Show (" This button 
has been clicked " & _   
Counter.ToString() & " times.")   
End Sub  

在组件中继承事件处理程序

事件处理程序的VB.NET Override固然与其它方法的 override 大同小异，有一点却不得不提：在 override 事件处理程序时必须除去 Handles 子句。

如何 override 组件的事件处理程序

1) 在事件处理程序的宣告部分加入 Overrides 关键字

请注意：不要附加 Handles 子句。因为父类的处理程序已经关联了特定事件，子类将继承这一切。换句话说，父类所关联的事件可以激活子类的处理程序，因而这里的 Handles 子句是多余的。

下面示范如何 override 前述事件处理程序：

Protected Overrides Sub 
Button1_Click(ByVal sender 
As System.Object, _   
ByVal e as System.EventArgs)   
Static Counter as Integer = 0   
Counter += 1   
MessageBox.Show (" This inherited 
button has been clicked " & _   
Counter.ToString() & " times.")   
End Sub  

2) 为什么不需要 Handles 子句

前面提到，我们没有使用关联事件的 Handles 子句并不是一个疏漏，而是由 .NET 框架的事件处理机制所决定的。父类中的 Handles 子句将事件处理程序关联到特定事件上，这种关联将被子类继承。因此，即令子类中没有 Handles 子句，父类所关联的事件也能激活子类的事件处理程序。倘若此时加上 Handles 子句，则处理程序将被再次关联到事件上。重复关联的后果是处理程序将被连续激活两次。例如：

' 错误的代码   
Protected Overrides Sub 
Button1_Click(ByVal sender As 
System.Object, _   
ByVal e as System.EventArgs) Handles
 Button1.Click   
Static Counter as Integer = 0   
' 本例中使用了 Handles 子句，   
' 因而每当按钮 Button1 被点击一次，   
' 变量 Counter 将会增加两次 ；   
Counter += 1   
' 消息框也会弹出两次，   
' 显示的内容也将违背设计意图   
MessageBox.Show (" This inherited 
button has been clicked " & _   
Counter.ToString() & " times.")   
End Sub  

结论

在 Visual Basic .NET 中，事件处理程序的VB.NET Override可能造成难以侦错的 bug 。例如在使用 Handles 子句关联事件处理程序时就要格外小心，以免发生重复关联。