求助！进来看看吧 DoEvents 怎么不行

[hippopotamus]

For j = 0 To 10

webBrowser.Navigate strS(i)

Sleep (15000)

Next

我想每过一会用webBrowser打开一个页面 但webBrowser（程序都不响应）不响应
不管把DoEvents加到哪里都不行
本也不想用Sleep
但有的框架结构的触发不了DocumentComplete事件
哪位兄弟给个建议该咋整

[DooDu]

别用sleep，sleep的时候你的程序都在“睡觉”，停止响应的。
改成timer控件延时，在timer里写doevents

[hippopotamus]

谢谢
timer时间太短 里面再套个timer？ 麻烦

[一杯清茶几行代码]

我以前用过可以触发

[rosyou]

用
For j = 0 To 10

webBrowser.Navigate strS(i)
Next
DoEvents

[hippopotamus]

to csdnzm(明飞)
是吗？我的不知道咋搞的 就是不行

to rosyou(残域)
页面打开需要有个延迟时间呀


timer间隔太短 谁有简单的方便的解决办法

[Winters_lee]

doevents 用在For循环的上面也可以.
在一个sub的里面,你写在任何地方都是可以的.
doevents
for .....
....
next

[DooDu]

timer时间短，你可以通过算法延长啊


Dim sec, mi As Long

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
sec = sec + 1
sec = sec Mod 60
If sec = 59 Then mi = mi + 1
If mi = 3 Then MsgBox "3分钟！": Timer1.Enabled = False
End Sub

[hippopotamus]

呵呵 结贴