在WebBrowser1里怎样开新网页不弹出到IE里,还是在WebBrowser1里
从网上找到这个:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
End Sub
在sohu的页面测试时好好的,点击后新页面还在WebBrowser1里,但是到内网后,就有问题了,提示停在WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
这一句上,说是未能试别的什么什么的,大家帮想个辙吧
[解决办法]
在窗体上再放一个webbrowser2,然后
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser2.Object
End Sub
这样新页面就在webbrowser2里显示了,如果还想显示在webbrowser1里就:
Private Sub WebBrowser2_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate URL
End Sub
[解决办法]
确保URL是网址,否则肯定出问题。
Navigate2 ? Navigate 我记得两者好象有区别。