Forum de Fandeonepiece2

Bon dev :)


    Créer un navigateur Web multi-onglet

    Partagez
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Créer un navigateur Web multi-onglet

    Message par Aze (admin) le Lun 23 Juin - 13:59

    bonjour,
    aujourd'hui on se retrouve, pour un grand tutoriel, comment créer un navigateur web multi-onglet Smile

    Sommaire


     _ 1) Interface
     _ 2) Codage

    1) Interface


     _ il nous faut tout d'abord une barre de gestion, en haut, et on y met 6 picturebox (25x25 px transparente en fond) et 2 textbox.
     _ ensuite on a le TabControl, le contrôle principal de notre form, on n'y met aucun TabPage.
     _ et pour finir, on a la 2ème barre de gestion, elle, pour les onglets.


    2) Codage

    tout d'abord nous allons créer une fonction, qui nous permettra, de créer des onglets, sans avoir a retaper une tonne de code a chaque fois Smile, mais avant, nous allons crée une variable, qui va nous servir tout au long de ce tutoriel :

    donc en dehors d'un sub, vous créez une variable de type integer, égal a 0, qui s'appel "nombre_de_tab" :
    Code:
    Dim nombre_de_tab As Integer = 1

    on va créer notre fonction, avec un sub. donc on crée un sub et on l'appel "add_onglet" :
    Code:
    Sub add_onglet()

    End Sub

    maintenant on va créer un onglet que l'on va appeler "tabPage":
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
    End Sub

    ensuite, on va modifier sa propriété Text, et on va mettre "Nouvel Onglet" :
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
    End Sub

    on crée maintenant un WebBrowser qu'on nomme "webbrowser", étonnant  Razz  :
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
       Dim webbrowser As WebBrowser = New WebBrowser
    End Sub


    ensuite, on le fait aller a la page d’accueil :
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
       Dim webbrowser As WebBrowser = New WebBrowser
       webbrowser.Navigate("http://www.google.fr")
    End Sub

    ensuite, on lui fait prendre toute la place dans l'onglet (on le fait après, car comme ça la page a plus de temps pour charger Wink) :
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
       Dim webbrowser As WebBrowser = New WebBrowser
       webbrowser.Navigate("http://www.google.fr")
       webbrowser.Dock = DockStyle.Fill
    End Sub

    on ajoute le webbrowser a l'onglet :
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
       Dim webbrowser As WebBrowser = New WebBrowser
       webbrowser.Navigate("http://www.google.fr")
       webbrowser.Dock = DockStyle.Fill
       tabPage.Controls.Add(webbrowser)
    End Sub

    ensuite, on ajoute l'onglet au tabcontrol : 
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
       Dim webbrowser As WebBrowser = New WebBrowser
       webbrowser.Navigate("http://www.google.fr")
       webbrowser.Dock = DockStyle.Fill
       tabPage.Controls.Add(webbrowser)
       TabControl1.TabPages.Add(tabPage)
    End Sub

    et maintenant on va se servir de la variable "nombre_de_tab", pour mettre notre nouvel onglet au premier plan :
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
       Dim webbrowser As WebBrowser = New WebBrowser
       webbrowser.Navigate("http://www.google.fr")
       webbrowser.Dock = DockStyle.Fill
       tabPage.Controls.Add(webbrowser)
       TabControl1.TabPages.Add(tabPage)
       TabControl1.SelectedIndex = nombre_de_tab
    End Sub

    et on va ajouter 1 a "nombre_de_tab" :
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
       Dim webbrowser As WebBrowser = New WebBrowser
       webbrowser.Navigate("http://www.google.fr")
       webbrowser.Dock = DockStyle.Fill
       tabPage.Controls.Add(webbrowser)
       TabControl1.TabPages.Add(tabPage)
       TabControl1.SelectedIndex = nombre_de_tab
       nombre_de_tab += 1
    End Sub

    et pour finir, nous allons ajouter un événement, a notre webbrowser, Document_Completed :
    Code:
    Sub add_onglet()
       Dim tabPage As TabPage = New TabPage
       tabPage.Text = "Nouvel onglet"
       Dim webbrowser As WebBrowser = New WebBrowser
       webbrowser.Navigate("http://www.google.fr")
       webbrowser.Dock = DockStyle.Fill
       tabPage.Controls.Add(webbrowser)
       TabControl1.TabPages.Add(tabPage)
       TabControl1.SelectedIndex = nombre_de_tab
       nombre_de_tab += 1
       AddHandler webbrowser.DocumentCompleted, AddressOf webBrowser_document_completed
    End Sub

     Shocked une erreur ! aie !
    non, je rigole, c'est pas grave, on va la corriger par la suite, c'est car le sub "webBrowser_document_completed" n'existe pas Wink.
    on peut aussi modifier la propriété du webbrowser scriptErrorSupressed, afin que les erreurs ne s'affichent pas Smile

    maintenant, on va faire, pour qu'un onglet s'ajoute automatiquement, au lancement de notre form :
    Code:
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            add_onglet()
        End Sub

    on va apprendre, maintenant, a créer les actions de nos boutons, mais tout d'abord je vais vous expliquer les deux lignes de codes supplémentaires, par rapport, aux boutons d'un navigateur simple Smile :
    Code:
    Dim tabpage As TabPage = TabControl1.SelectedTab
    Dim webBrowser As WebBrowser = tabpage.Controls(0)

    1ère ligne : on va créer une variable, qui sera égale a l'onglet sélectionné, donc, quand on modifiera ou quand on obtiendra des propriété de cette variable, c'est comme si l'on modifiais ou que l'on obtenais des propriétés de l'onglet sélectionné.

    2ème ligne : on va créer une variable, qui sera égale au webbrowser de l'onglet sélectionné, donc, quand on modifiera ou quand on obtiendra des propriété de cette variable, c'est comme si l'on modifiais ou que l'on obtenais des propriétés du webbrowser de l'onglet sélectionné.

    J'espère que vous avez a compris ce code, car on va s'en servir tout au long de ce tutoriels Wink

    ON SE RETROUVE BIENTOT POUR LA SUITE Smile
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    Re: Créer un navigateur Web multi-onglet

    Message par Ghost Eagle le Mar 24 Juin - 11:59

    Salut,

    Super tuto ! Mais on attend la suite car là j'ai bloqué au niveau de l"erreur du
    Code:
      AddHandler webbrowser.DocumentCompleted, AddressOf webBrowser_document_completed
    Je sais pas comment faire pour générer le Sub .
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: Créer un navigateur Web multi-onglet

    Message par Aze (admin) le Mar 24 Juin - 16:11

    bonjour,
    j'ai dit que c'était pas grave, et que l'on allait résoudre l'erreur plus tard x)
    sinon, pour corriger l'erreur, tu met ce code en dehors d'un sub :
    Code:
    Sub webBrowser_document_completed(sender As Object, e As EventArgs)

    End Sub

    cordialement
    avatar
    TheMonax !

    Messages : 333
    Date d'inscription : 06/05/2014
    Age : 18

    Re: Créer un navigateur Web multi-onglet

    Message par TheMonax ! le Mar 11 Nov - 19:56

    Serais-tu terminer se tuto ?
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: Créer un navigateur Web multi-onglet

    Message par Aze (admin) le Mar 11 Nov - 20:30

    bonsoir,
    je l'avais oublié, 
    mais dsl, pour le moment, j'ai plus la motivation pour le faire dsl Sad (voir mon post sur le sujet de Skift OS)
    cordialement

    Contenu sponsorisé

    Re: Créer un navigateur Web multi-onglet

    Message par Contenu sponsorisé


      La date/heure actuelle est Mar 22 Aoû - 4:41