正在阅读：在VB程序中处理随机事件在VB程序中处理随机事件

2005-06-10 10:20 出处：作者：蛋蛋责任编辑：moningfeng

到这里，一个小巧灵活的消息广播引擎就完成了，它的使用范围很广，用起来也很方便，只需在工程中引入编译过的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过程也不一定要全部删掉，只要将实时查看变为写入日志文件，这些运行时的信息也是日后软件维护的第一手资料。