在VB.NET中如何使在Webbrowser中实现标签页中打开新链接

最新推荐文章于 2023-11-16 15:06:52 发布

转载最新推荐文章于 2023-11-16 15:06:52 发布 · 476 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://www.iteye.com/blog/lovnet-988692

文章标签：

#.net #webbrowser

这篇博客介绍了如何在VB.NET应用程序中使用WebBrowser控件处理新窗口打开事件，使得新窗口内容在TabControl的标签页中显示。通过引用shdocvw.dll并设置事件处理函数，实现了在TabPages内加载网页，详细展示了NewWindow3和NewWindow2事件的处理方法。

操作步骤：
1、在工程中添加COM的Microsoft Internet Controls的引用（这个引用对应的文件是shdocvw.dll，通常在system32目录下）。
2、如下代码：

PublicClassForm1
PrivateSubNewWindow3(ByRefppDispAsObject,ByRefCancelAsBoolean,_
ByValdwFlagsAsUInteger,_
ByValbstrUrlContextAsString,ByValbstrUrlAsString)

DimxPageAsTabPage=NewTabPage
xPage.Text="abcd"
TabControl1.TabPages.Add(xPage)

DimxAsNewWebBrowser
DirectCast(WebBrowser1.ActiveXInstance,SHDocVw.WebBrowser).RegisterAsBrowser=True

xPage.Controls.Add(x)
x.Dock=DockStyle.Fill
x.Visible=True

x.Navigate(bstrUrl)
Cancel=True
EndSub

PrivateSubNewWindow2(ByRefppDispAsObject,ByRefCancelAsBoolean)
DimxPageAsTabPage=NewTabPage
xPage.Text="abcd"
TabControl1.TabPages.Add(xPage)

DimxAsNewWebBrowser
DirectCast(WebBrowser1.ActiveXInstance,SHDocVw.WebBrowser).RegisterAsBrowser=True

xPage.Controls.Add(x)
x.Dock=DockStyle.Fill
x.Visible=True
x.Navigate("about:blank")

ppDisp=x.ActiveXInstance'DirectCast(x.ActiveXInstance,SHDocVw.WebBrowser).Application
'Cancel=True
EndSub

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
'在窗体载入后设置Webbrowser的NewWindow3事件处理函数
'AddHandlerDirectCast(WebBrowser1.ActiveXInstance,SHDocVw.WebBrowser).NewWindow3,AddressOfNewWindow3
'如果不是WindowsXPSP2的话需要监控NewWindow2消息
AddHandlerDirectCast(WebBrowser1.ActiveXInstance,SHDocVw.WebBrowser).NewWindow2,AddressOfNewWindow2

WebBrowser1.Navigate("http://www.applevb.com")
EndSub

EndClass

运行程序，可以看到新打开的窗口都会在TabControl１的新标签页abcd中打开．