VB 延时函数?

Question

Private Sub WaitTime(t As Single)
Dim starttime As Single
starttime = Second(Now)
Do Until (60 + Second(Now) - starttime) Mod 60 > t

Loop
End Sub

Answer 1

在程序流程中经常要延时一段时间后再继续往下执行，在VB中常用的有以下几种方法（因为Timer控件打乱了程序的流程所以一般不用它）：1.使用Windows&nbsp;API函数Sleep新建一个工程，添加一个TextBox控件和一个CommandButton控件，再将以下代码复制到代码窗口：Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()Text1 = "sleep begin"Sleep 3000Text1 = "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 SingleText1 = "Timer begin"Savetime = Timer '记下开始的时间While Timer < Savetime + 5 '循环等待DoEvents '转让控制权，以便让操作系统处理其它的事件WendText1 = "Timer ok"End Sub这种方法虽然也很简单，但却有有一个致命缺陷，那就是Timer函数返回的是从午夜开始到现在经过的秒数。所以Timer返回的最大值也只是60*60*24-1秒，如果从一天的23:59:58秒开始计时等待5秒，那么程序会永远地循环下去。要进行改良，就要加上判断是否又开始了新的一天，那岂不是太麻烦。下面给大家推荐另一个Windows&nbsp;API函数。3.使用Windows&nbsp;API函数timeGetTime()timeGetTime函数没有参数，返回值是从开机到现在所经历的毫秒数，这个毫秒数是非周期性递增的，所以不会出现Timer()函数出现的问题，而且这种方法的精确性高于上一种方法。添加一个CommandButton控件，再将以下代码添加到代码窗口中：Private Declare Function timeGetTime Lib "winmm.dll" () As LongPrivate Sub Command3_Click()Dim Savetime As DoubleText1 = "timeGetTime begin"Savetime = timeGetTime '记下开始时的时间While timeGetTime < Savetime + 5000 '循环等待DoEvents '转让控制权，以便让操作系统处理其它的事件WendText1 = "timeGetTime end"End Sub

Answer 2

你那种方法实际上延时会比你设置的多1秒（t不等于0的情况下）准确的可以这样编，不需要Timer控件（下面那个 Timer不是控件名）：Private Sub waittime(delay As Single)Dim starttime As Singlestarttime = TimerDo Until (Timer - starttime) > delayDoEventsLoopEnd Sub补充了一下，这样就没有假死，delay时间可直接设置，精确到0.01秒。

Answer 3

如果一调用这个过程会产生程序假死的情况,来看看我写的这个,绝对不会有程序无响应这个状态的.o(∩_∩)o...虽然只是精确到延迟秒的精确度,但是稍微一变通就可精确到毫秒的..Private Sub Delay(WaitSeconds As Long)Dim StartTime As Date, sSecond As LongStartTime = Date + TimeDo Until sSecond >= WaitSecondsDoEventssSecond = DateDiff("s", StartTime, Date + Time)LoopEnd Sub

Answer 4

这个好，系统资源占用少Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Load()Sleep 5000 '延时5秒MsgBox "hello"End Sub