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、將sendere兩個參數傳遞給子程序

讓我們舉一個非常簡單的例子來看看不同參數在VB.net中的作用。

   1:  Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)
   2:      Handles Button1.Click
   3:      ' Your code goes here
   4:   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 Then 
   2:      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 TextBox
   4:        myTextbox = sender
   5:        Dim IndexChar As Integer = myTextbox.Text.IndexOf(SearchString.Text)
   6:        If IndexChar = -1 Then
   7:            NotFound.Text = "Not Found"
   8:        Else
   9:            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.Click
   2:      Dim myListBox As New ListBox
   3:      myListBox = sender
   4:      myListBox.Items.RemoveAt(myListBox.SelectedIndex)
   5:  End Sub


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM