| 以文本方式查看主題 - 曙海教育集團(tuán)論壇 (http://www.xinguifushi.cn/bbs/index.asp) -- VB語(yǔ)言 (http://www.xinguifushi.cn/bbs/list.asp?boardid=77) ---- VB程序中處理隨機(jī)事件 (http://www.xinguifushi.cn/bbs/dispbbs.asp?boardid=77&id=2587) |
| -- 作者：wangxinxin -- 發(fā)布時(shí)間：2010-12-14 12:02:56 -- VB程序中處理隨機(jī)事件 在程序設(shè)計(jì)過(guò)程中，如何輕松地處理眾多的隨機(jī)事件，往往是制作大型系統(tǒng)首先要考慮的問(wèn)題之一。用C語(yǔ)言開發(fā)Windows程序時(shí)，可以方便地使用消息機(jī)制（Message），但是，設(shè)計(jì)VB程序時(shí)，就沒(méi)有這樣的方便條件了。例如，多個(gè)窗口同時(shí)打開同一個(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)。可是如果是用VB編程，做起來(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 類模塊之二：MsgCli.cls ---- 本模塊是對(duì)客戶接收端MsgClient類的定義，這相當(dāng)于一 個(gè)消息接收器。在這個(gè)類中定義的一個(gè)RecMsg事件,當(dāng)接收器收到消息時(shí)(過(guò)程SetMsg被 調(diào)用)，就產(chǎn)生這一事件.接收器的建立者就截獲這一事件，并處理消息。為了避免接收不 必要的消息，聲明了minMsg、maxMsg兩個(gè)變量，以便對(duì)VbMsg中的iType屬性進(jìn)行過(guò) 濾。 Option Explicit \' 說(shuō) 明： \' 客 戶 消 息 接 收 類 \' 定 義 接 收 消 息 事 件， 該 對(duì) 象 的 宿 主 類 應(yīng) 截 獲 該 事 件， 并 處 理接 收 到 的 消 息。 Public Event RecMsg(ByVal msg As VbMsg) \' 通 過(guò) 設(shè) 置 消 息 的 接 收 范 圍， 可 以 過(guò) 濾 掉 不 需 要 的 消息 Public minMsg As Long Public maxMsg As Long \' 該 對(duì) 象 的 標(biāo) 志 編 號(hào)， 使 用 時(shí) 不 應(yīng) 修 改 該 值 Public ID As Long \' 事 件 產(chǎn) 生 過(guò) 程， 只 應(yīng) 由 消 息 服 務(wù) 器（MsgServer） 調(diào) 用 Public Sub SetMsg(msg As VbMsg) If msg.iType >= minMsg And msg.iType <= maxMsg Then RaiseEvent RecMsg(msg) End If End Sub \' \' 根 據(jù)ID， 返 回 對(duì) 象 的 關(guān) 鍵 字， 只 應(yīng) 由 消 息 服 務(wù) 器（MsgServer）調(diào) 用 Public Property Get Key() As String Key="ID:" & ID End Property 類模塊之三：Global.bas ---- 本模塊聲明了兩個(gè)全局變量，一個(gè)是接收器（MsgClient）列表（Clients），一個(gè)是接收器計(jì)數(shù)器，以為每個(gè)接收器分配一個(gè)唯一的ID標(biāo)志。把變量放在單獨(dú)的模塊中，是為了實(shí)現(xiàn)數(shù)據(jù)在進(jìn)程間的共享，是跨進(jìn)程間消息傳遞的關(guān)鍵所在。（應(yīng)保證在編譯時(shí)工程是單線程的，否則數(shù)據(jù)共享則不能實(shí)現(xiàn)。）。 Option Explicit / 說(shuō) 明： / 消 息 服 務(wù) 器 全 局 變 量 /消 息 接 收 客 戶 列 表 Public Clients As New Collection / 消 息 接 收 客 戶ID 計(jì) 數(shù) 器 Public CliCount As Long 類模塊之四：MsgSrv.cls----本模塊中定義了消息服務(wù)器類MsgServer，該類是消息廣播引擎的主體，它主要管理維護(hù)消息接收器列表（Clients），將發(fā)送來(lái)的消息（調(diào)用SendMsg過(guò)程）依次發(fā)送給列表中的所有接收器。注意，這個(gè)類被聲明為公共全局類，這主要是為了方便使用（不必在每個(gè)程序中再建立該類，過(guò)程名全局有效）。 Option Explicit /說(shuō) 明： /消 息 服 務(wù) 器 類 /發(fā) 送 消 息 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 到這里，一個(gè)小巧靈活的消息廣播引擎就完成了，它的使用范圍很廣，用起來(lái)也很方便，只需在工程中引入編譯過(guò)的ActiveX部件，就可以直接調(diào)用SendMsg發(fā)送消息，可能在安裝消息接收器（MsgClient）時(shí)會(huì)稍許有點(diǎn)麻煩，下面舉一個(gè)簡(jiǎn)單的應(yīng)用例子大致說(shuō)明一下： 在設(shè)計(jì)Windows程序時(shí)，往往會(huì)感覺(jué)到程序的實(shí)際運(yùn)行過(guò)程與你想象的相差甚遠(yuǎn)，調(diào)試時(shí)就非常希望看到程序運(yùn)行時(shí)后臺(tái)的一些情況。利用VB的單步執(zhí)行或Debug命令，都會(huì)受到一些限制。利用消息廣播引擎，制作一個(gè)通用的實(shí)時(shí)消息事件查看程序，就可以很好地解決這一問(wèn)題。查看程序的主要工作就是捕捉一組事先定義好的消息事件，并將消息的內(nèi)容顯示在列表框內(nèi)，可以只用一個(gè)窗體完成，大體樣子如下： 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 在被調(diào)試的程序中，為了調(diào)用方便，可以編寫一個(gè)全局過(guò)程，象下面這個(gè)樣子： 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 在程序的重點(diǎn)需要了解的環(huán)節(jié)插入MsgInfo過(guò)程，運(yùn)行時(shí)信息就會(huì)在事件查看程序的窗 口中被顯示出來(lái)。這種方法尤其適合調(diào)試多程序協(xié)作的軟件系統(tǒng)。當(dāng)軟件系統(tǒng)正式交給用 戶時(shí)，插入的MsgInfo過(guò)程也不一定要全部刪掉，只要將實(shí)時(shí)查看變?yōu)閷懭肴罩疚募@ 些運(yùn)行時(shí)的信息也是日后軟件維護(hù)的第一手資料。 |