请vb里有没有象c里面的sleep一样的函数

Question

DoEvents
可以等待程序完成当前所有任务

Answer 1

to:Garden_p(阿飞),多谢你，可是DoEvents不能有参数怎么办啊！

Answer 2

可以用API函数Sleep 或 Sleepex.

Answer 3

dave75(dave),请问应该怎么写？　

Answer 4

自己编一个
Declare Function GetTickCount Lib "kernel32" () As Long
Sub MySleep(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    Do
      DoEvents
    Loop Until HowLong < GetTickCount- tick 
End Sub

Answer 5

在一个模块中贴上这个
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)然后运行时调用
Sleep(毫秒数)

Answer 6

不用api
Sub sleep(a As Long)'a 为秒
Dim t As Date
t = DateAdd("s", a, Now)
Do While Now < t
  DoEvents
LoopEnd Sub 

Answer 7

Sub sleep(a As Long)'a 为秒
Dim t As Date
dim temp as double
temp = now
t = DateAdd("s", a, temp)
Do While temp < t
  DoEvents
Loop
End Sub 

Answer 8

用timeGetTime()比 GetTickCount()好，

Answer 9

Sub sleep(a As Long)'a 为秒
Dim t As Datet = DateAdd("s", a, Now)
这个t ＝ XXXXXX的代码什么意思啊？
Do While Now < t
  DoEvents
Loop

Answer 10

返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。语法DateAdd(interval, number, date)DateAdd 函数语法中有下列命名参数：部分 描述 
interval 必要。字符串表达式，是所要加上去的时间间隔。 
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。 
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。 
设置interval 参数具有以下设定值：设置 描述 
yyyy 年 
q 季 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 时 
n 分钟 
s 秒 
说明可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月：DateAdd(m, 1, 31-Jan-95)上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。注意   DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。