VB.NET如何使用重載事件處理應(yīng)用

這篇文章主要介紹了VB.NET如何使用重載事件處理應(yīng)用，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

繼承的VB.NET重載事件處理程序

在繼承某個組件時，該組件的所有成員都被并入新類中。事件處理程序是在響應(yīng)組件接收的特定事件時執(zhí)行的方法，并且它是和其他組件成員一同被繼承的。以下示例顯示了一個典型的事件處理程序：

Private Sub Button1_Click
(ByVal sender As System.
Object, ByVal e as _  
System.EventArgs) Handles 
Button1.Click  
Static Counter as Integer = 0 
Counter += 1  
MessageBox.Show (" 此按鈕已被單擊 " & _  
Counter.ToString() & " 次。")  
End Sub 

只要發(fā)生 Button1.Click 事件，就會執(zhí)行以上方法。方法聲明末尾的 Handles 子句將方法與事件進行關(guān)聯(lián)。這是組件中事件處理程序的典型結(jié)構(gòu)。

為了在繼承類中重載此方法，必須添加 Overridable 關(guān)鍵字，并將訪問級別更改為 Protected、Protected Friend 或 Public。以下示例顯示了一個可以被重載的事件處理程序：

Protected Overridable Sub 
Button1_Click(ByVal sender 
As System.Object, _  
ByVal e as System.EventArgs)
 Handles Button1.Click  
Static Counter as Integer = 0 
Counter += 1  
MessageBox.Show (" 此按鈕已被單擊 " & _  
Counter.ToString() & " 次。")  
End Sub 

組件中繼承的VB.NET重載事件處理程序

• VB.NET MonthCalendar控件應(yīng)用手冊

• VB.NET Imports語句規(guī)則與實例講解

• VB.NET獲取網(wǎng)卡地址代碼實現(xiàn)過程

• VB.NET枚舉增加編程速率

• VB.NET坐標系統(tǒng)相關(guān)概念總結(jié)

重載繼承的事件處理程序與重載任何其他類型的繼承方法基本相同，***不同之處在于：在重載繼承的事件處理程序時，必須刪除 Handles 子句。

重載繼承組件中的方法

將 Overrides 關(guān)鍵字添加到方法聲明中。

注意：不要在方法中添加 Handles 子句。VB.NET重載事件處理程序已經(jīng)與基類中的事件相關(guān)聯(lián)，并且此關(guān)聯(lián)將傳遞到繼承類中。也就是說，當引發(fā)事件時將執(zhí)行此方法，而不再需要額外的 Handles 子句。

以下示例顯示了如何重載前面示例中的事件處理程序：

Protected Overrides Sub
 Button1_Click(ByVal 
sender As System.Object, _  
ByVal e as System.EventArgs)  
Static Counter as Integer = 0 
Counter += 1  
MessageBox.Show ("
 此繼承的按鈕已被單擊 " & _  
Counter.ToString() & " 次。")  
End Sub 

為什么不需要 Handles 子句

Handles 子句不再與此方法相關(guān)聯(lián)。這并不是疏忽，而是 .NET 框架處理事件的一項重要內(nèi)容。VB.NET重載事件處理程序已經(jīng)與基類中的事件相關(guān)聯(lián)，并且此關(guān)聯(lián)將傳遞到繼承類中。也就是說，當引發(fā)事件時將執(zhí)行此方法，而不再需要額外的 Handles 子句。如下所示，如果添加 Handles 子句，將創(chuàng)建與事件的附加關(guān)聯(lián)，這會使方法在每個事件中被執(zhí)行兩次。

' 不正確的代碼  
Protected Overrides Sub 
Button1_Click(ByVal sender 
As System.Object, _  
ByVal e as System.EventArgs) 
Handles Button1.Click  
Static Counter as Integer = 0 
' 每次單擊按鈕時，此變量將遞增  
' 兩次。  
Counter += 1  
' 每次單擊按鈕時，消息框?qū)@示  
' 兩次，并顯示不準確的信息。  
MessageBox.Show (" 
此繼承的按鈕已被單擊 " & _  
Counter.ToString() & " 次。")  
End Sub 

感謝你能夠認真閱讀完這篇文章，希望小編分享的“VB.NET如何使用重載事件處理應(yīng)用”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識等著你來學(xué)習(xí)!