Browser-Tabs

  • VB.NET

Es gibt 38 Antworten in diesem Thema. Der letzte Beitrag () ist von Samus Aran.

    ok machs so: (Quelle : Kouki VB-Paradise User)
    Bei den Tabs machst du einfach einen Public Sub:



    VB.NET-Quellcode

    1. Public Sub AddTab(ByRef URL As Uri, ByRef TabControl As TabControl)
    2. Dim Browser As New WebBrowser
    3. Dim Tab As New TabPage
    4. Browser.Tag = TabControl
    5. TabControl.Tag = Browser
    6. TabControl.Controls.Add(Tab)
    7. Tab.TabPages.Add(Browser)
    8. Browser.Navigate(URL)
    9. End Sub



    Jetzt kannst du einen neuen Tab so erstellen:
    Du gibst AddTab() ein, in der Klammer müssen folgende Sachen stehen:
    (Seite, zu der du gehen willst im String-Format, das TabControl wo der Tab hinzugefügt werden soll)



    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. AddTab("vb-paradise.de", TabControl1)
    3. End Sub


    Wenn man auf Button1 Klickt, öffnet sich ein neuer Tab im TabControl1 mit der Seite "vb-paradise.de"

    Willst du den Text des Tabs an den Titel der Seite Anpassen, musst du eine Klasse erstellen:



    VB.NET-Quellcode

    1. Public Class CustomBrowser
    2. Inherits WebBrowser
    3. Private Sub DocCompleted() Handles Me.DocumentCompleted
    4. Dim TP As TabPage = Me.Tag
    5. TP.Text = Me.DocumentTitle
    6. End Sub
    7. End Class



    Nun musst du in AddTab() Anstatt WebBrowser einfach CustomBrowser angeben. Das sieht dann so aus:

    VB.NET-Quellcode

    1. Public Sub AddTab(ByRef URL As Uri, ByRef TabControl As TabControl)
    2. Dim Browser As New CustomBrowser
    3. Dim Tab As New TabPage
    4. Browser.Tag = TabControl
    5. TabControl.Tag = Browser
    6. TabControl.Controls.Add(Tab)
    7. Tab.TabPages.Add(Browser)
    8. Browser.Navigate(URL)
    9. End Sub



    Code von Kouki :thumbup:
    probier es mal mit dem: (von Kouki)

    VB.NET-Quellcode

    1. Public Sub AddTab(ByRef URL As Uri, ByRef TabControl As TabControl)
    2. Dim Browser As New WebBrowser
    3. Dim Tab As New TabPage
    4. Browser.Tag = TabControl
    5. TabControl.Tag = Browser
    6. TabControl.Controls.Add(Tab)
    7. Tab.TabPages.Add(Browser)
    8. Browser.Navigate(URL)
    9. End Sub
    achso dochnich falsch eingschätzt ^^ sry
    diese funktion fügste in deine Form dazu ein:

    VB.NET-Quellcode

    1. Public Sub AddTab(ByRef URL As String, ByRef TabControl As TabControl)
    2. Dim Browser As New WebBrowser
    3. Dim Tab As New TabPage
    4. Browser.Tag = TabControl
    5. TabControl.Tag = Browser
    6. TabControl.Controls.Add(Tab)
    7. Tab.Controls.Add(Browser)
    8. Browser.Navigate(URL)
    9. End Sub


    und so rufst du sie auf:

    VB.NET-Quellcode

    1. AddTab("www.google.de", TabControl1)


    :thumbup:
    Dim Browser As New Webbrowser geht nicht (ist nicht in der liste)
    Dim Tab As New Tabpage ebenfalls nicht
    Also evt. hat der der Das geschrieben hat nur aus freier hand geschrieben Oder. das kann sein ich habe ne Falsche Version

    Tim
    Public Subs kommen immer unter z.b
    Public Class Form1

    Hier kannst du die Sub hintun

    in den Button wo der neue Tab erstellt wird kommt eig
    AddTab("www.google.de", TabControl1)

    Aber bei mir funzt das ned
    wenn du das ganz simple haben willst (mit tab - und webbrowser drauf hinzuzufügen) dann fügst du diesen Code als neuen Sub in deine aktuelle Form :

    VB.NET-Quellcode

    1. Public Sub AddTab(ByRef URL As String, ByRef TabControl As TabControl)
    2. Dim Browser As New WebBrowser
    3. Dim Tab As New TabPage
    4. Browser.Tag = TabControl
    5. TabControl.Tag = Browser
    6. TabControl.Controls.Add(Tab)
    7. Tab.Controls.Add(Browser)
    8. Browser.Navigate(URL)
    9. End Sub


    und zum aufruf wo du dann z.B. stehen hast neuen Tab erstellen schreibst du folgenden Code rein :

    VB.NET-Quellcode

    1. AddTab("www.google.de", TabControl1)


    hastes jetzt verstanden ?? 8-)

    Edit: @Confix.npage.de und was ist mit nem z.B. Modul da heißt das dann Module Module1 ^^