Henry的VB.NET之旅(十五)—動態事件處理方法

latitude發表於2004-02-05

??????? HenryVB.NET之旅(十五)動態事件處理方法?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

????????????????????????????????????? 韓睿

?

“大李哥,”我不免為自己問了如此多的問題而不好意思起來,“您剛才所說的事件的委託是怎麼回事呀?”

大李顯然是明白我會提問的:“我所說過事件驅動設計中的三要素你還記得吧?”

“當然,就是指物件、事件和事件處理程式。”我流利地回答道。

“物件和事件處理程式我們已經分析過了。要想徹底瞭解事件驅動程式的來龍去脈,我們必須瞭解事件的構成。”見到我又一次茫然地搖頭,他就接著說,“事件功能是由三個互相聯絡的元素提供的:提供事件資料的類事件委託引發事件的類。我說過,事件就是一個訊號,它告知應用程式有重要情況要發生。那麼我們可以想象一下,事件要發生,就會含有獨特的資訊,比如,事件傳送源是什麼,會發生什麼樣的事件。提供事件資料的類就是用於記錄這些資訊的。該類必須從 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的廣闊天空的大門,繼續努力,我還得加油呀!

(未完待續)

---------------------------------------------------------------

宣告:本文版權與解釋權歸韓睿所有,如需轉載,請保留完整的內容及此宣告。

QQ: 18349592

E-Mail: henry7685@hotmail.com

請訪問本人專欄:http://www.csdn.net/develop/author/netauthor/Latitude/

相關文章