vb的延时函数的问题

浏览次数：1090次悬赏分：200 | 解决时间：2010-10-27 08:46 | 提问者：fupeng22 

stime = Timer

    Do While True

If Timer > (stime + 0.05) Then

            Exit Do

        End If

     '这里需要做一些事，做事的时间超过0.8秒才退出

        DoEvents

    Loop

但是这里存在一个问题，在午夜过渡的时候出现问题，就是timer的值，经过测试，timer在时间点大的时候，最大，过了0点他就会变为0，倘若在23点50多分钟时，其timer比较大，即stime也非常大，恰恰当过了零点，完了，timer为0了，怎么可能大于stime+0.05呢

问题补充： 

快点帮我看看啊

最佳答案 

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执行,按下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秒,那么程序会永远地循环下去。要进行改良,就要加上判断是否又开始了新的一天,那岂不是太麻烦.

最完美的方法：

Private Declare Function timeGetTime Lib "winmm.dll" () As Long 

    '****延时函数,单位是毫秒,支持小数****

Public Function YanShi(HaoMiao As Double)

    Dim t1

    t1 = timeGetTime

While (timeGetTime - t1) < HaoMiao

        DoEvents

    Wend

End Function

调用时只要 写 yanshi 1000  就是代表1秒了 

timegettime 的意思是距离开机多少秒了