WebBrowser - TabControl

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Madd Eye.

    Ich glaub nicht das er meint welche Engine sonder wie er das mit den Tabs hinbekommt.

    Ich hab diesen Code bekommen: (auch mit Gecko Enginge)

    VB.NET-Quellcode

    1. Private Sub NeuerTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuerTabToolStripMenuItem.Click
    3. Dim MyTabpage As New System.Windows.Forms.TabPage
    4. Dim MyWebbrowser As New Skybound.Gecko.GeckoWebBrowser
    5. MyWebbrowser.Dock = DockStyle.Fill
    6. MyWebbrowser.Name = "Browser"
    7. MyTabpage.Text = "Leer"
    8. MyTabpage.Name = "Tab" & BrowserTabs.TabIndex + 1
    9. MyTabpage.Controls.Add(MyWebbrowser)
    10. BrowserTabs.Controls.Add(MyTabpage)
    13. End Sub


    Und dann für den Connect Button:

    VB.NET-Quellcode

    1. Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGo.Click
    3. Dim b As Skybound.Gecko.GeckoWebBrowser = BrowserTabs.SelectedTab.Controls("Browser")
    5. If InStr(Adressen.Text, "http://") = "1" Then
    7. b.Navigate(Adressen.Text)
    9. Else
    11. Adressen.Text = "http://" + Adressen.Text
    12. b.Navigate(Adressen.Text)
    14. End If
    16. Me.Text = "SunnyGO - " & b.DocumentTitle()
    18. BrowserTabs.SelectedTab.Text = b.DocumentTitle()
    20. End Sub


    Das einzige Problem bei mehrer Tabs bleibt der Tabtext Leer warum weiß ich auch nicht ?(

    Bin da noch am Ausbessern

Facebook
Telefonspende