首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

在WebBrowser1里怎的开新网页不弹出到IE里,还是在WebBrowser1里

2012-08-15 
在WebBrowser1里怎样开新网页不弹出到IE里,还是在WebBrowser1里从网上找到这个:Private Sub WebBrowser1_N

在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 我记得两者好象有区别。

热点排行