Как открыть URL-адреса в моем веб-браузере с вкладками вместо Internet Explorer?

Question

Я сделал веб-браузер с вкладками в своем визуальном базовом приложении, которое использует tabcontrol. Я хочу, чтобы мой браузер открывал любые ссылки на новой вкладке в моем tabcontrol вместо Internet Explorer, что мне делать?

Я бы предпочел не менять код, просто добавьте код.

Вот код для моего form1_load события:

Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim Browser As New WebBrowser 
    TabControl1.TabPages.Add("New Page") 
    Browser.Name = "Web Browser" 
    Browser.Dock = DockStyle.Fill 
    TabControl1.SelectedTab.Controls.Add(Browser) 
    AddHandler Browser.ProgressChanged, AddressOf Loading 
    AddHandler Browser.DocumentCompleted, AddressOf Done 
    int = int + 1 
    CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.homepage) 
    Browser.ScriptErrorsSuppressed = True 
End Sub 

Вкладка добавить код:

Public Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click 
    Dim Browser As New WebBrowser 
    TabControl1.TabPages.Add("New Page") 
    TabControl1.SelectTab(int) 
    Browser.Name = "Web Browser" 
    Browser.Dock = DockStyle.Fill 
    TabControl1.SelectedTab.Controls.Add(Browser) 
    AddHandler Browser.ProgressChanged, AddressOf Loading 
    AddHandler Browser.DocumentCompleted, AddressOf Done 
    int = int + 1 
    CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.homepage) 
    Browser.ScriptErrorsSuppressed = True 
End Sub 

Answer 1

Добавить обработчики по каждому элементу HTML ссылка

Private Sub Done(sender As Object, e As WebBrowserDocumentCompletedEventArgs) 
    'Throw New NotImplementedException 

    For Each element As HtmlElement In sender.Document.Links 
     AddHandler element.Click, AddressOf OpenNewTab 
    Next 

End Sub 

Private Sub OpenNewTab(sender As Object, e As HtmlElementEventArgs) 
    'Your existing code to instantiate a new tab 
End Sub