【IT168 技术文档】

　　Visual Basic .NET事件如何编译

　　如何编写自定义事件

　　事件是你的代码兵器库中的主要部分，无论你用Visual Basic 6.0，Visual Basic .NET 2002，Visual Basic .NET 2003，还是Visual Basic 2005。窗体和控件引发事件，同时你的代码处理这些事件。你用Visual Basic写的最初应用程序大多会是在一个窗体上放置一个按钮，处理这个click事件，并在运行时你点击这个按钮会显示某些文本在提示框中。还有什么比这更容易？

　　但是你又真正了解事件多少呢？在你向某个类中添加一个事件处理程序是将会发生什么？在本文中，基于我为 AppDev 所写的课件，我将用各种方法来演示事件和事件处理程序交互，并且我将说明它们如何能解决一般问题。也许这些信息中的一些对你来说并不新鲜，但是如果你对事件的了解并不深入，这里肯定有些东西让你惊奇。

　　事件

　　Visual Basic(在Visual Basic .NET之前)为你提供了创建和处理事件的简单机制，并且Visual Basic .NET 2002和2003提供了几个不同的方法来做它们。Visual Basic 2005甚至允许你更强地控制事件处理程序，正如你将在本文里所看到的。

　　事件提供一个松散的联系机制，它允许类为在将来某个时间可能或也许不可能发生的通知注册。如果“侦听器”得到它们正在等待的事件发生的通知，它们就处理这种情况。如果不，它们只是保持监听。一个按钮点击事件处理程序用类提供的按钮的功能（functionality）来注册它自己；在一个用户点击这个按钮时，这个按钮的类引发Click事件，所有侦听器（这里可能是此按钮的多个Click事件处理程序）运行它们的代码，并继续执行代码。

　　以.NET的观点来说，一个类可以在代码执行的任何一点引发一个事件。其他类可以订阅这个事件，并且它们可以在事件发生时通过.NET Framework获得通知。这个引发事件的类一般并不会知道有多少（如果有的话）侦听器，尽管它可能做出某些努力以收集这个信息，正如你将在本文后面所看到的。另外，多侦听器可以注册以获得通知，并且每个都可以被通知而对其他任何侦听器一无所知。

　　以Visual Basic 6.0方法处理

　　.NET Framework和Visual Basic .NET语言的设计者，已做了非常充分的工作以确保你可以在.NET使用事件如同你在Visual Basic 6.0中所做的一样。这就是你可以：

* 使用Event关键词声明一个事件
* 使用RaiseEvent语句引发一个事件
* 使用一个WithEvents变量处理事件

　　与.NET的实质上的不同之处是底层的机制。对应于在Visual Basic 6.0中使用某些隐藏 plumbing，Visual Basic .NET使用一个可见的、扩展的、公共plumbing-委托-来管理事件处理。

　　Visual Basic 6.0 和Visual Basic .NET版本之间的另一个不同是在.NET中：你可以使用Handles子句指示在对一个特殊事件的响应中应该运行的一个特殊过程。Handles子句允许任何与事件的参数签名相符的过程来响应这个事件。听起来很像一个委托，而在表象之下，它就是委托。在编译时间，.NET Framework用你的事件名称创建一个委托类，只是在结尾添加“EventHandler”字样。举个例子，在你声明一个命名为FileFound的事件时，.NET Framework创建为你创建一个命名为FileFoundEventHandler的委托类型。处理这个事件的每个过程必须有一个符合委托类型的签名。

　　以下代码演示了Visual Basic .NET如何支持以Visual Basic 6.0为基础的事件处理。

Public Class FileSearch1
''在指定位置搜索文件
''一旦找到，这个类就为每个找到的文件引发FileFound 事件
Public Event FileFound(ByVal fi As FileInfo)
... '' 这里的代码去掉了...
End Class

　　在它找到文件时，FileSearch1类引发FileFound事件：

  Dim afi() As FileInfo = diLocal.GetFiles(Me.FileSpec)
for Each fi As FileInfo In afi
RaiseEvent FileFound(fi)
Next
alFiles.AddRange(afi)
　　Private WithEvents fs1 As FileSearch1点击RaiseEvent运行以下代码：
fs1 = New FileSearch1( _
Me.txtSearchPath.Text, Me.txtFileSpec.Text, _
Me.chkSearchSubfolders.Checked)try
fs1.Execute()
Catch
End Try

最后，包括一个事件处理程序，它处理FileSearch1.FileFound事件：

Private Sub EventHandler1( _
ByVal NewFile As System.IO.FileInfo) _
Handles fs1.FileFound AddText("EventHandler1: " & NewFile.FullName)
End Sub

    尽管只包括处理FileSearch1.FileFound事件的一个单过程，你将会有不止一个过程处理一个特定事件是相当可能的（并且是很可能的）。这就是说，当FileSearch1类引发它的FileFound事件，多个过程可能处理它是可能的。这听起来应该很像多路广播委托的概念，因为它就是多路广播委托。本质上，.NET将事件转换为委托类。用ILDASM.exe研究一下IL（中间代码）就会拨云见日了。

　　用ILDASM研究事件

　　你可以使用ILDASM（包含在.NET Framework SDK中的.NET Framework IL反汇编工具）来打开制作完毕的可执行版本。尽管FileSearch1并没有显式地包含一个命名为FileFoundEventHandler的多路广播委托，Visual Basic .NET编译器已创建了一个（多路广播委托），对应于代码声明的由FileFound事件定义的类型。编译器也创建了一个表示事件侦听器的委托类型FileFoundEventHandler的名为FileFoundEvent的实例。

　　使用这个技术，编译器可以强迫严格遵循你的事件声明的参数签名，而不用你再去为创建你自己的委托类型和在你的事件声明中预定的类型而操心。正如你后面将看到的一样，你可以完全随意地创建你自己的委托表示你的事件并且可用这个委托作为你的事件的类型。

　　多事件处理程序

　　我将讨论的下一个类：FileSearch2，它是FileSearch1类的一个相似的拷贝。使用FileSearch2中的唯一的不同是：示例窗体对于FileSearch2类的 FileFound事件包括多个侦听器。

　　但是注意，当你使用多个Handles子句对同一事件反应时，你完全不能控制事件处理程序运行的顺序。.NET Framework提供两个选择，这将稍后在文章中讨论，它允许你获得对多侦听器的更强地控制。

 　　异常和多个事件处理程序（Multiple Event Handlers） 

　　如果你有一个事件的多个处理程序，当事件引发时，.NET Framework将依次调用每个处理程序。到目前为止一切顺利。如果其中某个事件处理程序产生一个异常时将会发生什么？事情就没有那么顺利了。

　　研究异常（Exception）行为

　　我将很快给你看看从FileSearch3类中选取的代码。每次一个类的实例找到一个文件，实例就引发它的FileFound事件。这一效果导致.NET Framework相继地运行每个事件处理过程。看看下面的代码：

''搜索符合的文件名
Dim afi() As FileInfo = diLocal.GetFiles(Me.FileSpec)for Each fi As FileInfo In afi
''这相当于：
'' FileFoundEventHandler.Invoke(fi)
RaiseEvent FileFound(fi)
Next
alFiles.AddRange(afi)

　　这个技术的问题是：如果一个异常出现在任何一个侦听器中，异常回滚（bubbles back）到事件引发（event-raising）代码，.NET Framework不再调用事件侦听器，而事件处理就慢慢停了下来。

　　你在类中看到的RaiseEvent语句直到一个FileFoundEventHandler.Invoke方法调用后才会编译。在内部，一旦这个方法已经调用，你的代码将控制权交给委托的执行过程，同时如果一个未处理的异常在调用列表的任何地方发生，这个异常回滚到调用者（这个代码），同时再没有侦听器获得调用。

　　这里有一个方案。胜于一再地简单调用RaiseEvent语句，它可能为你而显式地调用每个单独的侦听器。你可以利用Delegate类的成员以解决在多侦听器下的未处理异常问题。