求一延时小程序

Question

本帖最后由 jp0077777 于 2010-05-24 05:52:16 编辑

Answer 1

下载：http://download.csdn.net/source/752060

Answer 2

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 10
        Debug.Print "xxx" & Format("000", i)
        ys 2 '延时2秒
    Next
End SubPrivate Sub ys(ByVal a As Single) '延时过程
    Dim t As Single
    t = Timer
    While Timer - t < a
       DoEvents
    WendEnd Sub

Answer 3

Private Sub ys(ByVal a As Single) '延时过程
    Dim t As Single
    t = Timer
    While Timer - t < a Or Timer<t '小心刚过午夜00:00！
       DoEvents
    WendEnd Sub

Answer 4

api sleep 函数 你在后面 加doevents就好了 你用循环不是很精确的控制
我写过类似的网络传输程序 你要是有兴趣可以+Q：617593193

Answer 5

直接利用当前时间和延时后的时间比较：如获取当前时间点为12:48:20 ,则延时2秒后的时间为12:48:22，然后用timer不停比较这两个时间点，直到相等，可能精度不是很好，但好用！