关于webbrowser控件的问题（VB）

[sszx100]

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

[SYSSZ]

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

[vbman2003]

Option Explicit

Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1  '保证连接在一个窗口打开相关对象

Private Sub Command1_Click()
    WebBrowser1.Navigate2 "http://community.csdn.net/"
End Sub

Private Sub Form_Activate()
    Set Web_V1 = WebBrowser1.Object
End Sub

Private 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