正在阅读：VB.NET面向对象的实现(5)事件VB.NET面向对象的实现(5)事件

2004-02-14 09:34 出处：PConline 作者：ZSC 责任编辑：pjl

在不同工程之间触发事件在不同工程之间完成触发事件的工作，这在VB中是不能做到的。但是在VB.NET中我们可以使用Event和RaiseEvent关键字并且使用Delegate关键字来实现它。如果你想从VB.NET工程中触发一个事件并且在另外一个工程中收到这个触发，我们就必须使用事件和Delegate的概念。执行远程事件源当我们仍要使用RaiseEvent语句来触发事件的时候，如果要在其它VB.NET工程中的代码接收代码我们需要采用不同的方法来声明事件。特殊地，我们需要在类外部我们要触发事件的地方通过使用Delegate语句定义事件作为delegate。接着创建一个新的类库，将它命名为EventSource并且增加一个简单类命名为RemoteClass。假定我们想触发一个事件，这个事件返回一个字符串参数。我们首先要利用参数的类型来声明一个Delegate: Public Delegate Sub RemoteEventHandler(ByVal SomeString As String) 通常情况下VB.NET会自动创建这个Delegate。然而，有时候这个Delegate不能从其它工程中进行访问，所以我们还是对它进行显式的声明。以下是我们创建的类，它可以触发事件： Public Class RemoteClass Public Event RemoteEvent As RemoteEventHandler Public Sub DoSomething() RaiseEvent RemoteEvent（anyevent） End Sub End Class 这段功能是否成功的实现取决于事件本身的定义： Public Event RemoteEvent As RemoteEventHandler 这个事件并没有显式地定义它的参数，而是依赖于Delegate来定义。反而，这个事件是定义为一个特殊的类型，即我们刚才定义Delegate的类型。另外，用于触发事件的代码只是应用了一个简单的RaiseEvent语句： RaiseEvent RemoteEvent（anyevent）这条语句提供的参数数值用于当事件被触发时的返回值。接收远程事件在单一的VB.NET工程中，我们可以编写代码类接收事件。具体可以增加一个Windows应用工程来解决，你可以右击它并选择Set As Startup Project选项，这样它就可以在按F5的时候被运行了。为了访问触发事件的类，我们必须给EventSource工程增加一个引用，具体操作如下：选择菜单项Project（工程）->Add Reference（增加引用）。之后，我们可以增加一个按钮到窗体上，并且打开窗体的代码窗口，再引入以下的远程名空间： Imports System.ComponentModel Imports System.Drawing Imports System.WinForms Imports EventSource 在窗体A中，我们可以使用WithEvents关键字来定义远程类。 Public Class FormA Inherits System.WinForms.Form Private WithEvents objRemote As RemoteClass 当objRemote项在左上角的类名字下拉表中被选择的时候，我们可以在代码窗口右上角的方法名字下拉列表中看到事件的列表。当我们选择了这个选项，以下的代码就将被创建： Public Sub objRemote_RemoteEvent() Handles objRemote.RemoteEvent End Sub 不幸的是，这些代码是错误的，因为它没有提供我们所传递的参数。为了解决这个问题我们只需要增加参数到声明中去即可： Public Sub objRemote_RemoteEvent(ByVal Data As String) _ Handles objRemote.RemoteEvent Messagebox.Show(Data) End Sub 我们还需要增加代码来在对话框中显示结果。具体做法为：增加一个按钮到窗体中去，并为按钮增加以下的代码： Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) objRemote = New RemoteClass() objRemote.DoSomething() End Sub 至此我们就成功完成了从一个工程中触发事件，并且在另外一个工程中接收到这些触发的事件了。