VB.NET动态事件具体处理方式详解-vb.net 自定义事件

VB.NET编程语言的推出为开发人员带来了非常大的好处。在这里我们将会对VB.NET动态事件的一些使用技巧进行一个详细的介绍，希望能够对初学者在学习的过程有所帮助，提高大家对这项语言的理解程度。#t#

“大李哥，”我不免为自己问了如此多的问题而不好意思起来，“您刚才所说的事件的委托是怎么回事呀？”

大李显然是明白我会提问的：“我所说过事件驱动设计中的三要素你还记得吧？”

“当然，就是指对象、事件和事件处理程序。”我流利地回答道。

“对象和事件处理程序我们已经分析过了。要想彻底了解VB.NET动态事件的驱动程序的来龙去脉，我们必须了解事件的构成。”见到我又一次茫然地摇头，他就接着说，“事件功能是由三个互相联系的元素提供的：提供事件数据的类、事件委托和引发事件的类。我说过，事件就是一个信号，它告知应用程序有重要情况要发生。那么我们可以想象一下，事件要发生，就会含有独特的信息，比如，事件发送源是什么，会发生什么样的事件。提供事件数据的类就是用于记录这些信息的。

该类必须从 System.EventArgs 派生出，这个我们已经说过了；事件的委托，这其实我也说过了，就好比是指向事件接收方的一个指针，由于指定对象的事件是独特的，所以它的委托也是事先定义好的，就比如MouseDown事件，它对应的委托就是MouseEventHandler。我们看一下你在代码窗口选Label1对象的MouseDown方法，会自动生成这段空的事件处理程序：

Friend WithEvents Label1 As 
System.Windows.Forms.Label  
Private Sub Label1_MouseDown
(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.Mouse
EventArgs) Handles Label1.MouseDown  
End Sub 
1.
2.
3.
4.
5.
6.
7.

它其实就等同于：

AddHandler Label1.MouseDown, 
AddressOf Label1_MouseDown  
Private Sub Label1_MouseDown
(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.MouseEventArgs)  
End Sub 
1.
2.
3.
4.
5.
6.

隐含的意思，就是通过先前已经声明为全局变量的VB.NET动态事件委托MouseEventHandler来实现事件处理程序参数的定义。对于MouseDown事件而言，为什么自动加上的事件数据类参量是MouseEventArgs类的，就是委托的作用了。

第三个要素是引发事件的类。该类必须提供事件的声明和引发事件的方法。其中引发事件的方法必须命名为On加上事件名的形式，比如事件是EventHR，那么引发事件的方法就一定叫OnEventHR。”

一边说着，大李开始修改起刚才用于标准事件处理程序的代码来：

Module Module1  
'事件数据类  
Public Class HenryEventArgs  
Inherits EventArgs  
End Class  
'声明委托  
Public Delegate Sub HenryEvent
Handler(ByVal sender As Object, _  
ByVal e As HenryEventArgs)  
Public Class CHenry  
' 声明一个事件  
Public Event EventHR As 
HenryEventHandler  
Protected Overridable Sub 
OnEventHR(ByVal e As HenryEventArgs)  
'调用委托  
RaiseEvent EventHR(Me, e)  
End Sub  
Public Sub start()  
Dim e As HenryEventArgs  
OnEventHR(e)  
End Sub  
End Class  
Dim obj As New CHenry()  
Sub obj_EventHR(ByVal 
sender As Object, ByVal 
e As HenryEventArgs)  
MsgBox("事件处理器捕捉到了
事件.") '处理事件.  
End Sub  
Sub Main()  
AddHandler obj.EventHR, 
AddressOf obj_EventHR  
obj.start()  
End Sub  
End Module 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.

大李指着写好的代码对我说：“你看，这段代码与先前的不同之处有不少。首先EventHR事件我定义为一个委托类型，不再是光秃秃的一个VB.NET动态事件了。这样的话，EventHR事件就具有了承载事件信息的能力，事件发送源是Sender；事件数据是HenryEventArgs类的对象。其他的你应该都能很快就明白了，对吧？”

“嗯，还有一个问题，为什么引发事件的方法OnEventHR要用保护的方法呢？”我还是有些不解。

“这个问题问得好！”大李点了点头，“这是为了让派生类必须始终调用基类的OnEventHR方法以确保注册的委托接收到事件。你只要试一下，继承CHenry得到一个派生类进行事件处理，就会明白了。”

哦，一个VB.NET动态事件驱动程序设计方法的讲述的确让我大开眼界，打开了一扇了解VB.NET的广阔天空的大门，继续努力，我还得加油呀!