Rapport de message :*
 

Re: WebBrowser

Titre du sujet : Re: WebBrowser
par myDearFriend! le 26/03/2008 21:49:22

Bonsoir PowerPlus,

J'ai déjà été confronté à cette situation. Je me souviens qu'après de multiples recherches sur le Net pour trouver une solution, les propositions que j'avais testées, avaient échouées chez moi...

J'avais finalement adopté un système très simple qui se résume au code suivant :

Option Explicit
'On utilise une variable de niveau module (en entête) pour passer sa valeur entre plusieurs procédures
Dim UrlEnCours As String

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    'On empêche la création d'une autre fenêtre Web
    Cancel = True
    'On force le WebBrowser à afficher l'Url cible
    WebBrowser1.Navigate UrlEnCours
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    'On mémorise l'Url cible
    UrlEnCours = Text
End Sub


Tu trouveras ci-joint un rapide exemple mettant ce code en pratique.

Cet exemple affiche une page Web (prise au hasard ) et dont l'Url est la suivante : mDF MFCmultiples
Si tu affiches cette page dans Internet Explorer et que tu cliques sur le logo "New Version 5.0" (en haut et à droite de la page), une autre fenêtre IE se crée pour afficher la suite...

Dans l'exemple joint, la même chose force l'ouverture du lien dans l'unique WebBrowser comme tu le souhaites.

En espérant t'avoir aidé...

Cordialement,