navegador com abas - abrir EM nova aba já selecionada

Question

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.

Answer 1

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.

Answer 2

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

 

Answer 3

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

Answer 4

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