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.MouseEventArgs) Handles Label1.MouseDown
End Sub

它其實就等同於：

AddHandler Label1.MouseDown, 

AddressOf Label1_MouseDown
Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As _
System.Windows.Forms.MouseEventArgs)
End Sub

隱含的意思，就是通過先前已經聲明為全局變量的事件委托 MouseEventHandler來實現事件處理程序參數的定義。對於MouseDown事件而言， 為什麼自動加上的事件數據類參量是MouseEventArgs類的，就是委托的作用了。

第三個要素是引發事件的類。該類必須提供事件的聲明和引發事件的方法 。其中引發事件的方法必須命名為On加上事件名的形式，比如事件是EventHR，那 麼引發事件的方法就一定叫OnEventHR。”

一邊說著，大李開始修改 起剛才用於標准事件處理程序的代碼來：

Module Module1
'事件數據類
　　　 Public Class HenryEventArgs
　　　　　　　 Inherits EventArgs
　　　 End Class
　　　 '聲明委托
　　　 Public Delegate Sub HenryEventHandler(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

大李指著寫好的代碼對我說：“你看，這段代碼與先前的不同之 處有不少。首先EventHR事件我定義為一個委托類型，不再是光禿禿的一個事件了 。這樣的話，EventHR事件就具有了承載事件信息的能力，事件發送源是Sender； 事件數據是HenryEventArgs類的對象。其他的你應該都能很快就明白了，對吧？ ”

“嗯，還有一個問題，為什麼引發事件的方法OnEventHR要 用保護的方法呢？”我還是有些不解。

“這個問題問得好！ ”大李點了點頭，“這是為了讓派生類必須始終調用基類的OnEventHR 方法以確保注冊的委托接收到事件。你只要試一下，繼承CHenry得到一個派生類 進行事件處理，就會明白了。”

哦，一個事件驅動程序設計方法的 講述的確讓我大開眼界，打開了一扇了解VB.NET的廣闊天空的大門，繼續努力， 我還得加油呀!