Preciso de ajuda nos TabControls

[yekxmerr]

Boas, estou com um pequeno problema. O meu programa tem um formulário inicial, e tem um menustrip que abre os restantes formulários. Hoje decidi adicionar um tab control ao menu inicial e queria que os outros formulários abrissem dentro de esse tabcontrol de uma forma idêntica aos separadores do firefox.

Tenho o seguinte código no menustrip:

    Private Sub CriarNovoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

        Dim frmUser As New Aluno

        frmUser.TopLevel = False

        frmUser.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle

        Me.TabControl1.TabPages(0).Controls.Add(frmUser)

        frmUser.Show()

    End Sub

Alguem tem uma solução para os restantes formularios ? Isto é, queria carregar num butão e apareçer uma nova tab com o formulario la dentro. Cumps

Cumps

[Hellblazer]

Dim newTab As New System.Windows.Forms.TabPage("Tab X")
Dim frmToAdd As New Form2
newTab.Controls.Add(frmToAdd)
TabControl1.TabPages.Add(newTab)

[yekxmerr]

Desde ja agradeço pelo codigo mas tive erro na seguinte linha:

newTab.Controls.Add(frmToAdd)

Erro: " O controlo de nível superior não pode ser adicionado a um controlo "

[yekxmerr]

Não consigo resolver este problema 😛

[anolsi]

Que eu saiba não podes adicionar um formulário a uma tab, mas não tenho a certeza.

[Hellblazer]

Segundo o primeiro post dele dá 😛

[yekxmerr]

Sim eu consegui. Mas no código do Hellblazer, dá-me aquele erro 😛 , e no meu código tenho de me referir qual separador quero abrir :S é um bocado chato

[Hellblazer]

http://www.experts-exchange.com/Programming/Languages/.NET/Q_22010830.html

[jpaulino]

http://www.experts-exchange.com/Programming/Languages/.NET/Q_22010830.html

Não é visível a todos ... aqui fica o código do link:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim frm As New Form1
        frm.TopLevel = False
        frm.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
        frm.Dock = DockStyle.Fill
        AddHandler frm.FormClosed, AddressOf frm_FormClosed

        Dim tp As New TabPage
        frm.Tag = tp
        tp.Controls.Add(frm)
        frm.Show()

        TabControl1.TabPages.Add(tp)
    End Sub

    Private Sub frm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs)
        TabControl1.TabPages.Remove(sender.tag)
    End Sub

[yekxmerr]

Muito Obrigado 👍

[Hellblazer]

jpaulino lol 👍 por acaso até tens, tens e que descer o site todo para baixo 🙂 e um truque que eu descobri sem querer lol xD

[jpaulino]

jpaulino lol 👍 por acaso até tens, tens e que descer o site todo para baixo 🙂 e um truque que eu descobri sem querer lol xD

Não sabia 🙂

[yekxmerr]

Bem, não gostei do aspecto de carregar formularios para dentro de tabs, portanto decidi utilizar só as tabs. Desde ja agradeço a vossa ajuda