#ERRO Conteúdo deformado e redimensionado automaticamente.

Question

Boa pessoal...

Estou desenvolvendo uma interface de navegação própria na internet, (um mini browser).
O problema é esse: Veja o código:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tab As New TabPage
        Dim aba As New TabControl
        tab.Text = "Página Inicial"
        Me.TabControl1.TabPages.Add(tab)
        tab.Controls.Add(aba)

    End Sub

Quando clico para abrir a nova aba, a aba abre mais no entanto eu tenho que seleciona-la.
Eu queria que ela já abrisse selecionada, e tem mais um problema:
Quando a nova aba abre, o conteúdo (Que é a TabControl1 ) abre sem a dock fill e dependendo do tamanho da fonte sai tudo deformado... Alguém pode me ajudar?

Lembrando que o que eu quero é que o conteúdo se ajuste ao tamanho da TabPage. ou seja se eu maximizar ela cresce junto. E evitar que as coisas sejam aumentadas automaticamente, porque se eu coloco um botão de tamanho 25X25 é redimensionado para 35X35 quando abre em nova aba...

Valew pessoal! Espero sua ajuda

Answer 1

tente isso:

    Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'instancia as classes
        Dim tab As New TabPage
        Dim aba As New TabControl
        'seta o nome da aba
        tab.Text = "Página Inicial"
        'seta o enum DockStyle
        aba.Dock = DockStyle.Fill
        'adiciona ao tabpage o controle no qual foi inicializado
        Me.TabControl1.TabPages.Add(tab)
        tab.Controls.Add(aba)
        'seleciona a aba final.
        Call SelecionaAba()
    End Sub

    Private Sub SelecionaAba()
        Me.TabControl1.SelectTab(Me.TabControl1.TabPages.Count - 1)
    End Sub

agora,como voce esta adicionando os controles dentro da tabpage??

---

Microsoft Technology Associate (MTA)