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过程也不一定要全部删掉，只要将实时查看变为写入日志文件，这 些运行时的信息也是日后软件维护的第一手资料。
用activex exe可以实现