Question

vb等待时间的语句

我是菜鸟,请讲的详细点
谢

Answer 1

定义pause 函数,直接调用就可以了

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub pause(HowLong As Long)
Dim u%, tick As Long
tick = GetTickCount()

Do
u% = DoEvents
Loop Until tick + HowLong < GetTickCount
End Sub

Answer 2

VB用到API：

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

'暂停10秒：
Sleep(10000)

Answer 3

是private Declare Function GetTickCount Lib "kernel32" () As Long吧