Question

VB中，如何通过点击按钮在webbrowser中依次5秒打开list1中的多个网址？

VB中，如何通过点击按钮在webbrowser中依次5秒打开list1中的多个网址？
Zatans的回答只能反复打开第一个链接，不知道为什么？

Answer 1

Private Sub Command1_Click() '开始按钮
Timer1.Enabled = True
End Sub

Private Sub Command2_Click() '结束按钮
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = False
'例子
List1.AddItem "www.baidu.com"
List1.AddItem "www.google.cn"
List1.AddItem "www.gougou.com"
End Sub

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