在程序流程中經常要延時一段時間后再繼續往下執行,在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 'ms

Text1 = "sleep end"

End Sub

按F5執行,按下Command1按鈕,程序停止執行,3秒鐘內不對用戶的操作做出反應,并且Text1里的內容并沒有發生改變.這是怎么回事呢?原來,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 '循環等待

DoEvents '轉讓控制權，以便讓操作系統處理其它的事件。

Wend

Text1 = "Timer ok"

End Sub

這種方法雖然也很簡單,但卻有有一個致命缺陷,那就是Timer函數返回的是從午夜開始到現在經過的秒數。所以Timer返回的最大值也只是60*60*24-1秒,如果從一天的23:59:58秒開始計時等待5秒,那么程序會永遠地循環下去。要進行改良,就要加上判斷是否又開始了新的一天,那豈不是太麻煩.下面給大家推薦另一個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 '循環等待

DoEvents '轉讓控制權，以便讓操作系統處理其它的事件。

Wend

Text1 = "timeGetTime end"

End Sub

按F5執行程序,按這幾個按鈕,您可以感受一下這幾種方法的優劣

總結

以上是生活随笔為你收集整理的vb与matlab数据交互时间延时多长,VB中实现延时(等待)的几种方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。