关于WebBrowser1的使用

Question

关于WebBrowser1的使用点击按键1 WebBrowser1 打开网页，当点击WebBrowser1里的网页链接的时候，能不能把一些点击就打开新网页的链接，点击后不新开网页，就直接在 WebBrowser1 里打开网页。说得有点糊涂，希望大家能看懂。

Answer 1

可以，就是麻烦一点，个人以为VB.NET好点。

Answer 2

一般情况下用下面的代码就可解决：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) 
    Set ppDisp = WebBrowser1.Object 
End Sub 
如果链接中包含"target=_blank"时上面的方法会失效，那么：Dim WithEvents objDoc As HTMLDocumentPrivate Sub form_load()
    WebBrowser1.Navigate "about:blank"
    WebBrowser1.Document.write "<a href=""http://www.baidu.com"" target=""_blank"">百度</a>"
    Set objDoc = WebBrowser1.Document
End SubPrivate 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