none
Créez un nouvel onglet avec un WebBrowser en appuyant sur un bouton "+" RRS feed

  • Question

  • Bonjour, je voudrai savoir comment créer un nouvel onglet qui va créer un Webbrowser dans ce nouvel onglet.

    J'ai essayé de mettre ce bout de code mais une erreur apparait :

    TabControl1.TabPages.Add("Nouvel Onglet" & TabControl1.Controls.Add(New WebBrowser))

    L'erreur marqué est : "Cette expression ne produit pas de valeur"

    Pourriez vous m'aidez en m'expliquant le code que vous avez écrit ;) !

    Merci ;) !

    mardi 5 janvier 2016 17:59

Réponses

  • Bonsoir,

    voici en image :

    Voici mon code :

        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Me.WebBrowser1.Navigate("www.google.fr")
        End Sub
    
        Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
            Me.TabControl1.TabPages(0).Text = Me.WebBrowser1.DocumentTitle
        End Sub
    
        Private Sub TabPage2_Enter(sender As System.Object, e As System.EventArgs) Handles TabPage2.Enter
            If TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1 Then
                Dim NewTab As New TabPage("Nouvel onglet")
                TabControl1.TabPages.Insert(TabControl1.TabPages.Count - 1, NewTab)
                TabControl1.SelectedTab = NewTab
                Dim web As New WebBrowser
                web.Navigate("www.google.fr")
                NewTab.Controls.Add(web)
                web.Dock = DockStyle.Fill
            End If
        End Sub
    End Class

    Quand vous cliquez sur le + , il y aura un nouveau ongle s’ouvrira (voir image) avec la page web.

    cordialement,

    • Marqué comme réponse Théo Hénon mardi 5 janvier 2016 21:06
    mardi 5 janvier 2016 20:01

Toutes les réponses

  • Bonsoir,

    voici en image :

    Voici mon code :

        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Me.WebBrowser1.Navigate("www.google.fr")
        End Sub
    
        Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
            Me.TabControl1.TabPages(0).Text = Me.WebBrowser1.DocumentTitle
        End Sub
    
        Private Sub TabPage2_Enter(sender As System.Object, e As System.EventArgs) Handles TabPage2.Enter
            If TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1 Then
                Dim NewTab As New TabPage("Nouvel onglet")
                TabControl1.TabPages.Insert(TabControl1.TabPages.Count - 1, NewTab)
                TabControl1.SelectedTab = NewTab
                Dim web As New WebBrowser
                web.Navigate("www.google.fr")
                NewTab.Controls.Add(web)
                web.Dock = DockStyle.Fill
            End If
        End Sub
    End Class

    Quand vous cliquez sur le + , il y aura un nouveau ongle s’ouvrira (voir image) avec la page web.

    cordialement,

    • Marqué comme réponse Théo Hénon mardi 5 janvier 2016 21:06
    mardi 5 janvier 2016 20:01
  • Merci Beaucoup ;)
    mardi 5 janvier 2016 21:16