Problem mit dem standardmäßigen Webbrowser-Control

  • VB.NET
  • .NET (FX) 4.5–4.8

    Problem mit dem standardmäßigen Webbrowser-Control

    Also hier mein Problem:
    Ich habe einen kleinen Webbrowser mit Tabs.


    VB.NET-Quellcode

    1. Public WithEvents wb As New WebBrowser


    VB.NET-Quellcode

    1. Dim aktiverBrowser As WebBrowser
    3. Private Sub getaktiverWebbrowser()
    4. Try
    5. For Each wb As Webbrowser In TabControl1.SelectedTab.Controls
    6. aktiverBrowser = wb
    7. aktiverBrowser.ScriptErrorsSuppressed = True
    8. Exit For
    9. Next
    10. Catch
    11. End Try
    12. End Sub


    VB.NET-Quellcode

    1. Public Sub addtab(ByVal name As String, ByVal url As String)
    2. Dim tab As TabPage = New TabPage(Name)
    3. Dim wb As Webbrowser = New Webbrowser
    4. wb.Navigate(URL)
    5. wb.Dock = DockStyle.Fill
    6. tab.Controls.Add(wb)
    7. TabControl1.TabPages.Add(tab)
    8. TabControl1.SelectTab(tab)
    9. End Sub



    Und so möchte ich dann das ganze aufrufen:

    VB.NET-Quellcode

    1. AddHandler aktiverBrowser.NewWindow, AddressOf Webbrowser_NewWindow
    4. Private Sub Webbrowser_NewWindow(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
    5. e.Cancel = True
    6. addtab("Neuer Tab", "Neuer Tab")
    7. TabControl1.SelectedTab.Text = "Neuer Tab"
    8. getaktiverWebbrowser()
    9. aktiverBrowser.Navigate(e.Url)
    10. End Sub


    Nun verändert sich leider nichts. Was mache ich falsch?

Facebook
Telefonspende