主题：浏览器控件内点击会跳到外部浏览器上问题

mark 新窗口

全局代码

Public Sub web_DocumentCompleted(sender As object, e As windows.forms.WebBrowserDocumentCompletedEventArgs)
    For Each archor As object In sender.Document.Links
        archor.SetAttribute("target", "_self")
    Next
End Sub

Public Sub web_NewWindow(sender As object, e As system.ComponentModel.CancelEventArgs)
    e.cancel = True
End Sub

afterLoad事件

Dim web As windows.Forms.webbrowser = e.Form.Controls("WebBrowser1").basecontrol
web.ScriptErrorsSuppressed = True
addhandler web.DocumentCompleted, addressof web_DocumentCompleted
addhandler web.NewWindow, addressof web_NewWindow