VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • VB.NET面向对象的实现(十)

事件

在不同工程之间触发事件

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

至此我们就成功完成了从一个工程中触发事件,并且在另外一个工程中接收到这些触发的事件了。


相关教程