Question

在VB中，如何等待6秒后再执行下一条指令

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com/"
End
End Sub
在第二行和第三行之间加如什么语句才能在打开http://www.baidu.com/六秒后退出程序？

Answer 1

添加一个timer控件,属性Enabled 为 False ,属性Interval 为 6000,也就是定时6秒.

'在timer1的事件中写
Private Sub Timer1_Timer()
End
End Sub

'在按钮单击事件中写
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com/"
Timer1.Enabaled = True
End Sub

您看这样可以实现您的目的吗?

Answer 2

加一个timer,interval设置成1000,也就是1s
timer每次enable之后窗体级变量加1,
加到6的时候end程序

Answer 3

wait(6)