在VB6中，事件子例程（如Button1_Click）的复杂性要小得多，因为系统严格按名称调用子例程。如果存在按钮单击事件，系统将调用它。这是直截了当的。

但是在VB.NET中，有两个主要的升级使得VB.NET很快成为目标（即面向对象编程的“OOP”）。

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 MouseMove事件子例程：

• 按钮为整数
• 移位为整数
• X为单个
• 你是单身吗

当更高级的鼠标出现更多的按钮时，VB6在支持它们方面遇到了一个真正的问题。VB.NET只传递一个MouseEventArgs参数，但它支持更多的属性和方法。它们中的每一个都是支持更多功能的对象。例如，e.Button属性包含以下所有属性：

• 左边
• 中间的
• 正当
• 没有一个
• 按钮1
• 按钮2

如果有人发明了一种带有“虚拟”按钮的“trancendental”鼠标，VB.NET只需更新.NET Framework即可支持它，并且之前的代码不会因此中断。

有许多.NET技术完全依赖于这些参数。例如，由于您的电脑通常只有一个屏幕来显示图形，因此您的代码必须将它创建的图形合并到Windows使用的相同图像中。因此，必须共享一个“图形”对象。代码能够使用该“graphics”对象的主要方式是使用e参数，该参数通过PaintEventArgs对象传递给OnPaint事件。

Protected Overrides Sub OnPaint( ByVal e As System.Windows.Forms.PaintEventArgs) Dim g As Graphics = e.Graphics

其他例子

您还可以使用这些参数做什么？举例来说，假设您希望在单击其他文本框时，查找字符串（可能是您在文本框中输入的内容）是否存在于其他文本框集合的任何一个中。您可以为每个文本框编写几十个几乎相同的子例程：

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

但只编写一个代码并让它处理所有代码要容易得多。sender参数将显示单击的文本框。

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

最近，一位程序员问我一个更好的方法“删除在六个指定列表中任何一个列表中单击的行”。他让它在几十行代码中工作，这让我很困惑。但是使用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

确定这一点的另一个例子是皮埃尔在比利时提出的一个问题。Pierre使用对象的Is运算符测试Button1和sender的相等性：

If sender Is Button1 Then ...

这在语法上是正确的，因为sender和Button1都是可以引用的对象。既然发送者真的和Button1一样，为什么它不工作呢？

答案取决于在语句中稍早找到的关键字。首先，让我们检查一下Is操作员的Microsoft文档。

VisualBasic使用Is运算符比较两个对象引用变量。此运算符确定两个引用变量是否引用同一对象实例。

请注意，发送方是通过val传递的。这意味着传递的是Button1的副本，而不是实际对象本身。因此，当Pierre测试sender和Button1是否为同一实例时，结果为False。

要测试是否单击了Button1或Button2，您必须将sender转换为实际的Button对象，然后测试该对象的属性。通常使用文本，但您可以测试标记中的值，甚至位置属性。

此代码适用于：

Dim myButton As Button myButton = sender If myButton.Text = "Button1" Then