程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB程序中處理隨機事件

VB程序中處理隨機事件

編輯:VB綜合教程

  在程序設計過程中,如何輕松地處理眾多的隨機事件,往往是制作大型系統首先要考慮的問題之一。用C語言開發Windows程序時,可以方便地使用消息機制(Message),但是,設計VB程序時,就沒有這樣的方便條件了。例如,多個窗口同時打開同一個表(Table),當在一個窗口中對數據進行了修改,而其他的窗口也能夠隨之進行數據更新,這時就需要有一條說明數據改變了的消息在所有的窗口間進行廣播。如果使用的語言是C,只需要定義一條用戶消息(UserMessage),就可以實現這一點。可是如果是用VB編程,做起來就不是那麼簡單了。VB5.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屬性進行過濾。

  • 首頁
  • 上一頁
  • 1
  • 2
  • 3
  • 下一頁
  • 尾頁
  • 共3頁
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved