Récupérer l'adresse URL d'une nouvelle fenetre ou popup

Question

Voila dans mon web bowser je peu contrler l'acces ^des popup et nouvelle fentre par les lignes de commandes suivantes :

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Dim rep As Integer

If (Slider1.Value = 1) Then
    rep = MsgBox("Une demande de Popup a été formulée, voulez vous l'afficher ?", vbYesNo + vbInformation, "Popup")
    
    If (rep = vbYes) Then
        Cancel = False
    Else
        Cancel = True
    End IfElseIf (Slider1.Value 0) Then Cancel TrueElseIf (Slider1.Value 0) Then Cancel False
End If

End Sub

le slider prenant 3 valeur possible ( je c c programmé comme un porc, c pasque je test pour le moment). Ainsi, je sais kan une novelle fenetre va souvrir mais je ne c pas a kelle adresse. Je pense ke le parametre ppDisp pourrai me la fournir mais je ne c pa comment !! une IDEE ???

Net1dsang · Answer

je précise pour ceux kil laurai po vu ke j'utilise un webbrowser !!

lpikachu58 · Answer

Si ta classe popup ne possède pas de propriété adresse t'es baisé, tu ne vas pas l'inventer s'il n'existe pas

be linux

cs_Jielde · Answer

j'ai chercher peandant un moment ce prob, et j'ai fini par  trouver une astuce.

tu laisse ouvrir le popup, ensuite tu pensse &#224; charger le popup dans un de tes control Webbrowser sur une autre form :
----------------------------------------------------------------
>>>>Form1
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = Form2.WebBrowserPOPUP.Object
end sub
----------------------------------------------------------------
>>>Form2
Private Sub WebBrowserPOPUP_OnToolBar(ByVal ToolBar As Boolean)
    IsPopup = True
End Sub

Private Sub WebBrowserPOPUP_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    If  IsPopup  = True Then 'si c'est un popup
        If WebBrowserPOPUP.ReadyState = 4 Then    'c'est en train de charger la page 
                                                                                   et non pas encore fini
            MsgBoxWebBrowserPOPUP.LocationURL
            
            Unload Me 'tu ferme la feuille charger
            Exit Sub
        End If
    End If
---------------------------------------------------------------------

et voila tu as l'URL de la feuille sans m&#234;me la lancer

cs_bidouille007 · Answer

Bonjour

Existe il un équivalent pour VB2008 ?

bidouille007

Récupérer l'adresse URL d'une nouvelle fenetre ou popup

4 réponses

Discussions similaires