VB中創(chuàng)建超長時間計時器對象

1、VB中創(chuàng)立超長時間計時器對象VB中創(chuàng)立超長時間計時器對象 VB中創(chuàng)立超長時間計時器對象 VB中創(chuàng)立超長時間計時器對象長沙交通學(xué)院 信息與計算科學(xué)系 長沙410076 李湘江 鄒筱梅摘 要：本文介紹在VB程序中用Timer控件創(chuàng)立一個超長時間的計時器對象，將其編譯成ActiveX DLL部件，利用代碼的可重用性，在其它應(yīng)用程序中調(diào)用。關(guān)鍵詞：Vb 計時器 對象VB系統(tǒng)中提供了固有計時器Timer控件，通過給計時器控件的Interval屬性設(shè)置不同的數(shù)值，就可以控制計時器運行的時間間隔，但該屬性是一個雙字節(jié)的整型變量，最大值只能設(shè)置為65535，即只有65535毫秒,約一分鐘多一點，在需要長時間計

2、時時，該控件就無能為力了。本文給出用Timer控件創(chuàng)立一個超長時間的計時器對象，并將其編譯成ActiveX DLL部件，供其它應(yīng)用程序調(diào)用，可實現(xiàn)最大限度地利用代碼的可重用性。下面給出這個超長計時器對象的編程設(shè)計過程，供讀者參考選用。1編寫程序啟動VB，新建一個ActiveX DLL工程，將工程命名為NewTimer，將類模塊名Class1改名為LongTimer。在工程中添加一個窗體Form1，在窗體上參加一個Timer計時器控件Timer1。翻開LongTimer類模塊，參加如下程序代碼：Option ExplicitPublic Event Tick() '聲明事件Private

3、 nz As IntegerPrivate cs As IntegerPrivate m_Form As Form1Private WithEvents m_Timer As Timer '聲明對象類變量'返回Enable屬性值Public Property Get Enabled() As BooleanEnabled = m_Timer.EnabledEnd Property'設(shè)置Enable屬性值Public Property Let Enabled(ByVal vNewValue As Boolean)m_Timer.Enabled = vNewValueEnd

4、 Property'返回Interval屬性值Public Property Get Interval() As LongInterval = m_Timer.IntervalEnd Property'設(shè)置Interval屬性值Public Property Let Interval(ByVal vNewValue As Long)cs = 0nz = vNewValue 65536 + 1m_Timer.Interval = vNewValue nzEnd Property'類初始化事件Private Sub CLASS_Initialize()Set m_Form

5、= New Form1Load m_FormSet m_Timer = m_Form.Timer1End Sub'類終止事件Private Sub CLASS_Terminate()Unload m_FormSet m_Timer = NothingEnd Sub'產(chǎn)生Tick事件Private Sub m_Timer_Timer()cs = cs + 1If cs = nz ThenRaiseEvent Tickcs = 0End IfEnd Sub窗體Form1只用來作計時器Timer1的載體，不用于顯示。2測試NewTimer.DLL對ActiveX DLL部件進展測試，

6、與標準的EXE程序一樣，可分為單步運行或全運行。在寫完所有程序代碼后，建議用戶先用Ctrl+F5進展全編譯執(zhí)行，發(fā)現(xiàn)檢查NewTimer程序的語法錯誤。也可建立一個測試工程與NewTimer鏈接進展測試，針對由NewTimer類模塊提供的每個屬性和事件，添加測試代碼來測試它們的屬性和方法。按F8，進入單步運行狀態(tài)，逐個語句觀察對NewTimer類模塊的調(diào)用情況。3編譯NewTimer.DLL完成測試，排除所有錯誤后，從“文件F菜單中選擇“生成NewTimer.dllK)命令，編譯生成NewTimer.dll文件。編譯成功后NewTimer.dll文件將自動注冊到Windows注冊表中，4引用N

7、ewTimer.DLL引用ActiveX DLL部件同引用其他對象一樣，從“工程P菜單中選擇“引用N命令，翻開引用窗口，從引用列表中選中NewTimer對象。假設(shè)是第一次引用NewTimer，那么在引用窗體上單擊“游覽B命令按鈕，將NewTimer.DLL文件添加到可引用列表框中方可使用。5調(diào)用NewTimer.DLL在應(yīng)用程序中參加下述程序代碼，實現(xiàn)參NewTimer.dll的調(diào)用：Option ExplicitDim WithEvents LongTimer1 As LongTimerPrivate Sub LongTimer1_Tick()Print "時間到，此處添加處理程序"End SubPrivate Sub Command1_Click()LongTimer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Set LongTimer1 = New LongTimerEnd Sub參考文獻2東箭工作室.Visual Basic5.0中文版程序設(shè)計.清華大學(xué)出版社，19973Evangelos Petroutsos. Visual Basic5從入門到精通.北京：電子工業(yè)出版社，1997-作者