Timer

張貼日期：May 21, 2013 12:46:39 AM

一、計時器：每隔一段時間執行設定的程式碼一次。

二、計時器不會出現在表單上，默默的在幕後執行。

三、常用的屬性、方法：

範例：倒數計時10秒

表單Load事件：

Timer1.Enabled = True

Timer1.Interval = 1000

MsgBox("倒數計時開始")

Timer1.Start()

計時器Tick事件：

If i = 0 Then

Timer1.Stop()

MsgBox("時間終了")

Else

i = i - 1

End If

Label1.Text = i

作業：

請用VB完成一個拉霸遊戲

執行畫面如下

按下開始鈕後，畫面三個數字開始跳動，按下停止按鈕後，產生三個數字

若三個數字不同為7，則出現銘謝惠顧視窗

若三個數字同為7，則出現恭喜中大獎視窗