MultiUse = -1 'True
END
Attribute VB_Name = "MsgClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
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 标 志。 把 变 量 放 在 单 独 的 模 块 中， 是 为 了 实 现 数 据 在 进 程 间 的 共 享， 是 跨 进 程 间 消 息 传 递 的 关 键 所 在。（ 应 保 证 在 编 译 时 工 程 是 单 限 程 的， 否 则 数 据 共 享 则 不 能 实 现。）。
Attribute VB_Name = "modGlobal"
Option Explicit
' 说 明：
' 消 息 服 务 器 全 局 变 量
' ---
消 息 接 收 客 户 列 表
Public Clients As New Collection
' 消 息 接 收 客 户ID 计 数 器
Public CliCount As Long
类 模 块 之 四：MsgSrv.cls
本 模 块 中 定 义 了 消 息 服 务 器 类MsgServer， 该 类 是 消 息 广 播 引 擎 的 主 体， 它 主 要 管 理 维 护 消 息 接 收 器 列 表（Clients）， 将 发 送 来 的 消 息（ 调 用SendMsg 过 程） 依 次 发 送 给 列 表 中 的 所 有 接 收 器。 注 意， 这 个 类 被 声 明 为 公 共 全 局 类， 这 主 要 是 为 了 方 便 使 用（ 不 必 在 每 个 程 序 中 再 建 立 该 类， 过 程 名 全 局 有 效）。
VERSION 1.0 CLASS
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 程 序 时， 往 往 会 感 觉 到 程 序 的 实 际 运 行 过 程 与 你 想 象 的 相 差 甚 远， 调 试 时 就 非 常 希 望 看 到 程 序 运 行 时 后 台 的 一 些 情 况。 利 用 Ｖ Ｂ 的 单 步 执 行 或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)
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
