Créer une simple progressbar dans un WebBrowser

Bonjour, je débute en vb depuis quelques jours.
Je suis en train de créer un projet commercial nommé Ovix, qui est un navigateur Internet très spécial.

Après avoir cherché dans une vingtaine de sites, je n'ai toujours pas trouvé un tuto qui explique pas à pas comment créer une progressbar dans un webbrowser.

Je vous demande de l'aide pour m'expliquer quels controls utiliser et quels codes à quels endroits.

PS: je suis Xtrème débutant

Bonjour,

Pour connaître l'état d'avancement d'un WebBrowser, utilise l'événement ProgressChanged. A toi d'écrire le code pour afficher la progression dans un ProgressBar.

vous pouvez essayer cà;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public taille As Integer 'c'est a l'interieure de votre class ' par la suite je suppose que vous avez un button qui declenche la progression 'et je fait taille=1000 ProgressBar1.Minimum = 0 ProgressBar1.Maximum = taille ProgressBar1.Value = 0 ProgressBar1.Step = 1   'la progression maintenant For x = 1 To taille ProgressBar1.PerformStep() If ProgressBar1.Value = ProgressBar1.Maximum Then Label1.Visible = True End If Next

---

:alerte::alerte::alerte::alerte::alerte::alerte::alerte: vous devez glisser un progress bar dans votre fenetre avant de commencer
bonchance

Merci pour votre aide mais je débute vraiment en vb et je pige que dalle !

Pour le code d'achrefghanmi je pense pas que c'est la solution mais pour ProgressChanged ca doit être surement ça.

Le problème est que je ne sais pas comment détécter le chargement de la page.

Si quelqu'un pouvait me faire un petit tuto vite fait je lui serais éternelement reconnaissant.

8O

Salut,

Pour naviguer vers une page web, il faut utiliser la méthode Navigate:

Code:

---

WebBrowser.Navigate("Ton Url")

---

Cela déclenche l'évènement ProgressChanged du WebBrowser.
Il n'y a pas de progressbar intégré au WebBrowser. Il faut en ajouter un sur ton formulaire.

Pour afficher la progression du chargement de la page:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Dim Progress As Integer = e.CurrentProgress Dim ProgressMax As Integer = e.MaximumProgress Dim Pourcent As Short   If ProgressMax <> 0 Then   On Error Resume Next ProgressBar.Maximum = ProgressMax   If Not Progress < 0 Then   ProgressBar.Value = Progress   End If   Pourcent = Fix((Progress / ProgressMax) * 100)   If Pourcent > 100 Then   Pourcent = 100   End If   Else   ProgressBar.Value = 0     End If

---

Merci pour votre aide.

J'ai déplacé la progressbar sur mon form en dessous de mon webbrowser et j'ai rentré le code

Mias il y a des petites erreurs dans le code :

Code:

---

1 2	Dim Progress As Integer = e.CurrentProgress Dim ProgressMax As Integer = e.MaximumProgress

---

=)

Citation:

---

Le "e" n'est pas décaré

---

Code:

---

1 2	ProgressBar.Maximum = ProgressMax ProgressBar.Value = Progress

---

=)

Citation:

---

Une référence à un membre non partagé requiert une référence d'objet.

---

Citation:

---

Envoyé par aus3004

Mais il y a des petites erreurs dans le code :

Dim Progress As Integer = e.CurrentProgress
Dim ProgressMax As Integer = e.MaximumProgress

=) Le "e" n'est pas décaré

ProgressBar.Maximum = ProgressMax
ProgressBar.Value = Progress

=) Une référence à un membre non partagé requiert une référence d'objet.

---

Tu dois placer ce code dans l'évènement progressChanged du WebBrowser. e est un paramètre de cet évènement.:roll:

Salut

J'ai écris tout le code dans la propriété Progresschanged du webbrowser
mais j'ai maintenant l'erreur :

Citation:

---

Une référence à un membre non partagé requiert une référence d'objet.

---

sur "ProgressBar.Maximum" et "ProgressBar.Value".

Plus que cette erreur à corriger et c'est bon !!!

A la place de ProgressBar, il faut que tu mette le nom de ton ProgressBar tel qu'il est écrit dans les propriétées.

Excusez-moi pour cet oublie honteux, sinon cela marche parfaitement, merci à tous.

Si vous avez des idées pour l'amiliorer n'hesitez pas à m'en faire part.

:D