• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

yekxmerr

Preciso de ajuda nos TabControls

13 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Dim newTab As New System.Windows.Forms.TabPage("Tab X")
Dim frmToAdd As New Form2
newTab.Controls.Add(frmToAdd)
TabControl1.TabPages.Add(newTab)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 "

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

jpaulino lol :thumbsup: 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 :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora