VB.net中Delegate和Event

 在不同工程之间触发事件

在不同工程之间完成触发事件的工作，这在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