VB.NET下如何實現事件和委托

這篇文章給大家分享的是有關VB.NET下如何實現事件和委托的內容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

委托是可用于調用其他對象方法的對象。它們有時被稱為類型安全函數指針，因為它們與其他編程語言中所使用的函數指針相似。但不同于函數指針，VB.NET 委托是基于 System.Delegate 類的引用類型，它可以引用共享方法—無需特定的類實例即可調用的方法和實例方法。

委托在調用過程和被調用過程需要媒介的情況下是很有用的。例如，您可能想讓一個引發事件的對象能夠在不同的環境下調用不同的事件處理程序。不幸的是，引發事件的對象無法提前知道處理特定事件的事件處理程序。Visual Basic .NET 通過在使用 AddHandler 語句時創建委托，可讓您動態地將事件處理程序與事件關聯。在運行時，委托將各種調用轉發到相應的事件處理程序。

盡管可以創建自己的委托，但在大多數情況下，Visual Basic .NET 為您創建委托并提供具體信息。例如，Event 語句將名為 <EventName>EventHandler 的委托類隱式定義為 Event 語句所在類的嵌套類，且其簽字與該事件相同。AddressOf 語句則隱式創建委托的實例。例如，以下兩行代碼是等效的：

AddHandler Button1.Click    AddressOf Me.Button1_Click   ' AddHandler 指向引發事件的對象，AddressOf則確定該事件對象所要調用的事件處理程序  '上述行為又可以稱為 監視  AddHandler Button1.Click, New EventHandler(AddressOf Button1_Click)

只要編譯器可以用上下文確定委托的類型，就可以使用速寫方法創建委托。

注：處理自基類繼承的事件

派生類（繼承某個基類特征的類）能用 Handles MyBase 語句處理它們的基類所引發的事件。

處理來自基類的事件

通過給事件處理程序過程的聲明行添加 Handles MyBase.<event name> 語句來聲明派生類中的事件處理程序，其中的 event name 是基類中正在處理的事件的名稱。例如：

Public Class Class1  Public Event SE(ByVal i As Integer)  ' Place methods and properties here.  End Class  Public Class Class2  Inherits Class1  Sub EventHandler(ByVal x As Integer) Handles MyBase.SE  ' Place code to handle events from Class1 here.  End Sub End Class

聲明使用現有委托類型的事件

某些情況下，可能會要聲明某事件使用現有委托類型為基礎委托。以下語法說明了進行聲明的方式：

Event AnEvent As DelegateType該語法在將多個事件路由到同一處理程序時是很有用的，不過使用現有委托類型時需要先進行如下定義：

delegate {sub|function} DelegateType(參數1，參數2)

下面是vb.net控制臺程序演示單一事件委托多處理程序.

比如說在社會上，你是法律，社會上有三種人，警察、無賴和自愿反扒隊。

你規定：如果小偷偷東西，則警察處罰小偷500元錢，自愿反扒隊要打無賴進醫院一次

這就是現實中的委托。

實際上，在寫程序中，程序員就是法律，警察、小偷和自愿反扒隊就是三個對象。小偷偷東西是一個方法，小偷還有一個偷東西事件，他偷東西激發這個事件。而警察和自愿反扒隊就是兩個事件處理對象，警察負責把小偷的錢扣除500，自愿反扒隊需要大小偷進醫院一次。

所以，委托有如下幾個要素：

• 激發事件的對象--就是小偷

• 處理對象事件的對象--就是警察和自愿反扒隊

• 定義委托，就是法律讓警察和自愿反扒隊監視小偷。

如果這三個要素都滿足的話，則你就寫出了一個完整事件的處理。

下面是vb.net控制臺的實例

Imports System  Module Module1   '準備引用 無賴 類的偷東西事件  Public WithEvents w As 無賴  Sub Main()  Console.WriteLine("新的一天開始了....")  ' 實例華警察、無賴、自愿反扒隊 類  Dim p As New 警察  w = New 無賴  Dim pp As New 自愿反扒隊  '設置對無賴類的偷東西事件的監視，并設置相應的事件處理程序  '如果小偷玩偷東西則引用警察的罰錢處理程序  AddHandler w.PlayGame, AddressOf p.扣錢  '如果小偷偷東西則引用自愿反扒隊的打人處理程序  AddHandler w.PlayGame, AddressOf pp.打人  w.偷東西()  Console.WriteLine("天黑了....")  Console.ReadLine()  End Sub 'End Class   Public Class 警察  Sub New()  Console.WriteLine("生成警察......")  End Sub '定義的事件處理程序的參數類型要與定義的委托的參數類型相一致  Public Sub 扣錢(ByVal sender As Object, ByVal e As System.EventArgs)   Console.WriteLine("警察：好小子，膽敢偷東西...")  '定義線程輸出遲緩3秒  System.Threading.Thread.Sleep(3000)  Console.WriteLine("警察：看看你小子有多少錢...")  Dim f As 無賴 = sender  System.Threading.Thread.Sleep(3000)  Console.WriteLine("無賴 的錢： " + f.錢.ToString())  System.Threading.Thread.Sleep(3000)  Console.WriteLine("開始扣錢......")  System.Threading.Thread.Sleep(3000)  f.錢 = f.錢 - 500  Console.WriteLine("扣完了....現在無賴 還剩下：" + f.錢.ToString())  System.Threading.Thread.Sleep(3000)  End Sub  End Class Public Class 無賴  '先定義一個偷東西的事件使用現有委托類型 PlayGameHandler為基礎委托  Public Event PlayGame As PlayGameHandler  Private m_Money As Integer Private ey As Integer Sub New()  Console.WriteLine("生成無賴....")  m_Money = 1000  ey = 5  End Sub '定義挨打屬性用來記錄挨打過幾次  Property 挨打() As Integer Get Return ey  End Get Set(ByVal Value As Integer)  ey = Value  End Set End Property '定義前屬性用來記錄有多少錢  Property 錢() As Integer Get Return m_Money  End Get Set(ByVal Value As Integer)  m_Money = Value  End Set End Property '定義偷東西過程  Public Sub 偷東西()  Console.WriteLine("無賴開始偷東西了")  System.Threading.Thread.Sleep(3000)  '實例化事件參數  Dim e As New System.EventArgs  '引發偷東西事件，參數類型要與現有委托類型一致  RaiseEvent PlayGame(Me, e)  End Sub End Class Public Class 自愿反扒隊  Sub New()  Console.WriteLine("自愿反扒隊來了.....")  System.Threading.Thread.Sleep(3000)  End Sub '定義的事件處理程序的參數類型要與定義的委托的參數類型相一致  Public Sub 打人(ByVal sender As Object, ByVal e As System.EventArgs)  System.Threading.Thread.Sleep(3000)  Console.WriteLine("自愿反扒隊：好小子，敢偷東西...")  System.Threading.Thread.Sleep(3000)  Console.WriteLine("自愿反扒隊：你小子挨過幾次打了...")  Dim bn As 無賴 = sender  System.Threading.Thread.Sleep(3000)  Console.WriteLine("無賴：" + bn.挨打.ToString + "次")  System.Threading.Thread.Sleep(3000)   Console.WriteLine("自愿反扒隊：那也得揍你，先來一拳.... ")  System.Threading.Thread.Sleep(3000)  Console.WriteLine("自愿反扒隊：再來一腳......")  System.Threading.Thread.Sleep(3000)   Console.WriteLine("自愿反扒隊：打完了...趕緊去醫院吧...")  End Sub End Class '定義委托類型  Delegate Sub PlayGameHandler(ByVal sender As Object, ByVal e As System.EventArgs)  End Module

感謝各位的閱讀！關于“VB.NET下如何實現事件和委托”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，讓大家可以學到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！