Private Sub WaitTime(t As Single)Dim starttime As Singlestarttime = Second(Now)Do Until (60 + Second(Now) - starttime) Mod 60 > tLoopEnd Sub
4 回答
隔江千里
TA貢獻1906條經驗 獲得超10個贊
在程序流程中經常要延時一段時間后再繼續(xù)往下執(zhí)行，在VB中常用的有以下幾種方法（因為Timer控件打亂了程序的流程所以一般不用它）：
1.使用Windows API函數Sleep
新建一個工程，添加一個TextBox控件和一個CommandButton控件，再將以下代碼復制到代碼窗口：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1 = "sleep begin"
Sleep 3000
Text1 = "sleep end"
End Sub
按F5執(zhí)行，按下Command1按鈕，程序停止執(zhí)行，3秒鐘內不對用戶的操作做出反應，并且Text1里的內容并沒有發(fā)生改變。這是怎么回事呢？原來，Sleep函數功能是將調用它的進程掛起dwMilliseconds毫秒時間，在這段時間內，此進程不對用戶操作做出反應，程序中雖然將Text1的Text屬性改成Sleep begin，但還沒等完成對屏幕的更新進程就被掛起了，對用戶來說程序象是死機一樣。所以這種方法雖然簡單，但并不適用。
2.使用Timer()函數
這是用的最多的一種方法，也是在VB聯機手冊中所推薦的。添加一個CommandButton控件，再將以下代碼添加到代碼窗口中：
Private Sub Command2_Click()
Dim Savetime As Single
Text1 = "Timer begin"
Savetime = Timer '記下開始的時間
While Timer < Savetime + 5 '循環(huán)等待
DoEvents '轉讓控制權，以便讓操作系統(tǒng)處理其它的事件
Wend
Text1 = "Timer ok"
End Sub
這種方法雖然也很簡單，但卻有有一個致命缺陷，那就是Timer函數返回的是從午夜開始到現在經過的秒數。所以Timer返回的最大值也只是60*60*24-1秒，如果從一天的23:59:58秒開始計時等待5秒，那么程序會永遠地循環(huán)下去。要進行改良，就要加上判斷是否又開始了新的一天，那豈不是太麻煩。下面給大家推薦另一個Windows API函數。
3.使用Windows API函數timeGetTime()
timeGetTime函數沒有參數，返回值是從開機到現在所經歷的毫秒數，這個毫秒數是非周期性遞增的，所以不會出現Timer()函數出現的問題，而且這種方法的精確性高于上一種方法。添加一個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 '轉讓控制權，以便讓操作系統(tǒng)處理其它的事件
Wend
Text1 = "timeGetTime end"
End Sub
九州編程
TA貢獻1785條經驗 獲得超4個贊
如果一調用這個過程會產生程序假死的情況,來看看我寫的這個,絕對不會有程序無響應這個狀態(tài)的.o(∩_∩)o...雖然只是精確到延遲秒的精確度,但是稍微一變通就可精確到毫秒的..
Private Sub Delay(WaitSeconds As Long)
Dim StartTime As Date, sSecond As Long
StartTime = Date + Time
Do Until sSecond >= WaitSeconds
DoEvents
sSecond = DateDiff("s", StartTime, Date + Time)
Loop
End Sub
- 4 回答
- 0 關注
- 897 瀏覽
添加回答
舉報
0/150
提交
取消