Probleme / Verständnisprobleme Browser mit CefSharp VB.Net

  • VB.NET
  • .NET 5–6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Fakiz.

    Probleme / Verständnisprobleme Browser mit CefSharp VB.Net

    Sehr geehrte VB Community,

    ich bin noch komplett neu hier und ebenfalls neu in dem Theme Programmierung :)

    Ich habe mich dazu entschlossen ein Einstiegsprojekt umzusetzen (Ja wie immer der Browser) :D

    Jetzt steh ich vor 2 Problemen und auch durch Recherche kam ich einfach auf keine vernünftige Lösung... gut vielleicht liegts auch am Code...

    Und zwar möchte ich die Möglichkeit haben Tabs im Browser zu öffnen. Hierzu habe ich zwei Forms, eine mit dem Panel, auf welches der Browser gebunden wird (muss ja anscheinend bei CefSharp so sein, daher rührt teils auch mein Problem)
    Im zweiten Form befindet sich das TabControl Element, auf welches dann Form 1 eingebunden wird.

    Probleme die ich hier habe:
    Ich kann von Form2 nicht auf Form1 zugreifen. Es kommt immer eine Fehlermeldung, dass eine Objektinstanz nicht zugewiesen ist. Also die Null Exception.

    Zweites Problem: Ich möchte den Webseiten Titel in den Tabs haben. Jedoch müsste ich doch das über ein Ereignis prüfen, welches nachsieht ob die Website geladen hat oder? Jedoch komm ich an das Browserelement nicht so einfach heran, da es ja im Panel und im Tabcontroller eingebunden ist :)
    Ich weiß diese Fragen sind wahrscheinlich wahrlich Noob Fragen, hier bitte ich um Verzeihung! Aber ich möchte wirklich besser werden im Thema programmieren

    Vielen Dank schonmal!

    Ach ja, ohne Code gehts hier ja nicht, ich füge mal beide Forms als Code ein:

    Form1:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports CefSharp
    3. Imports CefSharp.WinForms
    5. Public Class Form1
    7. Public Property mettbrowser As ChromiumWebBrowser
    9. Public Async Function PrepareBrowserAsync() As Task
    11. 'BrowserCache anlegen, damit nicht immer erneut die Cookie Abfrage auftaucht
    12. Dim cachePath = IO.Path.Combine(Environment.CurrentDirectory, "cache")
    13. If Not IO.Directory.Exists(cachePath) Then
    14. IO.Directory.CreateDirectory(cachePath)
    15. End If
    17. 'Einstellungen für CEF-Umgebung festlegen. Session-Cookies aktivieren, Pfad für diese festlegen (per cachePath)
    18. Dim settings = New CefSettings() With {
    19. .PersistSessionCookies = True,
    20. .CachePath = cachePath
    21. }
    22. Cef.Initialize(settings)
    24. 'Browser im Panel füllen
    25. mettbrowser = New ChromiumWebBrowser("") With {
    26. .Dock = DockStyle.Fill
    27. }
    29. 'Funktion eine halbe Sekunde Asynchron warten lassen, damit das Laden der Adresse funktioniert
    30. Await Task.Delay(500)
    31. pnlWebbrowserContainer.Controls.Add(mettbrowser)
    33. End Function
    35. Public Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    37. If Cef.IsInitialized = False Then
    38. Await PrepareBrowserAsync()
    39. 'Laden der Standardwebsite bei CEF wird dies mit LoadURL gemacht
    40. Await mettbrowser.LoadUrlAsync("https://google.de")
    41. End If
    43. End Sub
    45. Public Sub mettbrowser_LoadingStateChanged()
    47. 'Sauberes schließen bei Beenden
    48. Public Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    49. Cef.Shutdown()
    50. End Sub
    52. '----------------------------------------------------------------------
    53. 'Buttons Programmieren
    55. Public Sub btnGoBack_Click(sender As Object, e As EventArgs) Handles btnGoBack.Click
    57. mettbrowser.Back
    59. End Sub
    61. Public Sub btnGoForward_Click(sender As Object, e As EventArgs)
    63. mettbrowser.Forward
    65. End Sub
    67. Public Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
    69. mettbrowser.Refresh()
    71. End Sub
    73. Public Sub btnDev_Click(sender As Object, e As EventArgs) Handles btnDev.Click
    75. mettbrowser.ShowDevTools
    77. End Sub
    79. Public Sub btnSource_Click(sender As Object, e As EventArgs) Handles btnSource.Click
    81. mettbrowser.ViewSource
    83. End Sub
    85. Public Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
    87. Me.mettbrowser.Load(txtUrl.Text)
    89. End Sub
    91. 'KeyDown Event, bei Enter in der Searchbar
    92. Public Sub txtUrl_KeyDown(sender As Object, e As KeyEventArgs) Handles txtUrl.KeyDown
    94. If e.KeyCode = Keys.Enter Then
    95. mettbrowser.Load(txtUrl.Text)
    96. End If
    98. End Sub
    100. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    102. Call Form2.NewTab()
    104. End Sub
    106. '----------------------------------------------------------------------
    108. End Class


    Form2:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports CefSharp
    3. Imports CefSharp.WinForms
    5. Public Class Form2
    7. 'Verbindet TabControl von Form2 mit Form1
    8. Public Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. Dim t As New TabPage
    11. Dim newtab As New Form1
    12. newtab.Show()
    13. newtab.TopLevel = False
    14. newtab.Dock = DockStyle.Fill
    15. t.Controls.Add(newtab)
    16. TabControl1.TabPages.Add(t)
    18. End Sub
    20. Public Sub NewTab()
    22. Dim t As New TabPage
    23. Dim newtab As New Form
    24. newtab.Show()
    25. newtab.TopLevel = False
    26. newtab.Dock = DockStyle.Fill
    27. t.Controls.Add(newtab)
    28. TabControl1.TabPages.Add(t)
    30. End Sub
    32. End Class

    Für dein Vorhaben benötigst du eine Form auf der das TabControl liegt. Wenn du einen neuen Tab öffnen willst erstellt du dir eine neue TabPage und eine neue Instanz deines BrowserControls dieses fügst du dann der TabPage hinzu und die TabPage dem TabControl. CefSharp dürfte vermutlich einen DocumentLoaded Event oder etwas in der Richtung bereitstellen mit dem du an den Titel der Website kommst.

    Hallo Fakiz,

    vielen Dank für die Antwort :)

    Genau so hatte ich mir das gedacht, das TabControl liegt aktuell auf Form2, ich habe es auch geschafft neue Tabs zu erstellen, jedoch waren diese Leer und alle Buttons, welche über Form1 gesetzt sind gehen dann in den "Null Exeption Error"

    Fraglich ist wie genau ich die neue Browserinstanz über die Form2 laden müsste oder ob ich den Code allgemein "teilweise" nochmal in Form2 rüber kopieren müsste

    Zwecks des Document Loading Events hatte ich auch schon etwas gesehen, aber irgendwie funktioniert der Zugriff aus Form2 nicht :|
    Die Tabs blieben dann trotzdem leer

    Edit:
    Ich habe das Sub in Form2 nochmal verändert:

    VB.NET-Quellcode

    1. Public Sub NewTab()
    3. Dim t As New TabPage
    4. Dim newtab As New Form1
    5. newtab.Show()
    6. newtab.TopLevel = False
    7. newtab.Dock = DockStyle.Fill
    8. t.Controls.Add(newtab)
    9. TabControl1.TabPages.Add(t)
    11. End Sub


    Also explizit die Zeile des NewTab als Form1
    Die 1 habe ich zu Testzwecken entfernt und versehentlich hier so mit reingepostet, es öffnet den neuen Tab und die Elemente von Form1 werden im neuen Tab geladen.
    Jedoch nicht das Browserelement, sowie die Buttons, folgende Fehlermeldung erscheint:
    (Bild im Dateianhang)

    Das Fenster schließt sich daraufhin und mir wird diese Zeile in VS angekreidet, habe ich jetzt hier beim Klick auf den Search Button

    Vielleicht hilft das ja etwas bei der Problemfindung weiter :)

    Ich danke schonmal ganz herzlich!
    Bilder

    • MettbrowserTabError.PNG

      24,55 kB, 684×272, 114 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Quasi“ ()

    benötigst du eine Form

    Das heißt Form2 wird nicht benötigt. In Form1 legst du dann den DocumentLoaded EventHandler an. Der muss dann allen neu erstellten Instanzen des CefSharp Controls zugewiesen werden. Bevor du dich verennst würde ich dir raten das ganze erst einmal mit einer TabPage, die du im Designer der Form1 erstellt, umzusetzen. Wenn alles mit einem Tab läuft würde ich mich an den Dynamischen Tabs versuchen.

    Edit:
    Ich hab dir mal ein Bild angehängt das zeigt wie dein Layout idealer weise im Moment aussehen sollte. In der Linken oberen Ecke kannst du meine Projektmappe sehen. Darunter kannst du das Eigenschaftsfenster sehen. Darüber kannst du unter anderem die Ereignisse die ein Steuerelement bereitstellt einsehen und Abonieren. Hierfür musst du mit der Maus den CefSharp browser auswählen und dann auf das Blitzsymbol klicken. Im Eigenschaftsfenster musst du dir dan den DocumentLoaded - Event suchen und doppelt anklicken.
    Bilder

    • FormLayout.png

      56,1 kB, 1.163×627, 106 mal angesehen

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Fakiz“ ()