Discussion :

[bailamos]

salut,

je ne sais pas comment faire ca en .net

Code :

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

1
2
3
4
5
6
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form2
Set frm = New Form2
Set ppDisp = frm.WebBrowser1.Object
frm.Show
End Sub

car ce code ne function pas

Code :

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

1
2
3
4
5
6
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        Dim frm As Form2
        frm = New Form2
        sender = frm.WebBrowser1.Object
        frm.Show()
    End Sub

merci

[tomlev]

Code :

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

Set ppDisp = frm.WebBrowser1.Object

Qu'est-ce que cette ligne (ou son équivalent VB.NET) est supposée faire ? Ca n'a pas de sens d'attribuer une valeur à un paramètre de la méthode (sauf s'il est ByRef, mais ce n'est pas le cas)...

[bailamos]

Code :

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

Set ppDisp = frm.WebBrowser1.Object

Qu'est-ce que cette ligne (ou son équivalent VB.NET) est supposée faire ? Ca n'a pas de sens d'attribuer une valeur à un paramètre de la méthode (sauf s'il est ByRef, mais ce n'est pas le cas)...

cette ligne c'est pour ouvrire les nouvelle fenetre dans
frm.webbrowser1.object


merci

[bailamos]

Code :

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

1
2
3
4
5
6
7
8
    Private Sub Webbrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        Dim NewURL As String = CType(sender, Windows.Forms.WebBrowser).StatusText
        Dim myfrm As New Form2
 
        e.Cancel = True
        Form2.Show()
        Form2.WebBrowser1.Navigate(NewURL)
    End Sub

ce code fonctione juste quand je clique mais quand c'est un windows.open'' ca ne marche pas

merci

[tomlev]

ce code fonctione juste quand je clique mais quand c'est un windows.open'' ca ne marche pas

ben non... ça utilise le texte de la status bar, donc quand tu cliques sur un lien ça marche parce que la status bar affiche l'URL, mais pour window.open la status bar n'affiche rien...

Je dois dire que je vois pas trop comment régler le problème... bizarre qu'il n'y ait pas un NewWindowEventArgs avec l'URL

Il y a peut-être moyen de bidouiller avec la propriété ObjectForScripting, mais je vois pas trop comment...

EDIT: j'ai trouvé quelques liens sur le sujet :
http://vbcity.com/forums/topic.asp?tid=145280 (solution assez simple)
http://connect.microsoft.com/VisualS...dbackID=115195 (faut s'accrocher )
http://social.msdn.microsoft.com/For...-b07d2d6ca9fd/ (traduction en VB.NET du lien précédent)