Richtextbox in einem neuem Tab

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von PascalN.

    Ich hatte mal sowas für WebBrowser hier reingestellt... Ich such mal eben, das funktioniert im Prinzip genauso ;)

    Edit://

    Kouki schrieb:

    Das Tutorial ist eh nicht gerade gut und einfach :thumbdown: Ich hatte hier im Forum schon längst 'ne bessere Lösung gepostet... Aber daran erinnert sich wohl kaum noch jemand...

    Neuer Tab (Sub):

    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. Browser.Dock = DockStyle.Fill
    6. TabControl.Tag = Browser
    7. TabControl.Controls.Add(Tab)
    8. Tab.TabPages.Add(Browser)
    9. Browser.Navigate(URL)
    10. End Sub


    Neuer Tab:

    VB.NET-Quellcode

    1. AddTab("vb-paradise.de", TabControl1)

    Es erscheint ein neuer Tab im TabControl1 mit der Seite "vb-paradise.de" offen.

    WebBrowser ansprechen:

    VB.NET-Quellcode

    1. Dim WB As WebBrowser = TabControl1.SelectedTab.Tag 'Der aktuell ausgewählte Browser wird angesprochen
    2. 'oder
    3. Dim WB As WebBrowser = TabControl1.TabPages(0).Tag 'statt 0 den Seitenindex angeben!

    Beim ersten wird der offene Tab ausgewählt, Beim 2. der Tab, dessen Index du bei 0 angibst.

    Oder: Mit veränderlichem Text

    CustomBrowser-Klasse:

    VB.NET-Quellcode

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

    Die Klasse ist beliebig erweiterbar.

    Veränderungen im AddTab-Sub: "WebBrowser" in "CustomBrowser" ändern.
    Veränderungen beim Ansprechen: "WebBrowser" in "CustomBrowser" ändern.

    Ääh
    Es war eigentlich nicht als C&P gedacht.
    Du musst der RTB natürlich noch eine Grösse (oder Dock) zuweisen und evtl. noch einen Namen...
    Und schau dir mal den Code von Kouki an (ACHTUNG: Wenn du den 1:+ kopiert, wird es nicht gehen, wie du willst - Nur mal so als Hinweis ;))


    Grüsse
    Pascal

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

    @PascalN: Dock ist bereits drin ;) Sonst hab ich es immer vergessen, hier aber nicht! :D

    VB.NET-Quellcode

    1. Browser.Dock = DockStyle.Fill


    Und übrigens: Es heißt Kouki ;)

    @Cross: Gestalte meinen Code um, einfach statt WebBrowser RichTextBox oder (falls du es mit der Klasse machst, was ich persönlich empfehle) lass deine Klasse von der RichTextBox statt vom WebBrowser erben.