vb.net等待10秒,vbs 等待

vb.net 等待命令怎么写

@echooffechohellonulping127.1/10echoworldpause::输出hello，延迟10秒后，输出world。::将/10，改为/100就延迟100秒。举一反三，你懂得……

嘉禾网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设等网站项目制作，到程序开发，运营维护。创新互联自2013年起到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。

vb6中，让事件等待（或延时）10秒后才发生，此代码如何编写？

用SLEEP函数 声明:Private Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 代码:sleep 1000'1000毫秒

麻烦采纳，谢谢!

vb 按钮 延时 10秒

如果在这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秒时间里，你的程序会暂时处于无反应状态。

VB.net多线程编程问题

你可以在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