Tabs

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von Campi1995.

    Tabs

    Hallo Leute,

    ich weiß, ihr denkt jetzt "Nicht der nächste Tab Thread" . Aber ich habe schon alles durchgesucht und nichts gefunden.

    Ich habe mir einen Browser programmiert, welcher auch läuft.

    Nur ich möchte noch Tabs (wie in Firefox) hinzufügen. Ich hab leider keine Ahnung wie das geht, wäre klasse wenn mir einer helfen kann :) .

    MfG Campi1995 :thumbup:

    TabControl benutzen, und dann dynamisch Tabs hinzufügen.

    Alâ:

    VB.NET-Quellcode

    1. Dim tp as new TabPage
    2. tp.Text = "Blank"
    3. Dim NB as new Webbrowser
    4. NB.Dockstyle = Dock.Fill ' hier bin ich mir nicht sicher, musst du nochmal schauen.
    5. tp.Controls.Add(NB)
    6. TabControl1.Tabpages.Add(tp)




    Grüße

    Ja genau

    EDIT: Ich habe jetzt die Zeile wo Du Dir unsicher warst in "NB.Dock = DockStyle.Fill" geändert, sodass nichts mehr unterkringelt ist. Leider passiert nichts, wenn ich den Browser debugge.

    Bin jetzt im Bett. Aber vllt bringt es ja was, wenn ich euch den Code hinschreibe

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. WebBrowser1.Navigate(ComboBox1.Text)
    5. End Sub
    7. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    9. End Sub
    10. Private Sub Combobox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
    11. If e.KeyData = Keys.Enter Then
    12. Button1.PerformClick()
    13. e.SuppressKeyPress = True
    14. End If
    15. End Sub
    16. Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
    17. Dim Tx As String = WebBrowser1.Url.ToString
    18. ComboBox1.Text = Tx
    19. Dim index As Integer
    20. index = ComboBox1.FindString(Tx)
    21. If index > -1 Then
    23. Else
    24. ComboBox1.Items.Add(Tx)
    25. End If
    27. Me.Cursor = Cursors.Arrow
    28. End Sub
    29. Dim inNewWindow As Boolean = False
    30. Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
    31. ComboBox1.Text = WebBrowser1.Url.ToString
    32. ProgressBar1.Visible = True
    34. With ProgressBar1
    36. .Minimum = 0
    38. .Maximum = 50
    40. .Step = 5
    42. End With
    44. For index As Integer = 0 To 50 Step 5
    46. ProgressBar1.Value = index
    48. System.Threading.Thread.Sleep(35)
    50. Next
    51. End Sub
    52. Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
    53. My.Settings.Bookmarks.Add(ComboBox1.Text)
    54. Favs.DropDownItems.Add(ComboBox1.Text)
    55. My.Settings.Save()
    57. Timer1.Enabled = True
    58. End Sub
    59. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
    60. For Each item As String In My.Settings.Bookmarks
    61. Favs.DropDownItems.Add(item)
    62. Next
    64. Me.WindowState = FormWindowState.Maximized
    66. WebBrowser1.Navigate("www.alice.aol.de")
    67. End Sub
    68. Private Sub Favs_DropDownItemsClickes(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles Favs.DropDownItemClicked
    69. Dim clicked As ToolStripItem = e.ClickedItem
    70. Dim i As String = e.ClickedItem.Name
    71. If Not i = "[Lesezeichen]" Then
    72. WebBrowser1.Navigate(e.ClickedItem.Text, inNewWindow)
    73. End If
    74. End Sub
    77. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    79. ProgressBar1.Visible = False
    80. End Sub
    88. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    89. WebBrowser1.GoBack()
    90. End Sub
    92. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    93. WebBrowser1.GoForward()
    94. End Sub
    96. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    97. WebBrowser1.Navigate("www.alice.aol.de")
    98. End Sub
    100. Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
    101. Dim neueurl As String = WebBrowser1.StatusText
    102. e.Cancel = True
    103. WebBrowser1.Navigate(neueurl)
    105. Dim tp As New TabPage
    106. tp.Text = "Blank"
    107. Dim NB As New WebBrowser
    108. NB.Dock = DockStyle.Fill ' hier bin ich mir nicht sicher, musst du nochmal schauen.
    109. tp.Controls.Add(NB)
    110. TabControl1.TabPages.Add(tp)
    111. End Sub
    119. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Campi1995“ ()

    VB.NET-Quellcode

    1. Dim tp as new TabPage
    2. tp.Text = "Blank"
    3. Dim NB as new Webbrowser
    4. NB.Dockstyle = Dockstyle.Fill ' hier bin ich mir nicht sicher, musst du nochmal schauen.
    5. NB.Navigate("url")
    6. tp.Controls.Add(NB)
    7. TabControl1.Tabpages.Add(tp)




    Grüße

    So danke. Ich hab nur noch ein paar Kleinigkeiten, und zwar,
    1. Wenn ich oben in der combobox was eingebe, erscheint dies nicht. Er kommt immer nur Google
    2. Wie bekomme ich es hin, dass anstatt "blank" die Seite da steht (z.B. für den Thread hier: "`[VB 2008] Tabs - Hauptforum - ........") ?
    3. Wie schließt man die Tabs wieder?

    MfG Campi1995 :thumbup:

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Campi1995“ ()

    Okay, habs anders hin bekommen. Jetzt hab ich nur noch ein Problem. Und zwar z.B. auf alice.aol.de wenn man eine der unten stehenden Nachrichten öffnet, öffnet sich der IE.

    Wie bekomme ich es hin, dass sich das Fenster in einem neuen Tab öffnet? Und das in der Combobox die neue URL steht, wenn ich auf etwas klicke?

    Ich hab diesen Quellcode benutzt

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    7. Dim sTabpage As New TabPage
    8. Dim sBrowser As New WebBrowser
    11. sBrowser.Dock = DockStyle.Fill
    12. sTabpage.Text = "Ein neuer Tab wurde geöffnet ... "
    15. AddHandler sBrowser.ProgressChanged, AddressOf Progresschanged
    16. AddHandler sBrowser.DocumentCompleted, AddressOf completed
    18. sTabpage.Controls.Add(sBrowser)
    19. TabControl1.TabPages.Add(sTabpage)
    23. End Sub
    25. Private Sub Progresschanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
    28. ProgressBar1.Value = e.CurrentProgress
    30. End Sub
    32. Private Sub completed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    34. TabControl1.SelectedTab.Text = e.Url.ToString
    36. End Sub
    38. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    40. Dim sBrowser As WebBrowser = TabControl1.SelectedTab.Controls(0)
    42. sBrowser.Navigate(ComboBox1.Text)
    44. End Sub
    46. Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
    48. If e.KeyData = Keys.Enter Then
    49. Button1.PerformClick()
    50. e.SuppressKeyPress = True
    51. End If
    52. End Sub
    55. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    57. Dim sTabpage As New TabPage
    58. Dim sBrowser As New WebBrowser
    61. sBrowser.Dock = DockStyle.Fill
    62. sTabpage.Text = "Alice"
    67. sTabpage.Controls.Add(sBrowser)
    68. TabControl1.TabPages.Add(sTabpage)
    70. sBrowser.Navigate("www.alice.aol.de")
    72. End Sub
    74. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Campi1995“ ()

    Sorry, es klappt einfach nicht.

    Kannst Du mir das alles, was ich brauche, in meinen Code einfügen? Dann haste Ruhe vor mir. Es soll ein Geschenk werden, was ich übermorgen brauche und langsam mehr oder weniger auch meine Nerven versagen.

    Nochmal:
    1. Wie bekomme ich es hin, dass sich das Fenster in einem neuen Tab öffnet?
    2. Und das in der Combobox die neue komplette URL steht, wenn ich auf etwas klicke?

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    7. Dim sTabpage As New TabPage
    8. Dim sBrowser As New WebBrowser
    11. sBrowser.Dock = DockStyle.Fill
    12. sTabpage.Text = "Ein neuer Tab wurde geöffnet ... "
    15. AddHandler sBrowser.ProgressChanged, AddressOf Progresschanged
    16. AddHandler sBrowser.DocumentCompleted, AddressOf completed
    18. sTabpage.Controls.Add(sBrowser)
    19. TabControl1.TabPages.Add(sTabpage)
    23. End Sub
    25. Private Sub Progresschanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
    28. ProgressBar1.Value = e.CurrentProgress
    30. End Sub
    32. Private Sub completed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    34. TabControl1.SelectedTab.Text = e.Url.ToString
    36. End Sub
    38. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    40. Dim sBrowser As WebBrowser = TabControl1.SelectedTab.Controls(0)
    42. sBrowser.Navigate(ComboBox1.Text)
    44. End Sub
    46. Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
    48. If e.KeyData = Keys.Enter Then
    49. Button1.PerformClick()
    50. e.SuppressKeyPress = True
    51. End If
    52. End Sub
    55. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    57. Dim sTabpage As New TabPage
    58. Dim sBrowser As New WebBrowser
    61. sBrowser.Dock = DockStyle.Fill
    62. sTabpage.Text = "Alice"
    67. sTabpage.Controls.Add(sBrowser)
    68. TabControl1.TabPages.Add(sTabpage)
    70. sBrowser.Navigate("www.alice.aol.de")
    72. End Sub
    76. End Class

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

    Also;

    Generier ein NewWindow Event vom Webbrowser. Dort schreibst du e.Cancel = true rein, damit wird unterbunden, das der IE den Tab öffnet. Nun nimmst du die Url aus dem StatusText und öffnest diese in einen neuen Tab, der Code dafür steht ja oben. Das Event kannst du mit AddHandler hinzufügen.



    Grüße