1 2 3 4 5 6 7 8 9 10 11 12
|
Sub naviguer(ByVal adresse As String)
WebBrowser1.Navigate(New Uri(adresse)) 'connexion
AddHandler WebBrowser1.DocumentCompleted, New _ ' pas compris, c'est pour recup l'état de l'évent, un truc dans le genre
WebBrowserDocumentCompletedEventHandler(AddressOf charge) 'une fois chargé, il appel la fonction que j'ai appelé charge
End Sub
Private Sub charge(ByVal sender As Object, _
ByVal e As WebBrowserDocumentCompletedEventArgs) ' fonction charge en question
Dim webBrowser1 As WebBrowser = CType(sender, WebBrowser) 'jsais pas
MsgBox("coucou ") 'ce quelle fait
End Sub |