方法一：

間隔設(shè)置為60秒
private sub Timer1_Timer()
static n as integer
n=n+1
if n mod 10 = 0 then'10分鐘

n=0
msgbox "ok"
end if
end sub

 

 

方法二：

Timer控件可用來(lái)在一定時(shí)間間隔執(zhí)行操作，然而，一個(gè)Timer控件的時(shí)間間隔取值最大為64.767毫秒，這意味著即使最長(zhǎng)的時(shí)間間隔也不比一分鐘長(zhǎng)多少（大約64.8秒），也就是說(shuō)一個(gè)Timer控件只能響應(yīng)大約一分鐘之內(nèi)的事件。如果要響應(yīng)長(zhǎng)時(shí)間的事件，例如，要開(kāi)發(fā)一個(gè)學(xué)習(xí)系統(tǒng)的自我測(cè)試或考試過(guò)程，需要限制一個(gè)考試時(shí)間，一般都在１０～１５０分鐘，開(kāi)始自動(dòng)計(jì)時(shí)，時(shí)間到報(bào)警考試結(jié)束。則需多個(gè)Timer控件配合使用，這樣做顯得既繁瑣又不實(shí)用。其實(shí)，可以只用一個(gè)Timer控件，在其Timer過(guò)程中使用一個(gè)計(jì)數(shù)器，從而響應(yīng)任意長(zhǎng)時(shí)間間隔的事件。
下面是一個(gè)定時(shí)實(shí)例的部分代碼：

控件 屬 性設(shè)置的值
Label1 Caption ″請(qǐng)輸入限定時(shí)間（分鐘）：
″
Text1 Text ″″
Command1 Caption ″確認(rèn)″
Timer1 Interval ６００００
Enabled False
在窗體通用模塊General里聲明Ｎ、Ｔ兩個(gè)變量，Ｎ作為計(jì)數(shù)器，Ｔ用來(lái)存放限定時(shí)間。
DIM N AS Integer
DIM T AS String
Command1_Click()
T＝Text1.Text
Timer1.Enabled＝True……
End Sub
Timer1－　Timer（　?。?br /> N＝N+1
if 　n＝val(T)　Then
　　Beep
　　 Timer1.Enabled＝False
　　 End if
End Sub
將定時(shí)器的Interval屬性值設(shè)為６００００，使得計(jì)數(shù)器每分鐘加１，當(dāng)然也可以設(shè)置為其他的值，如１０００，這樣就使得計(jì)數(shù)器每秒鐘加１，但這樣要浪費(fèi)較多的系統(tǒng)時(shí)間。