怎样使程序在原地等待１０秒不使用time控件

Question

怎样使程序在原地等待１０秒不使用time控件

Answer 1

'VB中如何使用延时函数？
'声明：
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'调用：
'延时1秒
Call Sleep(1000)

Answer 2

怎么搞的，好好的时间控件不用！
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
或者用循环语句。

Answer 3

Private Sub Command1_Click()
    Debug.Print Now()
    Call Delay(10)
    Debug.Print Now()
End SubPrivate Sub Delay(ByVal DelayTimes As Double)
    Dim f1      As Double
    
    f1 = Timer()
    
    Do Until Timer - f1 >= DelayTimes
        DoEvents
    Loop
    
End Sub

Answer 4

sleep(1000 * 10)
kernel132是个dll

Answer 5

TO : vcshcn(黑天的星星) 麻烦在问一下
dll又是什么呢
能在说说吗?

Answer 6

呵呵，不用api也不用控件的方法：
先记录当前时间，然后进入无条件循环，循环体中不断检测当前时间和所记录时间的差值，当差值大于等于十秒的时候退出循环。
注意，如果不希望这十秒中机器象死机状态，请在循环体中加入doevents语句

Answer 7

skystar2001(波塞冬) dll 就是*.dll 文件。
dll 文件也是一种 exe 文件。 kernel32.dll 是个系统模块， windows的核心模块，包含许多的APi函数。

Answer 8

start=timer
do while timer<start+10
  doevents
loop