麻烦采纳,谢谢!
如果在这10秒的时间里,你的程序什么也不用做,只是等待,那么可以这样:
Private Sub Command1_Click()
Sleep 10000
MsgBox "Hello!"
End Sub
Timer1.Interval = 10000
Timer1.Enabled = True
Private Sub Timer1_Timer()
Timer1.Enabled = False
你可以在timer前用if判断网络状态,
如断开,可用
threading.Thread.Sleep(10000) '当前线程挂起10秒
'可以开一个新线程去读取脱机数据.
如连接,则继续执行.
补充:
dim i as integer
'超过100次退出,避免死循环
for i=0 to 100
try
'ping你的端口
if 'ok
exit for
else
end
Catch ex As Exception
End Try
next
以上就是土嘎嘎小编为大家整理的vb.net等待10秒相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!