Chapitre 1: Une page web
Page 1 sur 1
Chapitre 1: Une page web
Chapitre 1: Une page web
Bonjour, nous allons voir comment créer un navigateur web basique, il faut donc savoir que dans un navigateur web, il y a:
- Une barre d'adresse
- Un bouton "actualiser"
- Un bouton pour revenir en arrière
- Un bouton pour revenir en avant
- Un bouton pour revenir a la page d'accueil
- Un affichage de page web (WebBrowser)
Donc pour commencer, nous allons ouvrir Microsoft Visual Studio 2013, où il faudra créer un projet "Windows Form".
Nous avons deux onglets:
- Boîtes à outils
- Sources de données
Nous allons placer deux boutons l'un a coter de l'autre, en haut a gauche.
Vous pouvez redimensionner les boutons et la fenêtre.
Sur le bouton gauche nous allons marquer ceci: "<=", pour dire que l'utilisateur peut revenir une page en arrière.
Et pour celui de droite, nous allons marquer: "=>", pour dire que l'utilisateur peut revenir une page en avant.
Nous allons ajouter deux autre boutons, mais on va les modifiés pour obtenir ceci:
- Bouton:
Une fois les boutons ajoutés, cliquez une fois dessus.
Vous aurez en bas à droite les propriétés des boutons.
Cherchez la ligne:
"FlatStyle" et changez le "standard" en "flat".
Voilà les boutons ressemblerons aux boutons précédent.
Mettais un bouton a coter des deux autres, puis marquer ceci: "©", modifier le font pour plus voir le c.
Le deuxième nous allons mettre a droite, puis on va marquer ceci: "⌂".
Une fois les boutons mis, nous allons ajouter un textbox, entre les boutons.
Puis ajouter le "WebBrowser" dans la form.
Maintenant, coter design, fini, passons aux codes!
Cliquer deux fois sur le bouton "<=", un comme celui-ci, s'afficheras:
- Code:
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Donc, on voudrais, que le bouton retourne en arrière si il y a une page précédent.
Donc pour coder avec le webbrowser, nous allons marquer ceci:
"WebBrowser1.", une liste d'objets s'affiche, recherche ou marquer ceci:
- Code:
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- WebrBrowser1.GoBack() 'Voici le code pour revenir en arrière.
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Ensuite, retourner a la form, et double cliquer sur le bouton: "=>".
Pour aller a la page d'avant, même chose, sauf que c'est "GoFoward":
- Code:
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- WebrBrowser1.GoFoward() 'Voici le code pour revenir en avant.
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Maintenant pour le bouton: "©", nous allons utiliser le refresh de WebBrowser1.
- Code:
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- WebrBrowser1.Refresh() 'Voici le code pour actualiser la page.
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Une fois fait, il nous reste le bouton: "⌂", pour aller a la page d'accueil de l'utilisateur, qui utilise dans son navigateur par défaut.
- Code:
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- WebrBrowser1.GoHome() 'Voici le code pour actualiser la page.
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Maintenant, il nous reste le TextBox1, nous allons double cliquer dessus, mais une fois dans le code en haut vous aurai ceci:
- Propriété Code:
Cliquer sur le "Click" puis sélectionner "KeyPress".
Vous aurai ceci:
- Code:
- Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
- End Sub
- Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
Donc, quand on écrit dans le textbox, et on appuie sur "Entrée", la commande s’exécute!
Pour aller dans une page web nous allons utiliser ceci, voici un exemple qui va dans la page google:
- Code:
Mais nous voulons l'adresse que l'utilisateur a marquer dans le TextBox1, donc a la place de l'url,
nous allon marquer simplement ceci:
- Code:
- Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
- WebBrowser1.Navigate(TextBox1.Text) 'Donc le webbrowser va aller dans l'adresse, dans le textbox1.
- End Sub
- Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|