Discussion :

[Mario Rousson]

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 :

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

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

[wallace1]

Bonsoir mario,

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

[Mario Rousson]

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 :

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

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

[Mario Rousson]

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

merci

[wallace1]

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

[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

[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.

[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)

[Mario Rousson]

Merci Pol63
je viens de tester ton post et ça fonctionne bien, et c'est plus simple

Code :

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

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