在程序設計過程中，如何輕松地處理眾多的隨機事件，往往是制作大型系統(tǒng)首先要考慮的問題之一。用C語言開發(fā)Windows程序時，可以方便地使用消息機制（Message），但是，設計VB程序時，就沒有這樣的方便條件了。例如，多個窗口同時打開同一個表（Table），當在一個窗口中對數(shù)據(jù)進行了修改，而其他的窗口也能夠隨之進行數(shù)據(jù)更新，這時就需要有一條說明數(shù)據(jù)改變了的消息在所有的窗口間進行廣播。如果使用的語言是C，只需要定義一條用戶消息（UserMessage），就可以實現(xiàn)這一點?？墒侨绻怯肰B編程，做起來就不是那么簡單了。ＶＢ5.0企業(yè)版中增添了許多強有力的特性，有幾點特性，正好可以幫助我們解決難題。先介紹一下這幾個特性：
1.用戶自定義事件：在類模塊中，可以使用Event關鍵字來定義用戶自定義事件，使用RaiseEvent語句來產生該事件，這一機制給處理隨機事件帶來極大的方便。當收到需要廣播的消息時，產生一個預定義的事件，而需要處理消息的客體對象，只需截獲該事件，就完成了消息的傳遞。
2.ActiveX EXE部件：利用VB，可以方便地將共享代碼封裝在ActiveX部件之中。將消息廣播引擎實現(xiàn)于一個ActiveX部件之中，不僅方便了在程序中使用，而且更為重要的一點是，可以實現(xiàn)跨進程間的消息傳遞。因為ActiveX部件有內部（DLL）外部（EXE）兩種，對于外部部件，可以對模塊內的全局數(shù)據(jù)實現(xiàn)共享（關于ActiveX兩種代碼部件的
區(qū)別，請閱讀VB的聯(lián)機幫助文件）。
3.遠程自動化連接：ActiveX部件，是一種標準的客戶機/服務器結構，利用Windows平臺的COM模型，VB已能方便地將這種結構擴展到整個網(wǎng)絡的范圍。所以，我們的消息廣播設計，在實現(xiàn)了進程間的消息傳遞之后，進而實現(xiàn)網(wǎng)絡上的消息傳遞，也成為可能。
通過上面的幾點介紹，這一方式的設計思想也就比較清楚了，在具體設計時，通過四個模塊之間的相互協(xié)作，完成了消息的發(fā)送、廣播及接收，并將這四個模塊封裝在一個ActiveXEXE部件之中。下面就是這三個類模塊的簡單介紹及源代碼：
類模塊之一：Msg.cls----在該模塊中，定義了消息數(shù)據(jù)結構VbMsg類，它是消息傳遞中的載體。這里只是一個簡單的例子，如果想實現(xiàn)更多的功能，如建立兩點間的數(shù)據(jù)通道，而不是單純的廣播消息，則可能需要對該結構進行一些擴充。
Option Explicit
/ 說 明：
/ 消 息 類： 定 義 全 局 的 消 息 結 構
Public iType As Long /消 息 類 型 編 號
Public iName As String /消 息 名
Public iSource As String / 消 息 源 說 明
Public iDescription As String /消 息 說 明
Dim iT As Date / 消 息 發(fā) 生 時 間
/返 回 日 期 型 時 間
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
/ 在 對 象 被 建 立 時， 設 置 消 息 發(fā) 生 時 間
Private Sub Class_Initialize()
iT = Now()
End Sub
1.用戶自定義事件：在類模塊中，可以使用Event關鍵字來定義用戶自定義事件，使用RaiseEvent語句來產生該事件，這一機制給處理隨機事件帶來極大的方便。當收到需要廣播的消息時，產生一個預定義的事件，而需要處理消息的客體對象，只需截獲該事件，就完成了消息的傳遞。
2.ActiveX EXE部件：利用VB，可以方便地將共享代碼封裝在ActiveX部件之中。將消息廣播引擎實現(xiàn)于一個ActiveX部件之中，不僅方便了在程序中使用，而且更為重要的一點是，可以實現(xiàn)跨進程間的消息傳遞。因為ActiveX部件有內部（DLL）外部（EXE）兩種，對于外部部件，可以對模塊內的全局數(shù)據(jù)實現(xiàn)共享（關于ActiveX兩種代碼部件的
區(qū)別，請閱讀VB的聯(lián)機幫助文件）。
3.遠程自動化連接：ActiveX部件，是一種標準的客戶機/服務器結構，利用Windows平臺的COM模型，VB已能方便地將這種結構擴展到整個網(wǎng)絡的范圍。所以，我們的消息廣播設計，在實現(xiàn)了進程間的消息傳遞之后，進而實現(xiàn)網(wǎng)絡上的消息傳遞，也成為可能。
通過上面的幾點介紹，這一方式的設計思想也就比較清楚了，在具體設計時，通過四個模塊之間的相互協(xié)作，完成了消息的發(fā)送、廣播及接收，并將這四個模塊封裝在一個ActiveXEXE部件之中。下面就是這三個類模塊的簡單介紹及源代碼：
類模塊之一：Msg.cls----在該模塊中，定義了消息數(shù)據(jù)結構VbMsg類，它是消息傳遞中的載體。這里只是一個簡單的例子，如果想實現(xiàn)更多的功能，如建立兩點間的數(shù)據(jù)通道，而不是單純的廣播消息，則可能需要對該結構進行一些擴充。
Option Explicit
/ 說 明：
/ 消 息 類： 定 義 全 局 的 消 息 結 構
Public iType As Long /消 息 類 型 編 號
Public iName As String /消 息 名
Public iSource As String / 消 息 源 說 明
Public iDescription As String /消 息 說 明
Dim iT As Date / 消 息 發(fā) 生 時 間
/返 回 日 期 型 時 間
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
/ 在 對 象 被 建 立 時， 設 置 消 息 發(fā) 生 時 間
Private Sub Class_Initialize()
iT = Now()
End Sub