WebBrowser mit Tabs ergibt NullReferenceException

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von kleinmichi.

    WebBrowser mit Tabs ergibt NullReferenceException

    Hallo zusammen,

    ich bin ein Hobby-Programmierer und mache mir zurzeit einen einfachen WebBrowser. Da ich mir Visual Basic gerne selber beibringen möchte, suche ich mir immer die Hilfe aus dem Internet und Youtube. Jedenfalls wollte ich gerne einen WebBrowser mit Tabs machen und habe mir ein deutsches Tutorial auf Youtube.com gesucht. Habe eins gefunden und das nachgemacht. Gut erklärt und alles. Nun funktioniert alles im Video nur bei mir nicht. Unten ist der Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim AktiverBrowser As WebBrowser
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. Me.TabControl1.TabPages.Clear()
    6. AddTab("Neuer Tab...", "about:blank")
    7. GetAktiverBrowser()
    8. End Sub
    9. Private Sub AddTab(ByVal name As String, ByVal url As String)
    10. Dim tab As TabPage = New TabPage(name)
    11. Dim wb As WebBrowser = New WebBrowser
    12. wb.Navigate(url)
    13. wb.Dock = DockStyle.Fill
    14. tab.Controls.Add(wb)
    15. AddHandler wb.DocumentCompleted, AddressOf BrowserFertig
    16. AddHandler wb.Navigating, AddressOf BrowserSeiteLaden
    18. Me.TabControl1.TabPages.Add(tab)
    19. Me.TabControl1.SelectedTab = tab
    20. Me.TextBox1.Focus()
    21. End Sub
    22. Private Sub BrowserFertig()
    23. If Not AktiverBrowser.DocumentTitle.ToString = Nothing Then
    24. Me.TabControl1.SelectedTab.Text = AktiverBrowser.DocumentTitle
    25. End If
    26. End Sub
    27. Private Sub GetAktiverBrowser()
    28. For Each wb As WebBrowser In Me.TabControl1.SelectedTab.Controls
    29. wb = AktiverBrowser
    30. Exit For
    31. Next
    32. End Sub
    34. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    35. GetAktiverBrowser()
    36. AktiverBrowser.GoBack()
    38. End Sub
    40. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    41. GetAktiverBrowser()
    42. AktiverBrowser.GoForward()
    44. End Sub
    46. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    47. GetAktiverBrowser()
    48. AktiverBrowser.Refresh()
    50. End Sub
    53. Private Sub NeuerTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuerTabToolStripMenuItem.Click
    54. AddTab("Neuer Tab...", "about:blank")
    55. GetAktiverBrowser()
    57. End Sub
    59. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button6.Click
    60. GetAktiverBrowser()
    61. AktiverBrowser.Navigate(ComboBox1.Text)
    62. End Sub
    63. Private Sub BrowserSeiteLaden()
    64. Me.TabControl1.SelectedTab.Text = "Laden..."
    65. End Sub
    67. Private Sub TabSchließenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabSchließenToolStripMenuItem.Click
    68. Me.TabControl1.TabPages.Remove(Me.TabControl1.SelectedTab)
    69. End Sub
    71. 'WebBrowser Suche durch Taste "Enter"
    72. Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
    73. If e.KeyCode = Keys.Enter Then
    74. WebBrowser1.Navigate(ComboBox1.Text)
    75. End If
    77. End Sub
    79. Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
    80. GetAktiverBrowser()
    81. ComboBox1.Text = AktiverBrowser.Url.ToString
    83. End Sub
    84. End Class


    Das Problem liegt hier:

    VB.NET-Quellcode

    1. Private Sub TabSchließenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabSchließenToolStripMenuItem.Click
    2. Me.TabControl1.TabPages.Remove(Me.TabControl1.SelectedTab)
    3. End Sub

    Hier bekomme ich immer die Fehlermeldung "NullReferenceException wurde nicht behandelt. Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."

    Was muss ich tun?

    Vorher hatte ich probleme da hier

    VB.NET-Quellcode

    1. Private Sub BrowserFertig()
    2. If Not AktiverBrowser.DocumentTitle.ToString = Nothing Then
    3. Me.TabControl1.SelectedTab.Text = AktiverBrowser.DocumentTitle
    4. End If
    5. End Sub


    die selbe Fehlermeldung kam. Jedoch änderte ich das einzige TextBox1 (welches ich gar nicht in meiner Form habe :whistling: ) und ersetzte dies mit der vorhandenen ComboBox1. Jetzt war der Fehler weg. Aber der obrige da. Was würdet ihr mir empfehlen?

    Danke für jede konstruktive Hilfe
    PNGamingPower

    VB.NET-Quellcode

    1. Try
    2. Me.TabControl1.TabPages.Remove(Me.TabControl1.SelectedTab)
    3. If SelectedTabIndex < Me.TabControl1.TabCount Then
    4. Me.TabControl1.SelectedIndex = SelectedTabIndex
    5. Else
    6. Me.TabControl1.SelectedIndex = SelectedTabIndex - 1
    7. End If
    8. getaktiverbrowser()
    9. Catch
    10. addtab("Fehler", "about:blank")
    11. End Try


    Denke das hilft dir ;)

Facebook
Telefonspende