none
#ERRO Conteúdo deformado e redimensionado automaticamente. RRS feed

  • Pergunta

  • 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
    quinta-feira, 7 de agosto de 2014 10:38

Todas as Respostas

  • 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)

    segunda-feira, 18 de agosto de 2014 18:40