如果觸發事件後不關閉計時器(設置enabled屬性為false,功能與interval=0時壹樣),它就每隔壹定時間不斷觸發事件,直到程序結束或 interval屬性值設為0 或 enabled屬性設為0
倒計時5秒結束後自動關閉form2:
**Timer是不準確,但精度要求不高時還是可以的。
1.新建標準EXE工程,在Form1添加壹計時器Timer1,壹文本框Text1,再加壹窗體:form2
2.寫入下面代碼(有兩方案),但以下還是保留
[方案壹:最簡單的,看不到倒數過程]
private sub Form_load()
form2.show '運行窗體2
timer1.interval=5*1000 '5000毫秒,即5秒
end sub
Private Sub Timer1_Timer()
timer1.enabled=false '關閉計時器
unload form2 '關閉form2
End Sub
[方案二:看到倒數過程]
private sub Form_load()
form2.show '運行窗體2
text1.text="5"
timer1.interval=1*1000 '1000毫秒,即1秒
end sub
Private Sub Timer1_Timer()
Rem text1的值減1
'{
Dim a as integer
a=val(text1.text) 'text1.text字串轉整數
a=a-1
text1.text=str(a) '整數轉字串放回text1.text
'}
Rem 檢查text1的值
'/*
if a<=0 then
unload form2 '關閉form2
timer1.enabled=false '關閉計時器
'*/
End Sub