VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之VB程序中处理随机事件

在程序设计过程中,如何轻松地处理众多的随机事件,往往是制作大型系统首先要考虑的问题之一。用C语言开发Windows程序时,可以方便地使用消息机制(Message),但是,设计VB程序时,就没有这样的方便条件了。例如,多个窗口同时打开同一个表(Table),当在一个窗口中对数据进行了修改,而其他的窗口也能够随之进行数据更新,这时就需要有一条说明数据改变了的消息在所有的窗口间进行广播。如果使用的语言是C,只需要定义一条用户消息(UserMessage),就可以实现这一点。可是如果是用VB编程,做起来就不是那么简单了。VB5.0企业版中增添了许多强有力的特性,有几点特性,正好可以帮助我们解决难题。先介绍一下这几个特性: 

  1.用户自定义事件:在类模块中,可以使用Event关键字来定义用户自定义事件,使用RaiseEvent语句来产生该事件,这一机制给处理随机事件带来极大的方便。当收到需要广播的消息时,产生一个预定义的事件,而需要处理消息的客体对象,只需截获该事件,就完成了消息的传递。 

  2.ActiveX EXE部件:利用VB,可以方便地将共享代码封装在ActiveX部件之中。将消息广播引擎实现于一个ActiveX部件之中,不仅方便了在程序中使用,而且更为重要的一点是,可以实现跨进程间的消息传递。因为ActiveX部件有内部(DLL)外部(EXE)两种,对于外部部件,可以对模块内的全局数据实现共享(关于ActiveX两种代码部件的 

区别,请阅读VB的联机帮助文件)。 

  3.远程自动化连接:ActiveX部件,是一种标准的客户机/服务器结构,利用Windows平台的COM模型,VB已能方便地将这种结构扩展到整个网络的范围。所以,我们的消息广播设计,在实现了进程间的消息传递之后,进而实现网络上的消息传递,也成为可能。 

  通过上面的几点介绍,这一方式的设计思想也就比较清楚了,在具体设计时,通过四个模块之间的相互协作,完成了消息的发送、广播及接收,并将这四个模块封装在一个ActiveXEXE部件之中。下面就是这三个类模块的简单介绍及源代码: 

  类模块之一:Msg.cls----在该模块中,定义了消息数据结构VbMsg类,它是消息传递中的载体。这里只是一个简单的例子,如果想实现更多的功能,如建立两点间的数据通道,而不是单纯的广播消息,则可能需要对该结构进行一些扩充。 



Option Explicit 

/ 说 明: 

/ 消 息 类: 定 义 全 局 的 消 息 结 构 

Public iType As Long      /消 息 类 型 编 号 

Public iName As String     /消 息 名 

Public iSource As String    / 消 息 源 说 明 

Public iDescription As String /消 息 说 明 

Dim iT As Date     / 消 息 发 生 时 间 

/返 回 日 期 型 时 间 

Public Property Get iTime() As Date 

  iTime = iT 

End Property 

/返 回 字 符 型 时 间 

Public Property Get iTimeStr() As String 

  iTimeStr = Format(iT, "yyyy.mm.dd hh:mm:ss") 

End Property 

/ 在 对 象 被 建 立 时, 设 置 消 息 发 生 时 间 

Private Sub Class_Initialize() 

  iT = Now() 

End Sub 

  类模块之二:MsgCli.cls ---- 本模块是对客户接收端MsgClient类的定义,这相当于一 

个消息接收器。在这个类中定义的一个RecMsg事件,当接收器收到消息时(过程SetMsg被 

调用),就产生这一事件.接收器的建立者就截获这一事件,并处理消息。为了避免接收不 

必要的消息,声明了minMsg、maxMsg两个变量,以便对VbMsg中的iType属性进行过 

滤。 

Option Explicit 

' 说 明: 

' 客 户 消 息 接 收 类 

' 定 义 接 收 消 息 事 件, 该 对 象 的 宿 主 类 应 截 获 该 事 件, 

并 处 理接 收 到 的 消 息。 

Public Event RecMsg(ByVal msg As VbMsg) 

' 通 过 设 置 消 息 的 接 收 范 围, 可 以 过 滤 掉 不 需 要 的 消息 

Public minMsg As Long 

Public maxMsg As Long 

' 该 对 象 的 标 志 编 号, 使 用 时 不 应 修 改 该 值 

Public ID As Long 

' 事 件 产 生 过 程, 只 应 由 消 息 服 务 器(MsgServer) 调 用 

Public Sub SetMsg(msg As VbMsg) 

  If msg.iType >= minMsg And msg.iType <= maxMsg Then RaiseEvent RecMsg(msg) 

End If End Sub ' ' 

  根 据ID, 返 回 对 象 的 关 键 字, 只 应 由 消 息 服 务 器(MsgServer)调 用 

Public Property Get Key() As String Key="ID:" & ID End Property 

  类模块之三:Global.bas ---- 本模块声明了两个全局变量,一个是接收器(MsgClient)列表(Clients),一个是接收器计数器,以为每个接收器分配一个唯一的ID标志。把变量放在单独的模块中,是为了实现数据在进程间的共享,是跨进程间消息传递的关键所在。(应保证在编译时工程是单线程的,否则数据共享则不能实现。)。 

Option Explicit 

/ 说 明: 

/ 消 息 服 务 器 全 局 变 量 

/消 息 接 收 客 户 列 表 

Public Clients As New Collection 

/ 消 息 接 收 客 户ID 计 数 器 

Public CliCount As Long 

  类模块之四:MsgSrv.cls----本模块中定义了消息服务器类MsgServer,该类是消息广播引擎的主体,它主要管理维护消息接收器列表(Clients),将发送来的消息(调用SendMsg过程)依次发送给列表中的所有接收器。注意,这个类被声明为公共全局类,这主要是为了方便使用(不必在每个程序中再建立该类,过程名全局有效)。 

Option Explicit 

/说 明: 

/消 息 服 务 器 类 

/发 送 消 息 

Public Sub SendMsg(msg As VbMsg) 

  Dim c As MsgClient 

  For Each c In Clients 

    c.SetMsg msg 

    DoEvents 

  Next c 

End Sub 

/增 删 消 息 接 收 客 户 

Public Sub AddMsgClient(c As MsgClient) 

  CliCount = CliCount + 1 

  c.Id = CliCount 

  Clients.Add c, c.Key 

End Sub 

Public Sub DelMsgClient(c As MsgClient) 

  Clients.Remove c.Key 

  If Clients.Count = 0 Then CliCount = 0 

End Sub 

  到这里,一个小巧灵活的消息广播引擎就完成了,它的使用范围很广,用起来也很方便,只需在工程中引入编译过的ActiveX部件,就可以直接调用SendMsg发送消息,可能在安装消息接收器(MsgClient)时会稍许有点麻烦,下面举一个简单的应用例子大致说明一下: 

  在设计Windows程序时,往往会感觉到程序的实际运行过程与你想象的相差甚远,调试时就非常希望看到程序运行时后台的一些情况。利用VB的单步执行或Debug命令,都会受到一些限制。利用消息广播引擎,制作一个通用的实时消息事件查看程序,就可以很好地解决这一问题。查看程序的主要工作就是捕捉一组事先定义好的消息事件,并将消息的内容显示在列表框内,可以只用一个窗体完成,大体样子如下: 

Const MsgInfoID=101 

Private WithEvents mClient As MsgClient 

Private Sub Form_Load() 

  Set mClient = New MsgClient 

MClient.minMsg= MsgInfoID 

MClient.maxMsg= MsgInfoID 

AddMsgClient mClient 

End Sub 

Private Sub Form_Unload(Cancel As Integer) 

  DelMsgClient mClient 

End Sub 

Private Sub mClient _RecMsg(ByVal msg As VbMsgSrv.VbMsg) 

  List1.AddItem msg.iTimeStr & Chr(9) & msg.iName & Chr(9) & msg.iDescription 

End Sub 

  在被调试的程序中,为了调用方便,可以编写一个全局过程,象下面这个样子: 

Const MsgInfoID=101 

Public Sub MsgInfo(iName As String,iDes As String) 

Dim msg As New MsgClient 

With msg 

.iName = iName 

. iDescription = iDes 

End With 

SendMsg msg 

End Sub 

  在程序的重点需要了解的环节插入MsgInfo过程,运行时信息就会在事件查看程序的窗 口中被显示出来。这种方法尤其适合调试多程序协作的软件系统。当软件系统正式交给用 户时,插入的MsgInfo过程也不一定要全部删掉,只要将实时查看变为写入日志文件,这 些运行时的信息也是日后软件维护的第一手资料。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )


相关教程