VB.net中的sender和e

原文地址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中的作用。

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)
    Handles Button1.Click
    ' Your code goes here
 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編寫幾乎相同的子程序。

If TextBox42.Text.IndexOf(SearchString.Text) = -1 Then
    NotFound.Text = "Not Found"
End If

但是只是編寫一個Textbox代碼而可以控制所有Textbox那整個過程將變得非常容易。傳遞的參數將會顯示那個Textbox被點擊。

Private Sub FindIt(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles TextBox1.Enter,TextBox2.Enter,  . . . and on and on ...
      TextBox42.Enter()
      Dim myTextbox As TextBox
      myTextbox = sender
      Dim IndexChar As Integer = myTextbox.Text.IndexOf(SearchString.Text)
      If IndexChar = -1 Then
          NotFound.Text = "Not Found"
      Else
          NotFound.Text = "Found It!"
 End Sub

最近一個網友問我是否有更好的方法“單擊刪除擁有六行的List中的任意一行”。他用了幾十行代碼來實現這個功能，這使我很疑惑。使用sender這將變得非常簡單

Private Sub ListBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click, ListBox2.Click
    Dim myListBox As New ListBox
    myListBox = sender
    myListBox.Items.RemoveAt(myListBox.SelectedIndex)
End Sub