在Visual Basic(以下简称VB)程序设计过程中，如何轻松地处理众多的随机事件，往往是制作大型系统首先要考虑的问题之一。例如，多个窗口同时打开同一个表（Table），一个窗口中对数据进行了修改，而其它窗口也能够随之进行数据更新，这时就需要有一条说明数据改变了的消息在所有窗口间进行广播。在C中，只需要定义一条用户消息即可实现这一点；而用VB编程就不那么简单。

早期实现方法及局限性

　　对于以上问题，笔者早期的实现方法是，自定义一个消息结构（VbMsg），并在程序的主窗体内建立一个消息广播引擎，主要由一个消息队列和一个定时消息广播器所组成。消息广播器每隔一固定时间检查一次消息队列，如果有消息存在，就将其发送给所有打开的窗口，并将该消息从队列中删除。如此再定义一个全局的消息发送过程（SendMsg），将要发送的消息（VbMsg）送入消息队列。这样当需要广播消息时，只需填充好消息结构，调用SendMsg过程即可。　

　　这里较为复杂的是消息广播器如何将消息发送到各窗口。这需要作个硬性规定，即每一个窗体都必须定义一个形式完全相同的消息接收函数（RecMsg），在这个函数中对接收到的消息进行处理，当然也可以什么都不做。有了这样的规定之后，消息广播器在进行广播时，就可以利用VB系统定义的全局变量Forms，遍历所有的窗体，并调用一遍每个窗体的消息接收函数。其主要代码如下：

　　
Public Sub SendMsgToForms(msg as VbMsg)
Dim frm as Form
For Each frm In Forms
frm.RecMsg msg
Next frm
End Sub 　

　　通过上面的这些过程，就可以实现在独立的程序中，对随机事件进行异步处理。这一方法的效果基本令人满意。但是它有几个较大的局限性：

　　？　定时检查消息队列需要利用Timer控件进行触发，这在程序运行时，就必然要牺牲一部分效率；

　　？　消息广播的范围限定在一个程序模块内，如果整个系统分成多个大的模块，那么存在于动态链接模块（.DLL）中的窗体将不能直接接收到广播消息，更无法实现进程间的消息传递；

　　？　消息的接收者只能是窗体，而作为真正的基础单元“类”却无法直接接收消息。　

VB5.0的新特性及实现方法
　　VB 5.0 企业版增添了 嗲坑辛Φ奶匦裕?梢越饩鲆陨夏烟狻！?/p>

　　1、 用户自定义事件

　　在类模块中，可以使用Event关键字来定义用户自定义事件，使用 RaiseEvent 语句来产生该事件，这一机制给处理随机事件带来了很大方便。本文中的消息广播引擎，就可以不再使用Timer控件做支持，而是当收到需要广播的消息时，产生一个预定义的事件；而需要处理消息的客体对象，只需截获该事件。

　　2、 ActiveX EXE组件

　　利用VB，可以方便地将共享代码封装在ActiveX组件之中，从而可以实现跨进程间的消息传递。因为ActiveX组件有内部（DLL）、外部（EXE）两种，外部组件可以对模块内的全局数据实现共享。

　　3、 远程自动化连接

　　ActiveX组件是一种标准的客户机/服务器结构，利用Windows平台的COM模型，VB能够方便地将这种结构扩展到整个网络的范围。所以，消息广播设计既可实现进程间的消息传递，也可实现网络上的消息传递。

　　根据以上思想，笔者通过四个模块之间的相互协作，完成了消息的发送、广播及接收，并将这四个模块封装在一个ActiveX EXE组件之中。下面就是这四个类模块的简单介绍及源代码。

　　类模块之一：Msg.cls

　　该模块定义了消息数据结构VbMsg类，它是消息传递中的载体。这里只是一个简单的例子，如果想实现更多的功能，如建立两点间的数据通道，而不是单纯的广播消息，则要对该结构进行一些扩充。