Discussion :

[aus3004]

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

[yonpo]

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.

[achrefghanmi]

vous pouvez essayer cà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[aus3004]

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.

[yonpo]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aus3004]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

=)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

=)

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

[yonpo]

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.

[aus3004]

Salut

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

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 !!!

[yonpo]

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.

[aus3004]

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.