Public Sub SetMsg(msg As VbMsg)
If msg.iType ＞= minMsg And msg.iType ＜= maxMsg Then
RaiseEvent RecMsg(msg)
nd If
nd Sub
根据ID返回对象的关键字，只应由消息服务器调用
Public Property Get Key() As String
Key = “ID:＆ ID
End Property
类模块之三：Global.bas
本模块声明了两个全局变量，一个是接收器（MsgClient）列表（Clients），一个是接收器计数器，为每个接收器分配一个唯一的ID标志。把变量放在单独的模块中，是为了实现数据在进程间的共享，是跨进程间消息传递的关键所在（应保证在编译时工程是单线程的，否则不能实现数据共享）。
Attribute VB_Name = “modGlobal
Option Explicit
消息服务器全局变量，消息接收客户列表
Public Clients As New Collection
消息接收客户ID计数器
Public CliCount As Long
类模块之四：MsgSrv.cls
本模块定义了消息服务器类MsgServer，该类是消息广播引擎的主体，它主要管理维护消息接收器列表（Clients），将发送来的消息（调用SendMsg过程）依次发送给列表中的所有接收器。请注意：为了方便使用，该类被声明为公共全局类。
BEGIN
MultiUse = －1 True
END
Attribute VB_Name = “MsgServer
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
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) ＆
sg.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过程也不一定要全部删掉，只要将实时查看改为写入日志文件，作为日后软件维护的资料。
155
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
