Question

vb2008延时

请给一个好一点的延时函数（过程也行），Sleep就免提了（-_-b)。
或者给一个返回现在毫秒数的函数也行~
在这里就谢谢大家了~~~~O(∩_∩)O谢谢~

Answer 1

首先说明一下，我也是菜鸟，刚在学vb，做了些东西，正好碰见你的问题，那就分享一下我的愚见吧！
看你是想要使用子程序调用吧,我目前知道四种方法：
1. sleep函数。这个函数只需在整个程序前做一个申明，申明如下:
Private Declare Sub Sleep Lib "kernel32"(ByVal dwMilliseconds As Long)
以后只需调用sleep(你需要的间隔时间），注意：间隔时间均为毫秒为单位。也就是说sleep(1000)是延时1s。我有尝试用过，但发现这个延时程序有严重的假死现象，也就是后台其实延时了，但前面就是不显示出来，如死机一般，直到最后才显示出结果，需要慎用！
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的值以秒（s）为单位，上面是延时5秒的，想取出时间：Savetime = Timer，在比较现在的时间与前一刻记录下的时间：Timer < Savetime + 5，此处的5即为延时5S，你可以在此处修改你需要的延时时间。如上你只需添加While...wend函数进行判断就行，到了你要的时间就在while后进行你的操作。
这种方法虽然也很简单，但却有有一个致命缺陷，那就是Timer函数返回的是从午夜开始到现在经过的秒数。所以Timer返回的最大值也只是60*60*24-1秒，如果从一天的23:59:58秒开始计时等待5秒，那么程序会永远地循环下去。要进行改良，就要加上判断是否又开始了新的一天，那岂不是太麻烦。
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
timeGetTime() 的返回值以毫秒（ms）为单位，这个操作就和前面的函数很像，就不做解释了。
4.也是我选择的方法，其实也是用第2种方法做的，不过很巧妙，将其装换为子程序形式，你不妨试一下，简单好用：
构建一个函数
Public Sub delay(msec As Long)
On Error Resume Next
Dim tstart As Single
tstart = Timer
While (Timer - tstart) < (msec / 1000)
DoEvents
Wend
End Sub
你只需调用这个函数即可，调用延时1S的格式如：call delay(1000)
这里也只是做个总结罢了，希望大家能够做个交流！
错的地方望指出，谢谢！