我找到了一些信息。 Microsoft Web Browser可以像这样获得NewWindow2,
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
但我需要WebBrowser。不是Microsoft Web浏览器。
有谁知道?
答案 0 :(得分:0)
在普通的webbrowser控件上执行此操作就像
Private Sub WebBrowser1_NewWindow(sender as Object, e as CancelEventArgs) _
Handles WebBrowser1.NewWindow
'code
End Sub
如果您需要或想要,您也可以导入Microsoft Web浏览器控件并使用它