Mit dem Webbrowser (IE) klappts mit dem FF Controller nicht (GeckoFX).

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Björn.

    Mit dem Webbrowser (IE) klappts mit dem FF Controller nicht (GeckoFX).

    Hi Leute,
    Ich bin dabei einen Browser zu schreiben.
    Und möchte Tabs haben.
    Das heb ich so umgesetzt :

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim AktiverWebbrowser As GeckoWebBrowser
    5. Private Sub Browserfertig()
    6. If Not AktiverWebbrowser.DocumentTitel.ToString = Nothing Then
    7. Me.TabControl1.SelectedTab.Text = AktiverWebbrowser.DocumentTitel
    8. End If
    9. End Sub
    11. Private Sub BrowserSeiteLaden()
    12. Me.TabControl1.SelectedTab.Text = "Laden..."
    13. End Sub
    15. Private Sub AddTab(ByVal name As String, ByVal url As String)
    16. Dim tab As TabPage = New TabPage(name)
    17. Dim wb As GeckoWebBrowser = New GeckoWebbrowser
    18. wb.Navigate(url)
    19. wb.Dock = DockStyle.Fill
    20. tab.Controls.Add(wb)
    21. AddHandler wb.DocumentCompleted, AddressOf Browserfertig
    22. AddHandler wb.Navigating, AddressOf BrowserSeiteLaden
    24. Me.TabControl1.TabPages.Add(tab)
    25. Me.TabControl1.SelectedTab = tab
    26. Me.TextBox1.Focus()
    28. End Sub
    30. Private Sub GetAktiverBrowser()
    31. For Each wb As Gecko In Me.TabControl1.SelectedTab.Controls
    32. AktiverWebbrowser = wb
    33. Exit For
    34. Next
    35. End Sub
    37. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    38. GetAktiverBrowser()
    39. AktiverWebbrowser.Navigate(Me.TextBox1.Text)
    40. End Sub
    42. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    43. GetAktiverBrowser()
    44. AktiverWebbrowser.Goback()
    46. End Sub
    48. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    49. GetAktiverBrowser()
    50. AktiverWebbrowser.GoForward()
    51. End Sub
    53. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    54. AddTab("Neuer Tab.....", "about:black")
    55. End Sub
    57. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    58. Me.TabControl1.TabPages.Clear()
    59. AddTab("Neuer Tab...", "about:black")
    60. GetAktiverBrowser()
    61. End Sub
    62. End Class


    Mit WebBrowser klappt das kanns gut.
    Nur nicht mit GeckoWebBrowser.

    Kann mir jmd sagen was ich da anders machen muss. Oder eine andere Möglichkeit zeigen ? (TUT Etc)


    Mfg Björn