给一个延迟10秒的函数吧??急用,谢谢

Question

自己顶一下

Answer 1

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Answer 2

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
 delay 10000

Answer 3

什么意思,怎么没函数Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
声明一个库的别名什么意思

Answer 4

是不是加
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Delay 10000
End Sub
调用是直接 sleep就行了??

Answer 5

你直接条用window API函数sleep(10 * 1000)即可，记得包含头文件#include<windows.h>

Answer 6

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
"kernel32"是不是VC库里的东东啊?Sleep是这个库里"Sleep"的别名,但是怎么用呢,我是新手,不太懂

Answer 7

在模块或窗体的最上面声明，在需要的地方调用sleep就行了

Answer 8

SLEEP--虽然这个函数比较的....用过才知道

Answer 9

sleep 这个API要留意一点.
他会导致整个程序延迟的..如果你程序的某个循环正在进行.
这个时候如果你在某个地方使用Sleep函数的话.
会导致你的程序全面暂停.
要注意.
通过一些特殊的方法可以做到仅对当前过程暂停.
具体细节可以参考sleep这个api的详细参数

Answer 10

'*/-------------------------------------------------------------
'*/过 程 名:Pause
'*/功    能:暂停函数，延时用
'*/返 回 值:无
'*/参    数:Dauer 延时值，单位（秒）
'*/建立日期:2004-12-07 16:00
'*/修改日期:
'*/-------------------------------------------------------------
Public Sub Pause(Dauer)
    Dim A As Single, B As Single
    Dim tem1 As Single, tem2 As Single
    A = Format(Date, "0") * Year(Now)
    tem1 = Timer
    Do
        DoEvents
        B = Format(Date, "0") * Year(Now)
        If A = B Then
            tem2 = Timer
            If tem2 - tem1 >= Dauer Then
                Exit Do
            End If
        ElseIf A < B Then
            tem1 = tem1 - 86400
            A = B
        End If
    Loop
End Sub

Answer 11

do ... loop里边加个sleep 1就不会象死了一样，而且CPU占用为0

Answer 12

建议使用DelaySub delay(ByVal Pausetime As Double)
        Dim start
        start = Timer          
        Do While Timer < start + Pausetime
            DoEvents
        Loop
End Sub