vb中怎么设置等待时间？
答案:1 悬赏:30 手机版
解决时间 2021-03-12 20:20
- 提问者网友：抽煙菂渘情少年
- 2021-03-11 22:30
vb中怎么设置等待时间？
最佳答案
- 五星知识达人网友：轻雾山林
- 2021-03-11 22:36
Declare Function GetTickCount Lib "kernel32" () As Long
Public Shared Sub Pause(ByVal HowLong As Long)
'单位为毫秒
Dim tick As Long
tick = GetTickCount()
Do
Application.DoEvents()
Loop Until tick + HowLong < GetTickCount
End Sub
Public Shared Sub Pause(ByVal HowLong As Long)
'单位为毫秒
Dim tick As Long
tick = GetTickCount()
Do
Application.DoEvents()
Loop Until tick + HowLong < GetTickCount
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯