VB中如何实现类似Sleep(可以让CPU闲置)的功能

[xiaotian0420]

在Delphi中可以使用函数Sleep()，让CPU闲置一下，让程序延时触发，不知道VB中如何实现类似功能？

[xiaotian0420]

怎么调用？具体怎么声明这个函数？请大家帮忙了

[litsnake1]

将这个：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

放在窗体的声明区里，也就是在窗体顶端，声明了sleep函数之后就可以直接使用，sleep函数了：

现在给你举个例子：在一个窗体上放上一个按钮，运行后点击这个按钮，可以延迟3秒弹出一个对话框。
将以下代码粘贴过去就行了。
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command1_Click()
Sleep 3000
MsgBox "hello"
End Sub

[litsnake1]

那么就使用api函数行不行啊！
sleep

[litsnake1]

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

[xo2000]

也可以用啊：
VOID Sleep(
DWORD dwMilliseconds // sleep time in milliseconds
)
ex:
sleep(3000) cpu闲置3毫秒

[绝缘]

有没有搞错：Delphi中的Sleep本来就是调用的API，你在VB中同样的调用这个函数不就一样了
楼上的Sleep(3000)是延迟三秒，不是三毫秒，它的单位是毫秒。相信楼上是写错了的！

[qiqif]

VB中也可以用sleep

[xiaotian0420]

感谢！可以用了，呼