webbrowser无法载入第二个网页
我在程序启动时用webbrowser载入了一个网页,如下:
Private Sub Form_Load()
webbrowser1.navigate Url1
end sub
载入成功。
在之后的某个事件中,在模块中,我需要载入第二个网页Url2
于是 form1.webbrowser1.navigate Url2
但是执行完此句之后控件页面无变化,也就是停留在Url1 里面,费解!
请问这是怎么回事?怎么解决?
------解决方案--------------------
确认URL改变了么?
------解决方案--------------------
试了可以的不知你咋搞的
Private Sub Command1_Click()
Web1.Navigate "www.baidu.com"
End Sub
Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'MsgBox Web1.LocationURL
If Web1.LocationURL Like "*baidu*" Then
'DoEvents
Web1.Navigate "www.163.com"
End If
End Sub