none
navegador com abas - abrir EM nova aba já selecionada RRS feed

  • Pergunta

  • olá a todos! Sou iniciante e tenho pouco conhecimento. estou aprendendo aos poucos, entretanto, encontro dificuldades porque não entendo os comandos e códigos.

    Uso o vb 2010 express...

    tenho um projeto de um navegador com abas e vários LinkLabels para sites diferentes e um botão para abrir novas abas.

    Gostaria de ajuda pra quando clicar nesse botão para abrir nova aba, essa aba já abrisse selecionada. Senão, a nova aba abre e tenho que clicar nela pra selecionar...

    Será que me fiz entender? espero que sim.

    sábado, 8 de fevereiro de 2014 18:34

Respostas

  • Substitua o método AddTab por este:

    Public Sub AddTab(ByRef URL As String, ByRef TabControl As TabControl)
    	Dim NewBrowser As New CustomBrowser
    	Dim NewTab As New TabPage
    	NewBrowser.Tag = NewTab
    	NewTab.Tag = NewBrowser
    	TabControl.TabPages.Add(NewTab)
    	NewTab.Controls.Add(NewBrowser)
    	NewBrowser.Dock = DockStyle.Fill
    	NewBrowser.Navigate(URL)
    	TabControl.SelectedTab = NewTab
    End Sub

    • Marcado como Resposta reinaldorojo sexta-feira, 14 de fevereiro de 2014 13:18
    quinta-feira, 13 de fevereiro de 2014 21:23

Todas as Respostas

  • Bom dia reinaldo, 

    Certo, acho que entendi oque você deseja.

    Tem como postar seu código para eu dar uma olhada?

    Tente fazer isso, acho que pode resolver:

    Faça algo mais ou menos assim, acho que deve funcionar:

    Dim tab As New TabPage("Title")
    tab.Controls.Add(wb)
    TabControl.TabPages.Add(tab)
    TabControl.SelectedTab = tab

    Att,


    Giovani Cruzara – Microsoft Contingent Staff

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

    Msdn Community Support

    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.


    • Editado Giovani Cr quinta-feira, 13 de fevereiro de 2014 13:16 correção
    quinta-feira, 13 de fevereiro de 2014 13:16
  • Olá, Giovani. Obrigado por tentar ajudar.

    Não sei exatamente onde inserir o código que sugeriu...

    Vou colocar todos os códigos que tem no projeto das tabs e do botão, pois não sei exatamente qual é o que precisaria conferir, ok?

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            AddTab("about:blank", TabControl1)
        End Sub

        Public Sub AddTab(ByRef URL As String, ByRef TabControl As TabControl)
            Dim NewBrowser As New CustomBrowser
            Dim NewTab As New TabPage
            NewBrowser.Tag = NewTab
            NewTab.Tag = NewBrowser
            TabControl.TabPages.Add(NewTab)
            NewTab.Controls.Add(NewBrowser)
            NewBrowser.Dock = DockStyle.Fill
            NewBrowser.Navigate(URL)
        End Sub


        Private Sub nova_guia_Click(sender As System.Object, e As System.EventArgs) Handles nova_guia.Click
            AddTab("about:blank", TabControl1)
        End Sub

     
    quinta-feira, 13 de fevereiro de 2014 14:18
  • Substitua o método AddTab por este:

    Public Sub AddTab(ByRef URL As String, ByRef TabControl As TabControl)
    	Dim NewBrowser As New CustomBrowser
    	Dim NewTab As New TabPage
    	NewBrowser.Tag = NewTab
    	NewTab.Tag = NewBrowser
    	TabControl.TabPages.Add(NewTab)
    	NewTab.Controls.Add(NewBrowser)
    	NewBrowser.Dock = DockStyle.Fill
    	NewBrowser.Navigate(URL)
    	TabControl.SelectedTab = NewTab
    End Sub

    • Marcado como Resposta reinaldorojo sexta-feira, 14 de fevereiro de 2014 13:18
    quinta-feira, 13 de fevereiro de 2014 21:23
  • PUTZ! Perfeito, Guilherme!! Agora sim!!

    Muito obrigado pela ajuda e espero um dia ter um pouco de conhecimento como vocês pra também poder ajudar as pessoas como eu.

    Agradeço também ao Giovani por tentar ajudar!

    Grande abraço aos dois,

    Reinaldo

    sexta-feira, 14 de fevereiro de 2014 13:17