1,486
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
asdf222 2007-05-11
- 打赏
- 举报
谢谢了
datou985 2007-05-11
- 打赏
- 举报
Private Declare Function GetTickCount Lib "kernel32" () As Long '调用api实现延迟200ms
Private Function Delay(MSceond As Long)
Dim i As Long
If MSceond < 2 Then Exit Function
i = GetTickCount
Do While GetTickCount - i < MSceond
DoEvents
Loop
End Function
private sub form_load()
delay(200) '200即为参数200毫秒
end sub
看看这段代码吧
Private Function Delay(MSceond As Long)
Dim i As Long
If MSceond < 2 Then Exit Function
i = GetTickCount
Do While GetTickCount - i < MSceond
DoEvents
Loop
End Function
private sub form_load()
delay(200) '200即为参数200毫秒
end sub
看看这段代码吧
