|
在程序流程中經(jīng)常要延時一段時間后再繼續(xù)往下執(zhí)行,在VB中常用的有以下幾種方法(因為Timer控件打亂了程序的流程所以一般不用它): 1.使用Windows API函數(shù)Sleep 新建一個工程,添加一個TextBox控件和一個CommandButton控件,再將以下代碼復(fù)制到代碼窗口 '聲明: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Text1 = "sleep begin" Sleep 3000 'ms Text1 = "sleep end" End Sub 按F5執(zhí)行,按下Command1按鈕,程序停止執(zhí)行,3秒鐘內(nèi)不對用戶的操作做出反應(yīng),并且Text1里的內(nèi)容并沒有發(fā)生改變.這是怎么回事呢?原來,Sleep函數(shù)功能是將調(diào)用它的進程掛起dwMilliseconds毫秒時間,在這段時間內(nèi),此進程不對用戶操作做出反應(yīng),程序中雖然將Text1的Text屬性改成Sleep begin,但還沒等完成對屏幕的更新進程就被掛起了,對用戶來說程序象是死機一樣,。所以這種方法雖然簡單,但并不適用. 2.使用Timer()函數(shù) 這是用的最多的一種方法,也是在VB聯(lián)機手冊中所推薦的,。添加一個CommandButton控件,再將以下代碼添加到代碼窗口中: Private Sub Command2_Click() Dim Savetime As Single Text1 = "Timer begin" Savetime = Timer '記下開始的時間 While Timer < Savetime + 5 '循環(huán)等待 DoEvents '轉(zhuǎn)讓控制權(quán),，以便讓操作系統(tǒng)處理其它的事件。 Wend Text1 = "Timer ok" End Sub 這種方法雖然也很簡單,但卻有有一個致命缺陷,那就是Timer函數(shù)返回的是從午夜開始到現(xiàn)在經(jīng)過的秒數(shù),。所以Timer返回的最大值也只是60*60*24-1秒,如果從一天的23:59:58秒開始計時等待5秒,那么程序會永遠地循環(huán)下去,。要進行改良,就要加上判斷是否又開始了新的一天,那豈不是太麻煩.下面給大家推薦另一個Windows API函數(shù). 3.使用Windows API函數(shù)timeGetTime() timeGetTime函數(shù)沒有參數(shù),返回值是從開機到現(xiàn)在所經(jīng)歷的毫秒數(shù),這個毫秒數(shù)是非周期性遞增的,所以不會出現(xiàn)Timer()函數(shù)出現(xiàn)的問題,而且這種方法的精確性高于上一種方法。添加一個CommandButton控件,再將以下代碼添加到代碼窗口中: '聲明 Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Sub Command3_Click() Dim Savetime As Double Text1 = "timeGetTime begin" Savetime = timeGetTime '記下開始時的時間 While timeGetTime < Savetime + 5000 '循環(huán)等待 DoEvents '轉(zhuǎn)讓控制權(quán),，以便讓操作系統(tǒng)處理其它的事件,。 Wend Text1 = "timeGetTime end" End Sub 按F5執(zhí)行程序,按這幾個按鈕,您可以感受一下這幾種方法的優(yōu)劣 |
|
|
