WebBrowser1_DocumentCompleted qui se répète plusieurs fois

Version imprimable

Bonjour

j'ai un petit problème qui me nargue, une aide de votre part serait bien apprécié.

sur chargement d'un webbrowser la fonction documentCompleted se répète plusieurs fois sans aucune actions de ma part

mon code est:
TSLLettre.Text = a
TSLChiffre.Text =1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Nav()
        Form1.TSSLEtat.Text = "En cour"
        Dim Adresse As String = "http://www.bloomberg.com/markets/companies/a-z/" & TSLLettre.Text & "/" & TSLChiffre.Text & "/"
 
        WebBrowser1.Navigate(Adresse)
 
    End Sub
 
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
                Dim bool As Boolean = True
 
 
 
        Form1.TSSLEtat.Text = "Terminé"
    End Sub

merci de vos suggestions
Mario

13/02/2014, 21h18
wallace1

Bonsoir mario,

Il faudrait voir dans quel contexte est appelée ta "Sub Nav" exactement ??

Simplement par un bouton, je le fait de cette façon car je désir recharger une nouvelle navigation en appuyant sut les labels mais pour l'instant ils sont désactivés.
Code:

1 2 3 4 5 6 7 8 9 Private Sub Navig_Click(sender As Object, e As EventArgs) Handles Navig.Click Nav() End Sub Private Sub TSLChiffre_Click(sender As Object, e As EventArgs) Handles TSLChiffre.Click IntChiffre += 1 TSLChiffre.Text = IntChiffre.ToString 'Nav() End Sub

13/02/2014, 21h40
Mario Rousson

j'ai vérifié et le sub Nav est lancé une seul fois et le documentcomplete fait au moins 3 tours

merci

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
    Sub Nav()
 
            Form1.TSSLEtat.Text = "En cours"
 
            Dim Adresse As String = "http://www.bloomberg.com/markets/companies/a-z/" & TSLLettre.Text
            WebBrowser1.Navigate(Adresse)
            'Abonnement au gestionnaire d'évènement
            AddHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaited)
            While Not pageLoaded
                Application.DoEvents()
            End While
            pageLoaded = False
    End Sub
 
    Private Property pageLoaded As Boolean = False
    Private Sub PageWaited(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            pageLoaded = True
            'Suppression de l'Abonnement au gestionnaire. Ainsi pas de répétitions !!
            RemoveHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaited)
 
            Form1.TSSLEtat.Text = "Terminé"
        End If
    End Sub

A+

13/02/2014, 23h37
Mario Rousson

Merci beaucoup Walace ça fonctionne à 100/100

comportement bizarre que je m'explique pas par contre

encore merci ...très apprécié

Mario
02/12/2016, 22h02
dark poulpo

salut très tard pour y répondre, mais ce comportement vient du fait que pour les scripts et autres qui se charge dans le header, il déclenche aussi cet événement.
03/12/2016, 17h00
Pol63

conseiller d'écrire un doevents ? sérieusement ?
cette instruction est à bannir !

en effet ca vient du fait que si la page contient des script ou des sous pages, elles sont chargées aussi, donc lèvent l'event aussi
par contre sur e dans l'event completed tu as des infos, donc tu peux savoir si c'est bien la page globale qui a levé l'event (e.url ou un truc dans le genre, à comparer avec ton url)
26/06/2022, 09h12
Mario Rousson

Quelques années plus tard hehehe!!!
Merci Pol63
je viens de tester ton post et ça fonctionne bien, et c'est plus simple:P
Code:

1 2 3 4 5 If e.Url.ToString = WB.Document.Url.ToString Then bla bla end if