這篇文章主要介紹VB.NET動(dòng)態(tài)事件的示例分析，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)！專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、小程序定制開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶(hù)創(chuàng)新互聯(lián)還提供了崇仁免費(fèi)建站歡迎大家使用！

“大李哥，”我不免為自己?jiǎn)柫巳绱硕嗟膯?wèn)題而不好意思起來(lái)，“您剛才所說(shuō)的事件的委托是怎么回事呀？”

大李顯然是明白我會(huì)提問(wèn)的：“我所說(shuō)過(guò)事件驅(qū)動(dòng)設(shè)計(jì)中的三要素你還記得吧？”

“當(dāng)然，就是指對(duì)象、事件和事件處理程序?！蔽伊骼鼗卮鸬?。

“對(duì)象和事件處理程序我們已經(jīng)分析過(guò)了。要想徹底了解VB.NET動(dòng)態(tài)事件的驅(qū)動(dòng)程序的來(lái)龍去脈，我們必須了解事件的構(gòu)成?！币?jiàn)到我又一次茫然地?fù)u頭，他就接著說(shuō)，“事件功能是由三個(gè)互相聯(lián)系的元素提供的：提供事件數(shù)據(jù)的類(lèi)、事件委托和引發(fā)事件的類(lèi)。我說(shuō)過(guò)，事件就是一個(gè)信號(hào)，它告知應(yīng)用程序有重要情況要發(fā)生。那么我們可以想象一下，事件要發(fā)生，就會(huì)含有獨(dú)特的信息，比如，事件發(fā)送源是什么，會(huì)發(fā)生什么樣的事件。提供事件數(shù)據(jù)的類(lèi)就是用于記錄這些信息的。

該類(lèi)必須從 System.EventArgs 派生出，這個(gè)我們已經(jīng)說(shuō)過(guò)了；事件的委托，這其實(shí)我也說(shuō)過(guò)了，就好比是指向事件接收方的一個(gè)指針，由于指定對(duì)象的事件是獨(dú)特的，所以它的委托也是事先定義好的，就比如MouseDown事件，它對(duì)應(yīng)的委托就是MouseEventHandler。我們看一下你在代碼窗口選Label1對(duì)象的MouseDown方法，會(huì)自動(dòng)生成這段空的事件處理程序：

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 

它其實(shí)就等同于：

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

隱含的意思，就是通過(guò)先前已經(jīng)聲明為全局變量的VB.NET動(dòng)態(tài)事件委托MouseEventHandler來(lái)實(shí)現(xiàn)事件處理程序參數(shù)的定義。對(duì)于MouseDown事件而言，為什么自動(dòng)加上的事件數(shù)據(jù)類(lèi)參量是MouseEventArgs類(lèi)的，就是委托的作用了。

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

一邊說(shuō)著，大李開(kāi)始修改起剛才用于標(biāo)準(zhǔn)事件處理程序的代碼來(lái)：

Module Module1  
'事件數(shù)據(jù)類(lèi)  
Public Class HenryEventArgs  
Inherits EventArgs  
End Class  
'聲明委托  
Public Delegate Sub HenryEvent
Handler(ByVal sender As Object, _  
ByVal e As HenryEventArgs)  
Public Class CHenry  
' 聲明一個(gè)事件  
Public Event EventHR As 
HenryEventHandler  
Protected Overridable Sub 
OnEventHR(ByVal e As HenryEventArgs)  
'調(diào)用委托  
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 

大李指著寫(xiě)好的代碼對(duì)我說(shuō)：“你看，這段代碼與先前的不同之處有不少。首先EventHR事件我定義為一個(gè)委托類(lèi)型，不再是光禿禿的一個(gè)VB.NET動(dòng)態(tài)事件了。這樣的話(huà)，EventHR事件就具有了承載事件信息的能力，事件發(fā)送源是Sender；事件數(shù)據(jù)是HenryEventArgs類(lèi)的對(duì)象。其他的你應(yīng)該都能很快就明白了，對(duì)吧？”

“嗯，還有一個(gè)問(wèn)題，為什么引發(fā)事件的方法OnEventHR要用保護(hù)的方法呢？”我還是有些不解。

“這個(gè)問(wèn)題問(wèn)得好！”大李點(diǎn)了點(diǎn)頭，“這是為了讓派生類(lèi)必須始終調(diào)用基類(lèi)的OnEventHR方法以確保注冊(cè)的委托接收到事件。你只要試一下，繼承CHenry得到一個(gè)派生類(lèi)進(jìn)行事件處理，就會(huì)明白了。”

以上是“VB.NET動(dòng)態(tài)事件的示例分析”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對(duì)大家有幫助，更多相關(guān)知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

新聞名稱(chēng)：VB.NET動(dòng)態(tài)事件的示例分析
URL分享：http://jinyejixie.com/article36/pggdpg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供虛擬主機(jī)、建站公司、動(dòng)態(tài)網(wǎng)站、微信公眾號(hào)、小程序開(kāi)發(fā)、網(wǎng)站收錄

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)