VB程序中处理随机事件(2)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:10 来源：互联网

本文章共3383字，分3页，当前第2页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《VB程序中处理随机事件(2)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

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

本文章更多内容：<<上一页 - 1 - 2 - 3 - 下一页>>

本页地址