Visual basic tabpage controls

[codGmer]

Hallo,

Ik wil dat als de nieuwe tabblad is geopend dat dan de control van de bestaande tabbladen in de nieuwe tabblad komt alleen als ik de controls copieër via codes dan zijn de nieuwe pictureboxes controls voor de bestaande browsers nu wil ik dat deze nieuwe pictureboxes zijn voor de nieuwe browser. Hier de code:

deze dim´s zijn onder form1:

 Dim a As Control = Hviewer.PictureBox2
    Dim b As Control = Hviewer.PictureBox3
    Dim c As Control = Hviewer.PictureBox4
    Dim d As Control = Hviewer.PictureBox32
    Dim f As Control = Hviewer.PictureBox1

hier de code.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim page As New TabPage
        Dim browser As New WebBrowser
        
        browser.Dock = DockStyle.Fill
        page.BackColor = Color.Transparent
        Hviewer.TabControl1.TabPages.Add(page)
        Hviewer.TabControl1.SelectTab(page)
        Hviewer.TabControl1.SelectedTab.Text = TextBox1.Text
        Hviewer.TabControl1.SelectedTab.Controls.Add(browser)
        browser.Controls.Add(a)
        browser.Controls.Add(b)
        browser.Controls.Add(c)
        browser.Controls.Add(d)
        browser.Controls.Add(f)
                browser.Navigate(TextBox2.Text)

        ListBox1.Items.Clear()
        For Each item In Hviewer.TabControl1.TabPages
            ListBox1.Items.Add(item.text)
        Next
    End Sub

Hier een gif :

[video]http://i.imgur.com/6NYgw.gif[/video]

 

[CaptainBri]

Het lijkt me vrij simpel, door een tabblad te kopiëren.
Zoiets:

TabControl.TabPages.Add(TabControl1.TabPages(0))

Misschien helpt het?

 

[codGmer]

Heel erg bedankt alleen het werkt niet helemaal naar wenshttp://i.imgur.com/ma6xB.gif

De controls moeten nog worden toegevoegt.

 

[CaptainBri]

Hmm, misschien helpt dit:

TabControl1.TabPages(TabControl1.TabPages.Count - 1).Controls.AddRange(TabControl1.TabPages(0).Controls)

Heb het niet kunnen testen, op dit moment geen VB.NET IDE bij de hand =)

 

[codGmer]

Helaas komt er een foutmelding bij

(Hviewer.TabControl1.TabPages(0).Controls)

Error 9 Value of type 'System.Windows.Forms.Control.ControlCollection' cannot be converted to '1-dimensional array of System.Windows.Forms.Control'. I:\programma\WindowsApplication3\Eng\Form1.vb 45 96 WindowsApplication3

 

[CaptainBri]

Hopelijk werkt dit

        For Each c As Control In TabControl1.TabPages(0).Controls
            TabControl1.TabPages(TabControl1.TabPages.Count - 1).Controls.Add(c)
        Next