Créer un navigateur Web multi-onglet

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

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 , 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    :

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

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

  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 .
on peut aussi modifier la propriété du webbrowser scriptErrorSupressed, afin que les erreurs ne s'affichent pas

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  :

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

ON SE RETROUVE BIENTOT POUR LA SUITE

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 .

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

Serais-tu terminer se tuto ?

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