如何让webBrowser中的网页不会在新窗口中打开？

[fastxyf]

在webBrowser中浏览网页，如果遇到target="_blank" ,就会用IE打开，有什么办法可以让他在WEBBROWSER中打开吗？
我只知道在打开之前会触发newwindows2事件
已经一个星期了，帮帮我啊

[fastxyf]

还是在新窗体中打开吧，我想能不能在同一窗体的同一控件中显示新网页
我在网上查到：
如果你希望新打开的网页出现在同一个窗口，可以这样做：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser1.Object
End Sub
放到我的程序后，没有弹出新窗体，但网页也没变

[bombju]

呵呵,明显是两个问题了.骗分啊.
第二个问题也能解决,但是不能放在 newwindow2 中处理了.如果放在 newwindow2 中,碰到弹出的广告,你的头也会大哦.

[fastxyf]

to:bombju:我不知道为什么会变成两个问题，不知是我表达有误，还是你理解有误？
"第二个问题也能解决,但是不能放在 newwindow2 中处理了.如果放在 newwindow2 中,碰到弹出的广告,你的头也会大哦."我的实际证明显示内容不会变成弹出的广告，不知为何会头大
如果是只是分的问题不在话下，我有4K的可用分，再开一个贴给你也无所谓

[fastxyf]

问题解决，还是用老板本好啊
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "http://askpro.yeah.net"
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

[bombju]

呵呵,你将机器上的广告拦截功能关闭掉再试试看.

[fastxyf]

你是对的，确实会出现

[bombju]

dim nFrm as Object

Private Sub web_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set nFrm = New Form1
Set ppDisp = nFrm.Web.Application
Load nFrm
nFrm.Show
End Sub