ㄤ骯

前幾天上課上到一半靈感突然出現(xiàn)，

想到原先Timer的功用是每隔一次設(shè)定好的時間就觸發(fā)一次tick的事件，

這次想要試試看把它改成停頓、等待指定時間，

於是寫了一個等待指定秒數(shù)專用的程式碼~(好孩子不要學(xué)，給我去乖乖上課)

---

這用法應(yīng)該很好理解，就是把這段程式碼加到form裡面之後用wait(x)來執(zhí)行，

x填等待的秒數(shù)，可以達(dá)到讓程式暫時停頓x秒之後才繼續(xù)執(zhí)行的效果~

原理：

一、首先宣告一個叫做w_timer的timer，以及一個專門用來計數(shù)的w_tick。

二、定義一個函式(即前面提到的wait)，裡面的用法是：

　　首先先把w_tick歸零、以及設(shè)定好w_timer的tick間隔，

　　再來是啟用w_timer，讓他開始計時－－

　　當(dāng)計時開始就跳入一個循環(huán)(直到w_tick不小於1為止)。

　　這個循環(huán)裡面的Application.DoEvents()有刷新畫面而防止卡住的功能。

　　再另外設(shè)置好w_timer的事件，

　　讓它每tick一次(也就是經(jīng)過指定時間之後)，就把w_tick的值+1。

三、當(dāng)w_tick的值不小於1－－

　　好了，這時候w_tick的值不小於1，所以跳開了剛剛提到的循環(huán)。

四、wait的部分繼續(xù)執(zhí)行之後的程式碼：

　　把w_timer計時狀態(tài)關(guān)閉，並將其tick間隔設(shè)定為1 ms。

五、wait的函式執(zhí)行結(jié)束，這樣子就達(dá)到了等待指定秒數(shù)的功能。

※ 注意一下 Do Until w_tick >= 1 這行，

　 這裡 w_tick 的判定建議不要用 = 1，用 >= 1 會比較好，

　 因為每臺電腦執(zhí)行速度不同，

　 若是等待間隔太小，可能電腦來不及判定完就已經(jīng) tick 超過一次了，

　 這樣子會造成不斷地循環(huán)……

程式碼如下：

Dim WithEvents w_timer As New Timer Dim w_tick As Integer Private Sub wait(ByVal second As Integer)     w_tick = 0     w_timer.Interval = second * 1000     w_timer.Enabled = True     Do Until w_tick >= 1         Application.DoEvents()     Loop     w_timer.Enabled = False     w_timer.Interval = 1 End Sub Private Sub w_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles w_timer.Tick     w_tick += 1 End Sub

套用上面的程式碼之後，執(zhí)行下面這段程式碼可以測試效果：

Me.Text="000" wait(3) Me.Text="111" wait(3) Me.Text="222" wait(3) Me.Text="333"

注意看看你的Form會出現(xiàn)什麼效果吧

本篇VB教學(xué)到此為止~