关于在使用webbrowser控件遇到的问题?

Question

假设窗体上有两个WebBrowser:WebBrowser1,WebBrowser2,
下面是WebBrowser1的NewWindow2事件的代码：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser2.Object
End Sub这样就在WebBrowser2中打开了在WebBrowser1的新连接了。

Answer 1

假设你的窗体的名称为Form1，Webbrowser控件名称为Webbrowser1，那么下面的代码可以使点击的链接在一个新建的Form1中打开而不是IE中打开：Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Dim frmWB As Form1    Set frmWB = New Form1    frmWB.WebBrowser1.RegisterAsBrowser = True    Set ppDisp = frmWB.WebBrowser1.Object
    frmWB.Visible = True
End Sub点击Command1将浏览地址http://www.applevb.com。当点击一个在新窗体中打开的连接或者按Shift键再点击链接后。可以看到程序会新建立一个Form1窗体，在这个窗体的Webbrowser1中显示网页内容。