十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
@echooffechohellonulping127.1/10echoworldpause::输出hello,延迟10秒后,输出world。::将/10,改为/100就延迟100秒。举一反三,你懂得……
嘉禾网站制作公司哪家好,找创新互联!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设等网站项目制作,到程序开发,运营维护。创新互联自2013年起到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
用SLEEP函数 声明:Private Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 代码:sleep 1000'1000毫秒
麻烦采纳,谢谢!
如果在这10秒的时间里,你的程序什么也不用做,只是等待,那么可以这样:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Sleep 10000
MsgBox "Hello!"
End Sub
但是如果你的程序在这10秒的时间里仍然要做其他事情,比如点击其他按钮等等,那么就应该这样:
Private Sub Command1_Click()
Timer1.Interval = 10000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
MsgBox "Hello!"
Timer1.Enabled = False
End Sub
再次强调,第一种方法中,在你点击按钮后的10秒时间里,你的程序会暂时处于无反应状态。
你可以在timer前用if判断网络状态,
如断开,可用
threading.Thread.Sleep(10000) ‘当前线程挂起10秒
’可以开一个新线程去读取脱机数据。
如连接,则继续执行。
补充:
dim i as integer
'超过100次退出,避免死循环
for i=0 to 100
try
'ping你的端口
if ‘ok
exit for
else
threading.Thread.Sleep(10000) ‘当前线程挂起10秒
end
Catch ex As Exception
End Try
next