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