Dim item As String
For Each item In Me.ListBox1.Items
Wait(2000)
WebBrowser1.Navigate(item)
Wait(8000)
Timer1.Start()
Next
我试图让它导航到每个项目
wait(8000) 有效,计时器有效,但导航无效
Dim item As String
For Each item In Me.ListBox1.Items
Wait(2000)
WebBrowser1.Navigate(item)
Wait(8000)
Timer1.Start()
Next
我试图让它导航到每个项目
wait(8000) 有效,计时器有效,但导航无效
您可能需要做类似的事情: 如何让 WebBrowser 等到它完全加载?
基本上,您需要等待文档完成加载,然后再转到下一个。
这是微软网站上的一个例子:http: //msdn.microsoft.com/en-us/library/system.windows.forms.webbrowser.documentcompleted.aspx ?cs-save-lang=1&cs-lang=vb#code-片段-1