如何通过点击按钮在webbrowser中依次5秒打开list1中的N个网址？
谢谢大家了。。。小弟不才``

[ 本帖最后由 anluboy 于 2012-9-3 21:58 编辑 ]

谢谢大大````我试试。。。

Private Sub Timer1_Timer()
    If i >= List1.ListCount Then i = 0
    WebBrowser2.Navigate List1.List(i)
    i = i + 1
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
End Sub
我这样写的。。。只能不停的打开一个页面``

Private Sub Command3_Click()
  Dim b As Integer
For b = 0 To 20 Step 1
isok = False
WebBrowser2.Navigate List1.List(b)
Do While isok = False
   DoEvents
Loop
Next b
End Sub
换了个方式```只可以打开2个页面。

太厉害了。。。貌似还解决了CPU占用过大的问题···

求大大的QQ

大大 我可以继续请教吗？
提交回复的问题···