我想在Webbrowser中实现标签页，按照原帖说明把shdocvw.dll放到foxtable安装目录下，在全局代码中添加代码保存时，弹出“试图加载不正确的程序”。 我这样做对不对？
------------------
原帖地址：http://www.cnblogs.com/technofantasy/archive/2006/10/02/520041.html
操作步骤：
1、在工程中添加COM的Microsoft Internet Controls的引用（这个引用对应的文件是shdocvw.dll，通常在system32目录下）。2、添加如下代码：Public Class Form1
Private Sub NewWindow3(ByRef ppDisp As Object, ByRef Cancel As Boolean, _
ByVal dwFlags As UInteger, _
ByVal bstrUrlContext As String, ByVal bstrUrl As String)
Dim xPage As TabPage = New TabPage
xPage.Text = "abcd"
TabControl1.TabPages.Add(xPage)
Dim x As New WebBrowser
DirectCast(WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser).RegisterAsBrowser = True
xPage.Controls.Add(x)
x.Dock = DockStyle.Fill
x.Visible = True
x.Navigate(bstrUrl)
Cancel = True
End Sub
Private Sub NewWindow2(ByRef ppDisp As Object, ByRef Cancel As Boolean)
Dim xPage As TabPage = New TabPage
xPage.Text = "abcd"
TabControl1.TabPages.Add(xPage)
Dim x As New WebBrowser
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
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在窗体载入后设置Webbrowser的NewWindow3事件处理函数
'AddHandler DirectCast(WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser).NewWindow3, AddressOf NewWindow3
'如果不是Windows XP SP2的话需要监控NewWindow2消息
AddHandler DirectCast(WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser).NewWindow2, AddressOf NewWindow2
WebBrowser1.Navigate("http://www.applevb.com")
End Sub
End Class
运行程序，可以看到新打开的窗口都会在TabControl１的新标签页中打开．在上面的代码中，如果是Windows XP+SP2的话可以监控NewWindow3事件，否侧需要监控NewWindow2事件。
加好友 
发短信
Post By：2017/4/7 16:32:00 [只看该作者]
