2008-12-14 3 views

Répondre

0

Vous avez la NewWindow2 du raccordement des du (ancien activex) événement de contrôle du navigateur comme ceci:

Private Sub AxWebBrowser1_NewWindow2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) Handles AxWebBrowser1.NewWindow2 
    Dim frmWB As Form1 
    frmWB = New Form1() 

    frmWB.AxWebBrowser1.RegisterAsBrowser = True 
    e.ppDisp = frmWB.AxWebBrowser1.Application 
    frmWB.Visible = True 
End Sub 

Les détails peuvent être trouvés ici http://support.microsoft.com/?scid=kb%3Ben-us%3B311282&x=8&y=21

Questions connexes