原文地址http://visualbasic.about.com/od/quicktips/qt/netc1.htm
原文作者Dan Mabbutt
在舊版本的Visual Basic中,事件過程(例如“Button1_Click”事件)是非常簡單的。應為系統是直接通過名稱調用過程的。如果Button1_Click事件存在,那么系統就調用之。這個調用過程是非常直截了當的。但是在VB.net中有兩個主要的升級使得VB.net面向對象的的特點得以突出。
1、“Handles”負責判斷使系統是否調用該子程序,而不是靠過程的名字來判斷。
2、將sender和e兩個參數傳遞給子程序
讓我們舉一個非常簡單的例子來看看不同參數在VB.net中的作用。
1: Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)2: Handles Button1.Click3: ' Your code goes here4: End Sub事件子程序總是收到sender對象和EventArgs參數的E。由於EventArgs參數是一個對象,所以它支持任何屬性和方法。例如在老的VB6中鼠標移動事件使用四個參數:
· Button As Integer
· Shift As Integer
· X As Single
· Y As Single
當更多的擴展鼠標按鈕加進來的時候VB6便無法支持他們。VB.net卻只傳遞一個支持更多屬性和方法的MouseEventArgs參數。而且他們中的每個對象都支持更多的屬性方法。例如e.Button屬性支持以下所有屬性:
· Left
· Middle
· Right
· None
· XButton1
· XButton2
……
如果有人發明了一種“trancendental”與“虛擬”按鈕鼠標,VB.net只需要更新NET FrameWork去支持這一改變即可,以前的代碼將不會被推倒重建。
有很多.NET技術絕對依賴於這些參數。例如,你的電腦通常只有一個單一的屏幕顯示圖形,windows必須通過的代碼將圖形合並到同一個圖中。由於這個原因一個單一的“圖形”對象不得不被共享。在文章《 GDI+ (Windows graphics) tutorial 》中解釋道代碼能用“圖形”的主要的方式是利用傳遞到OnPaint事件中PaintEventArgs對象的參數e。
代碼如下:
1: Protected Overrides Sub OnPaint( _2: ByVal e As System.Windows.Forms.PaintEventArgs)3: Dim g As Graphics = e.Graphics
利用這些參數還能做什么?為了做出說明,假如你想找出是否有這么一個字符串,或許你要往Textbox中輸入一些文字,當你點擊Textbox集合中存在的任何一個。你可以為每一個TextBox編寫幾乎相同的子程序。
1: If TextBox42.Text.IndexOf(SearchString.Text) = -1 Then2: NotFound.Text = "Not Found"3: End If但是只是編寫一個Textbox代碼而可以控制所有Textbox那整個過程將變得非常容易。傳遞的參數將會顯示那個Textbox被點擊。
1: Private Sub FindIt(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles TextBox1.Enter,TextBox2.Enter, . . . and on and on ...2: TextBox42.Enter()
3: Dim myTextbox As TextBox4: myTextbox = sender
5: Dim IndexChar As Integer = myTextbox.Text.IndexOf(SearchString.Text)6: If IndexChar = -1 Then7: NotFound.Text = "Not Found"8: Else9: NotFound.Text = "Found It!"10: End Sub最近一個網友問我是否有更好的方法“單擊刪除擁有六行的List中的任意一行”。他用了幾十行代碼來實現這個功能,這使我很疑惑。使用sender這將變得非常簡單
1: Private Sub ListBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click, ListBox2.Click2: Dim myListBox As New ListBox3: myListBox = sender
4: myListBox.Items.RemoveAt(myListBox.SelectedIndex)
5: End Sub