- 相關(guān)推薦
VB中創(chuàng)建超長(zhǎng)時(shí)間計(jì)時(shí)器對(duì)象
（長(zhǎng)沙交通學(xué)院 信息與計(jì)算科學(xué)系 長(zhǎng)沙410076） 作者：李湘江 鄒筱梅
摘 要：本文介紹在VB程序中用Timer控件創(chuàng)建一個(gè)超長(zhǎng)時(shí)間的計(jì)時(shí)器對(duì)象，將其編譯成ActiveX DLL部件，利用代碼的可重用性，在其它應(yīng)用程序中調(diào)用。
關(guān)鍵詞：Vb 計(jì)時(shí)器 對(duì)象
VB系統(tǒng)中提供了固有計(jì)時(shí)器Timer控件，通過(guò)給計(jì)時(shí)器控件的Interval屬性設(shè)置不同的數(shù)值，就可以控制計(jì)時(shí)器運(yùn)行的時(shí)間間隔，但該屬性是一個(gè)雙字節(jié)的整型變量，最大值只能設(shè)置為65535，即只有65535毫秒,約一分鐘多一點(diǎn)，在需要長(zhǎng)時(shí)間計(jì)時(shí)時(shí)，該控件就無(wú)能為力了。本文給出用Timer控件創(chuàng)建一個(gè)超長(zhǎng)時(shí)間的計(jì)時(shí)器對(duì)象，并將其編譯成ActiveX DLL部件，供其它應(yīng)用程序調(diào)用，可實(shí)現(xiàn)最大限度地利用代碼的可重用性。下面給出這個(gè)超長(zhǎng)計(jì)時(shí)器對(duì)象的編程設(shè)計(jì)過(guò)程，供讀者參考選用。
1．編寫程序
啟動(dòng)VB，新建一個(gè)ActiveX DLL工程，將工程命名為NewTimer，將類模塊名Class1改名為L(zhǎng)ongTimer。在工程中添加一個(gè)窗體Form1，在窗體上加入一個(gè)Timer計(jì)時(shí)器控件Timer1。打開(kāi)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 '聲明對(duì)象類變量
'返回Enable屬性值
Public Property Get Enabled() As Boolean
Enabled = m_Timer.Enabled
End Property
'設(shè)置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
'設(shè)置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
'產(chǎn)生Tick事件
Private Sub m_Timer_Time
[1] [2]
【VB中創(chuàng)建超長(zhǎng)時(shí)間計(jì)時(shí)器對(duì)象】相關(guān)文章：
適合跨年時(shí)給對(duì)象發(fā)的超長(zhǎng)句子（精選80句）04-24
計(jì)時(shí)器作文09-22
論新世紀(jì)審美對(duì)象的創(chuàng)建04-29
淺談VB語(yǔ)言在道路設(shè)計(jì)中的應(yīng)用04-27
地球年齡計(jì)時(shí)器04-28
超長(zhǎng)電磁波法在隱伏斷裂探測(cè)中的應(yīng)用04-27
混合網(wǎng)在超長(zhǎng)隧洞平面控制測(cè)量中的應(yīng)用04-27