急问各位高手

[lovesc]

在VB中有没有什么函数能实现类似C语言中sleep()函数的功能啊?
有的话是什么?
没有的话我要实现这个功能该怎么做啊
谢谢了啊

[qjqmoney]

有类似的API函数啊

[lovesc]

类似的API 函数是什么
大哥说声好不

[victorycyz]

呵呵，要知道，VB兼容basic的。VB中用的API函数就是sleep()

[lovesc]

那为什么msdn上没有关于这个函数的任何信息呢
我找的是sleep,提示是找不到关键字
没有msdn的帮助真是寸步难行啊

[rainstormmaster]

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

[rainstormmaster]

下面我们假设没有sleep这个函数，看看如何解决问题：
首先分析sleep要实现的功能：很简单，就是延时
接下来我们实现延时就可以了：

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub mysleep(ByVal dwMilliseconds As Long)
Dim i As Long
Dim j As Long
i = GetTickCount
Do While j <= dwMilliseconds
j = GetTickCount - i
Loop
End Sub
'调用
Private Sub Command1_Click()
mysleep 1000
MsgBox "aa"
End Sub


下面是GetTickCount的说明：
【VB声明】
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

【说明】
用于获取自windows启动以来经历的时间长度（毫秒）

【返回值】
Long，以毫秒为单位的windows运行时间