怎样在webbrowser中打开网页

[Hotus]

有个网页中的连接，我在webbrowser中点击后，他是打开的IE窗口，(连接的代码中是target="_blank"),怎样让他在 webbrowser中打开呢？

[happy_sea]

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser1.Object
End Sub

[Hotus]

怎么没反映呢？

[vbman2003]

改target="_blank"
为target="_parent"
这个意思吗？

[vbman2003]

晕哦，一早起来头不清醒了，呵呵
看明白了
手边没有VB
你参考：http://support.microsoft.com/kb/185538/zh-cn

try:

Private Sub Command1_Click()
WebBrowser1.Navigate "http://support.microsoft.com/kb/185538/zh-cn"
End Sub

Private 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

[vbman2003]

上面的代码是 TechnoFantasy 写的示例

[Dunzip]

楼上的代码应该可以实现

[happy_sea]

链接中有这个target="_blank"时Set ppDisp = WebBrowser1.Object还真不管用了，不过用点小技巧照样能实现：

Dim WithEvents objDoc As HTMLDocument

Private Sub form_load()
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.write "<a href=""http://www.baidu.com"" target=""_blank"">百度</a>"
Set objDoc = WebBrowser1.Document
End Sub

Private Function objDoc_onclick() As Boolean
If objDoc.elementFromPoint(objDoc.parentWindow.event.x, objDoc.parentWindow.event.y).tagName = "A" Then
WebBrowser1.Navigate objDoc.elementFromPoint(objDoc.parentWindow.event.x, objDoc.parentWindow.event.y).href
objDoc_onclick = False
Else
objDoc_onclick = True
End If
End Function


Set ppDisp = frmWB.WebBrowser1.Object是在新窗口中的WebBrowser1中打开链接，估计不是楼主要的效果。