VB.net中的sender和e
2011-04-19 23:48
281 查看
原文地址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中的作用。
[/code]
事件子程序总是收到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。
代码如下:
[/code]
利用这些参数还能做什么?为了做出说明,假如你想找出是否有这么一个字符串,或许你要往Textbox中输入一些文字,当你点击Textbox集合中存在的任何一个。你可以为每一个TextBox编写几乎相同的子程序。
[/code]
但是只是编写一个Textbox代码而可以控制所有Textbox那整个过程将变得非常容易。传递的参数将会显示那个Textbox被点击。
[/code]
最近一个网友问我是否有更好的方法“单击删除拥有六行的List中的任意一行”。他用了几十行代码来实现这个功能,这使我很疑惑。使用sender这将变得非常简单
[/code]
原文作者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)
[code] Handles Button1.Click
' Your code goes here
End Sub
[/code]
事件子程序总是收到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。
代码如下:
Protected Overrides Sub OnPaint( _
[code] ByVal e As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
[/code]
利用这些参数还能做什么?为了做出说明,假如你想找出是否有这么一个字符串,或许你要往Textbox中输入一些文字,当你点击Textbox集合中存在的任何一个。你可以为每一个TextBox编写几乎相同的子程序。
If TextBox42.Text.IndexOf(SearchString.Text) = -1 Then
[code] NotFound.Text = "Not Found"
End If
[/code]
但是只是编写一个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 ...
[code] 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
[/code]
最近一个网友问我是否有更好的方法“单击删除拥有六行的List中的任意一行”。他用了几十行代码来实现这个功能,这使我很疑惑。使用sender这将变得非常简单
Private Sub ListBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click, ListBox2.Click
[code] Dim myListBox As New ListBox
myListBox = sender
myListBox.Items.RemoveAt(myListBox.SelectedIndex)
End Sub
[/code]
相关文章推荐
- vb.net eventargs sender and e
- VB.net中的sender和e
- The VB.NET sender and e Event Parameters
- VB.NET中的sender、e和handles
- [VB.NET]如何将vb.NET转换为Asp.NET
- [VB.NET]问两个事件在哪? VB.NET
- VB.NET中如何利用Split和Replace函数计算字数
- 完整的VB.NET的语法解析程序
- [VB.NET]求救,treeview做的导航条代码(VB)
- vb.net 教程 1-7 数据类型:Boolean
- [VB.NET]VB2005 中MDI窗体的剪贴板问题
- [VB.NET]如何重载控件中的按钮事件?
- 使用VB.NET实现改变显示器的分辨率实例
- vb.net
- VB.NET中的多窗体编程:升级到 .NET
- [VB.NET]vs2005如何转成vs2003?
- DOTNET零碎总结---VB.NET修改数据存在多个txtbox时,SQL语句的操作
- Add-in and Automation Development In VB.NET 2003 (Finished)
- VB.NET中动态添加控件数组
- VB.net中的析构函数原来还有这个嗜好......