Moteur de rendu html pour navigateur web.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.ScriptErrorsSuppressed = False 'TRES important, met le sinon t'auras des bugs
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        WebBrowser1.GoBack() 'bouton qui Navigue le contrôle System.Windows.Forms.WebBrowser vers la page précédente de l'historique de navigation, s'il en existe une.

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        WebBrowser1.GoForward() 'Bouton qui Navigue le contrôle System.Windows.Forms.WebBrowser vers la page suivante de l'historique de navigation, s'il en existe une.


    End Sub

    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click

        WebBrowser1.Navigate(" " & TextBox1.Text & " ") ' L'url de la page web est disponiblement écrivable par url clasique
        'En haut a gauche


    End Sub

    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
        Dim B = TextBox3.Text 'variable d'abréviassion 
        WebBrowser1.Navigate("https://www.google.be/#q=" & B & "") 'la page web est google mais, le mot écrit est la recherche voulue, donc a la fin d'un url de recherche il y a : .../#q= puis, a coté, c'est ce que l'utilisateur voudrait rechercher
        PictureBox6.Visible = False 'le boutton qui a servi a faire la recherche ne doit pas être visible pour ne pas géné la page web
        TextBox3.Visible = False ' de même pour la bare de recherche
        Me.Text = "" & B & "" 'la forme a le nom de la recherche de l'utilisateur


    End Sub

End Class