Discussion :

[bubu92]

Bonjour a tous,

sous IE6 j'ai un soucis avec le WebBrowser. Je voulais faire un petit
navigateur ou toute les liens s'ouvrirait dans une meme fenetre.
J'ai trouvé un bout de code chez Microsoft pour afficher le lien dans une
nouvelle fenetre en utilisant l'evenement "NewWindow2" :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim frmWB As Form1
Set frmWB = New Form1
 
frmWB.WebBrowser1.RegisterAsBrowser = True
 
Set ppDisp = frmWB.WebBrowser1.Object
 
frmWB.Visible = True

j'ai essayé ça :

Code :

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

1
2
3
4
5
6
 
Form1.WebBrowser1.RegisterAsBrowser = True
 
Set ppDisp = Form1.WebBrowser1.Object
 
Form1.WebBrowser1.Refresh2

mais sans succès...

Je pensais pouvoir y arriver avec "BeforeNavigate2" mais celui-ci ne se
declenche pas lorsqu'il s'agit de liens externes ( target=_blank ).

[bubu92]

Pour ceux que ça pourrait aider, j'ai trouvé une "combine", il y a certainement
mieux, mais g pas trop l'temps.
J'ai crée un 2ème control Internet.
Dans l'evenement "NewWindow2" de "WebBrowser1" j'ai mis :

Code :

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

1
2
 
Set ppDisp = Form1.WebBrowser2.Object

Dans l'evenement "BeforeNavigate2" de "WebBrowser2" j'ai mis :

Code :

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

1
2
3
 
Cancel = True
WebBrowser1.Navigate URL

Comme ça tout les liens meneront toujours a "WebBrowser1".