探索VB系列中的事件处理的奥秘-vb-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>编程开发>>VB编程>>正文	新版上线！[旧版]

注:打开慢时请稍等

探索VB系列中的事件处理的奥秘

http://www.iyit.net 日期：2006-10-12 17:20:12 来源：点击：

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

　　但是你又真正了解事件多少呢？在你向某个类中添加一个事件处理程序是将会发生什么？在本文中，基于我为 AppDev 所写的课件，我将用各种方法来演示事件和事件处理程序交互，并且我将说明它们如何能解决一般问题。也许这些信息中的一些对你来说并不新鲜，但是如果你对事件的了解并不深入，这里肯定有些东西让你惊奇。在任一情况下，下载这两个示例应用程序（一个是用Visual Basic .NET .2002和2003，一个是用Visual Basic 2005）并理解之。所有内容适用于Visual Basic .NET2002 和 2003 及 Visual Basic 2005，除了最后的论及自定义事件的部分，它只能在Visual Basic 2005下工作。

　　我将假定你已有一些关于委托和多路广播委托的基本知识。如果你没有研究过这些重要的Microsoft.NET Framework特性，现在你就该去做了。获得这些问题的更多信息可以看看Ted Pattison的两部分关于委托的概论。

　　事件

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

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

　　我的示例程序包括一组类（FileSearch1到FileSearch5用于Visual Basic .NET 2002 和 2003，而FileSearch1到FileSearch6可用于Visual Basic 2005）在一个指定位置搜索文件并在找到时引发一个事件。FileSearch类只想在某个令人感兴趣的事情发生时让某个对应的类监听到。在这种情况下，每当FileSearch类发现另一个文件时某个有趣的事情就会发生。许多侦听器类可能会希望对该事件做出反应。

　　以.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的委托类型。处理这个事件的每个过程必须有一个符合委托类型的签名。

　　点击在示例窗体上的RaiseEvent按钮演示了Visual Basic .NET如何支持以Visual Basic 6.0为基础的事件处理。示例项目包括了FileSearch1类，它使用以下代码建立事件：

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

End Class

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

’’以下代码来自FileSearch1.vb
Dim afi() As FileInfo = diLocal.GetFiles(Me.FileSpec)
For Each fi As FileInfo In afi
　　RaiseEvent FileFound(fi)
Next
alFiles.AddRange(afi)

　　在frmMain.vb，你将找到以下声明，它允许代码使用变量fs1来对由FileSearch1实例引发的事件做出反应：

Private WithEvents fs1 As FileSearch1

　　点击RaiseEvent运行以下代码：

’’以下代码来自FileSearch1.vb
fs1 = New FileSearch1( _
Me.txtSearchPath.Text, Me.txtFileSpec.Text, _
Me.chkSearchSubfolders.Checked)Try
fs1.Execute()
Catch
End Try

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

’’以下代码来自FileSearch1.vbPrivate Sub EventHandler1( _
　ByVal NewFile As System.IO.FileInfo) _
　Handles fs1.FileFound AddText("EventHandler1: " & NewFile.FullName)
End Sub

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

本新闻共5页,当前在第1页 1 2 3 4 5

编辑：　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：[JAVA]十四种Java开发工具点评
下一篇：用Visual Basic制作安装程序
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

用Visual Basic制作安装程序	VB.NET注册表编程	在VB中使用注册表
用VB函数轻松访问系统注册表	在VB中调用API操作注册表	VB4.0对注册表操作的命令
asp.net中的vb7中如何调用dll中的函数	asp.net中的vb7中如何使用socket作一个	在ASP.NET中处理 datetime 的一些通用函
在ASP.NET中操作文件的例子（VB）	在ASP.NET中处理datetime的一些通用函数	VB.NET多线程开发实例
多线程填写treeview控件（vb.net）	vb.net的windows窗体实现dos命令	一个用Wsh来控制SqlServer的Dcom的VBs
和我一起入门Direct3D的VB.net编程	VB.NET如何在没有.NET框架的机器上运行	LCS问题算法之VB.net版
VB.net 调用带参数存储过程	vb.net 中实现画图	在VB.Net中创建使用控件数组
VB6 中善用 ByRef 提升速度	VB6 中使用错误处理对于速度的影响	EJB系列教程之一(JBuilder4+IAS41+Vbj4