扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
@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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网