在VB中用定時控件實現長定時操作

領測軟件測試網 Timer控件可用來在一定時間間隔執行操作，然而，一個Timer控件的時間間隔取值最大為64.767毫秒，這意味著即使最長的時間間隔也不比一分鐘長多少（大約64.8秒），也就是說一個Timer控件只能響應大約一分鐘之內的事件。如果要響應長時間的事件，例如，要開發一個學習系統的自我測試或考試過程，需要限制一個考試時間，一般都在１０～１５０分鐘，開始自動計時，時間到報警考試結束。則需多個Timer控件配合使用，這樣做顯得既繁瑣又不實用。其實，可以只用一個Timer控件，在其Timer過程中使用一個計數器，從而響應任意長時間間隔的事件。
下面是一個定時實例的部分代碼：

控 件 屬 性　　 設置的值
Label1 Caption "請輸入限定時間（分鐘）："
Text1 Text ""
Command1 Caption "確認"
Timer1 Interval 60000
Enabled False
在窗體通用模塊General里聲明N、T兩個變量，N作為計數器，T用來存放限定時間。
DIM N AS Integer
DIM T AS String
Private Sub Command1_Click()
T=Text1.Text
Timer1.Enabled＝True
End Sub

Private Sub Timer1_Timer()
N=N+1
if n=val(T)　Then
Beep
Timer1.Enabled=False
End if
End Sub
將定時器的Interval屬性值設為６００００，使得計數器每分鐘加１，當然也可以設置為其他的值，如１０００，這樣就使得計數器每秒鐘加１，但這樣要浪費較多的系統時間。

文章來源于領測軟件測試網 http://www.kjueaiud.com/