VB中創建超長時間計時器對象

（長沙交通學院 信息與計算科學系 長沙410076） 作者：李湘江 鄒筱梅

摘　要：本文介紹在VB程序中用Timer控件創建一個超長時間的計時器對象，將其編譯成ActiveX DLL部件，利用代碼的可重用性，在其它應用程序中調用。

關鍵詞：Vb 計時器 對象

VB系統中提供了固有計時器Timer控件，通過給計時器控件的Interval屬性設置不同的數值，就可以控制計時器運行的時間間隔，但該屬性是一個雙字節的整型變量，最大值只能設置為65535，即只有65535毫秒,約一分鐘多一點，在需要長時間計時時，該控件就無能為力了。本文給出用Timer控件創建一個超長時間的計時器對象，并將其編譯成ActiveX DLL部件，供其它應用程序調用，可實現最大限度地利用代碼的可重用性。下面給出這個超長計時器對象的編程設計過程，供讀者參考選用。

1．編寫程序

啟動VB，新建一個ActiveX DLL工程，將工程命名為NewTimer，將類模塊名Class1改名為LongTimer。在工程中添加一個窗體Form1，在窗體上加入一個Timer計時器控件Timer1。打開LongTimer類模塊，加入如下程序代碼：

Option Explicit

Public Event Tick() '聲明事件

Private nz As Integer

Private cs As Integer

Private m_Form As Form1

Private WithEvents m_Timer As Timer '聲明對象類變量

'返回Enable屬性值

Public Property Get Enabled() As Boolean

Enabled = m_Timer.Enabled

End Property

'設置Enable屬性值

Public Property Let Enabled(ByVal vNewValue As Boolean)

m_Timer.Enabled = vNewValue

End Property

'返回Interval屬性值

Public Property Get Interval() As Long

Interval = m_Timer.Interval

End Property

'設置Interval屬性值

Public Property Let Interval(ByVal vNewValue As Long)

cs = 0

nz = vNewValue \ 65536 1

m_Timer.Interval = vNewValue \ nz

End Property

'類初始化事件

Private Sub CLASS_Initialize()

Set m_Form = New Form1

Load m_Form

Set m_Timer = m_Form.Timer1

End Sub

'類終止事件

Private Sub CLASS_Terminate()

Unload m_Form

Set m_Timer = Nothing

End Sub

'產生Tick事件

Private Sub m_Timer_Time

[1] [2] 

【VB中創建超長時間計時器對象】相關文章：

適合跨年時給對象發的超長句子（精選80句）04-24

計時器作文09-22

論新世紀審美對象的創建04-29

淺談VB語言在道路設計中的應用04-27

地球年齡計時器04-28

超長的說說04-13

超長電磁波法在隱伏斷裂探測中的應用04-27

混合網在超長隧洞平面控制測量中的應用04-27

三維地質圖在VB中的構筑與實現05-01

空間超長說說06-08