Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [Tuto] Créer un navigateur Web ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 06:57 (2011)    Sujet du message: [Tuto] Créer un navigateur Web Répondre en citant

Pour ce tuto nous allons faire simple, on va ouvrir une nouvelles windows form et rajouter dedans:

un webBrowser (forcément
)
cinq boutons,
une comboBox
un toolStrip
et un statusStrip dans lequel on mettra une progressBar



Ce qui donnerais plus ou moins ceci:



Dans les propriété du webbrowser vous pouvez rajoutez une url de page d'acceuil,



À ce stade si vous débugger vous verrez déjà votre page d'accueil.

Passons au code proprement dit, dans un premier temps supprimez l'url que vous avez mis dans les propriétés du webbrowser et nommez les 5 boutons Bprecedent Bsuivant Benvoyer Bstop Brefresh pour avoir plus facile à les utiliser dans le code.

Ensuite pas de secret, j'ai suivit le tuto du site du zero, on va pas refaire le monde alors qu'il est déjà fait.
http://www.siteduzero.com/tutoriel-3-140631-tp-navigateur-web.html

J'ai modifié le statusStrip label du tuto du zero par une progressbarr plus esthétique a mon gout qu'un label qui dit "chargement" et "terminé".




  1. Public Class Form1  
  2.   
  3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  4.         Me.ComboBox1.Text = "http://www.google.com"  
  5.         Me.Benvoyer_Click(Nothing, Nothing)  
  6.   
  7.         Me.Bsuivant.Enabled = False  
  8.         Me.Bprecedent.Enabled = False  
  9.         Me.Bstop.Enabled = False  
  10.     End Sub  
  11.   
  12.     Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted  
  13.         Me.ToolStripProgressBar1.Value = "0"  
  14.         Me.Bstop.Enabled = False  
  15.         MeMe.ComboBox1.Text = Me.WebBrowser1.Url.ToString  
  16.     End Sub  
  17.     'Lorsque le chargement commence  
  18.     Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating  
  19.         'On active le bouton stop  
  20.         Me.Bstop.Enabled = True  
  21.         'On met le statut à jour  
  22.         Me.ToolStripProgressBar1.Value = "100"  
  23.   
  24.         If Me.WebBrowser1.CanGoForward Then  
  25.             Me.Bsuivant.Enabled = True  
  26.         Else  
  27.             Me.Bsuivant.Enabled = False  
  28.         End If  
  29.         If Me.WebBrowser1.CanGoBack Then  
  30.             Me.Bprecedent.Enabled = True  
  31.         Else  
  32.             Me.Bprecedent.Enabled = False  
  33.         End If  
  34.     End Sub  
  35.   
  36. #Region "Boutons de navigation"  
  37.   
  38.     Private Sub Benvoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Benvoyer.Click  
  39.         'Si il existe une adresse, on y va  
  40.         If Not Me.ComboBox1 Is Nothing Then  
  41.             Me.WebBrowser1.Navigate(ComboBox1.Text)  
  42.         End If  
  43.     End Sub  
  44.   
  45.     Private Sub Bprecedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bprecedent.Click  
  46.         'Va a la page précédente  
  47.         Me.WebBrowser1.GoBack()  
  48.     End Sub  
  49.   
  50.     Private Sub BT_SUIVANT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bsuivant.Click  
  51.         'Va a la page suivante  
  52.         Me.WebBrowser1.GoForward()  
  53.     End Sub  
  54.   
  55.     Private Sub Bstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bstop.Click  
  56.         'Desactive le bt stop et arrête le chargement du navigateur  
  57.         Me.Bstop.Enabled = False  
  58.         Me.WebBrowser1.Stop()  
  59.     End Sub  
  60.   
  61.     Private Sub Brefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brefresh.Click  
  62.         'Raffraichit le navigateur  
  63.         Me.WebBrowser1.Refresh()  
  64.     End Sub  
  65.   
  66. #End Region  
  67.   
  68.     Private Sub quitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitterToolStripMenuItem.Click  
  69.         Me.Close()  
  70.     End Sub  
  71. End Class  





Résultat de la première ébauche

:


Maintenant il ne vous reste plus qu'à chercher à optimiser ce code.

Résultat avec des onglet:



Il me reste des soucis de réinitialisation des onglet au clic mais j'ai une solution si je met les bouton dans les onglet.

Après solution:


_________________

Question : quand j'agrandie la form, les boutons restent a la meme taille et si je colle le web browser, je suis obliger de `mettre les boutons sur la petite barre en haut...

Réponse: if WindowState = FormWindowState.Maximized Then
button1.location = New Point(xx, xx)

etc etc..
pour le webBrowser le fait de le glisser dans la form le rend auto agrandissable
par contre c'est assez lourd à mettre en place tu devra procéder par test pour placer les bouton.

Sinon tu as une autre soluce ici

http://www.vb-helper.com/tutorial_sizing_forms.html


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 06:57 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com