[Help] Tabbed Webbrowser [solved]

Code:

 TabControl1.TabPages.Add("New Tab")
   TabControl1.TabPages(TabControl1.TabPages.Count -1).Controls.Add(webo)
        webo.Dock = DockStyle.Fill

But It just add a Webrowser in the new tab and in the old one dissapear.

Code:

    Dim browserCollection As New List(Of WebBrowser)


    Private Sub AddNewTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNewTabToolStripMenuItem.Click
        Dim webBrowser As New WebBrowser
        browserCollection.Add(webBrowser)
        TabControl1.TabPages.Add("New Tab")
        TabControl1.TabPages(TabControl1.TabPages.Count - 1).Controls.Add(browserCollection(TabControl1.TabPages.Count - 1))
        browserCollection(TabControl1.TabPages.Count - 1).Dock = DockStyle.Fill
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        browserCollection.Add(New WebBrowser)
        TabControl1.TabPages(TabControl1.TabPages.Count - 1).Controls.Add(browserCollection(TabControl1.TabPages.Count - 1))
        browserCollection(TabControl1.TabPages.Count - 1).Dock = DockStyle.Fill
    End Sub

    Private Sub NavigateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NavigateToolStripMenuItem.Click
        Dim activeWebbrowser As WebBrowser = CType(browserCollection(TabControl1.SelectedIndex), WebBrowser)
        activeWebbrowser.Navigate(InputBox("Navigate:", "Navigate", "http://"))
    End Sub

Prolly isn't perfect, but you can always ask for more help.

BTW, don't add a webbrowser to the first tab, the code does it. It's easier that way.

wow thanks

[Help] Tabbed Webbrowser [solved]

Tags for this Thread