|
在程序設計過程中，如何輕松地處理眾多的隨機事件，往往是制作大型系統首先要考慮的問題之一。用C語言開發Windows程序時，可以方便地使用消息機制（Message），但是，設計VB程序時，就沒有這樣的方便條件了。例如，多個窗口同時打開同一個表（Table），當在一個窗口中對數據進行了修改，而其他的窗口也能夠隨之進行數據更新，這時就需要有一條說明數據改變了的消息在所有的窗口間進行廣播。如果使用的語言是C，只需要定義一條用戶消息（UserMessage），就可以實現這一點�？墒侨绻怯肰B編程，做起來就不是那么簡單了。ＶＢ5.0企業版中增添了許多強有力的特性，有幾點特性，正好可以幫助我們解決難題。先介紹一下這幾個特性：
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過程也不一定要全部刪掉，只要將實時查看變為寫入日志文件，這 些運行時的信息也是日后軟件維護的第一手資料。
|
加好友 
發短信
Post By：2010-12-14 12:02:56
