关于webbrowser控件的问题（VB）

Question

为什么我用webbrowser空间做浏览器核心的时候，浏览第一个网页还可以，但是只要点击的超链接是会弹出新页面的，就会以默认浏览器来打开那个链接。有没有解决方法？

Answer 1

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
On Error Resume Next
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
frmWB.WindowState = 0
frmWB.Top = 0
frmWB.Left = 0
End Sub

Answer 2

Option ExplicitDim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1  '保证连接在一个窗口打开相关对象Private Sub Command1_Click()
    WebBrowser1.Navigate2 "http://community.csdn.net/"
End SubPrivate Sub Form_Activate()
    Set Web_V1 = WebBrowser1.Object
End SubPrivate Sub Web_V1_NewWindow(ByVal URL As String, _
    ByVal Flags As Long, ByVal TargetFrameName As String, _
    PostData As Variant, ByVal Headers As String, Processed As Boolean)
    
    Processed = True
    WebBrowser1.Navigate URL
End Sub