[vb.net2008] WebBrowser1 NewWindow

Version imprimable

salut,

je ne sais pas comment faire ca en .net

Code:

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:

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

30/01/2009, 21h44
tomlev

Code:

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)...
31/01/2009, 02h27
bailamos

Citation:

Envoyé par tomlev

Code:

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

Code:

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

31/01/2009, 04h43
tomlev

Citation:

Envoyé par bailamos

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 8O)
http://social.msdn.microsoft.com/For...-b07d2d6ca9fd/ (traduction en VB.NET du lien précédent)