webbrowser 的一个高难问题

Question

两个WebBrowser，如何写代码才能使得WebBrowser1的弹出窗口在WebBrowser1显示，并且WebBrowser2的弹出窗口在WebBrowser1显示？ webbrowsr

Answer 1

我的代码'Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
'    Dim strURL As String
'    Set ppDisp = WebBrowser2.object
'    strURL = WebBrowser2.LocationURL
'    Debug.Print strURL
'End Sub
'Private Sub WebBrowser2_NewWindow2(ppDisp As Object, Cancel As Boolean)
'    Dim strURL As String
'    Set ppDisp = WebBrowser1.object
'    strURL = WebBrowser1.LocationURL
'    Debug.Print strURL
'End Sub

Answer 2

这个没什么高难Private WithEvents web As SHDocVwCtl.WebBrowser_V1Private Sub Form_Load()
Set web = WebBrowser1.Object
Me.WebBrowser1.Navigate "www.baidu.com"
Me.WebBrowser2.Navigate "www.baidu.com"
End SubPrivate Sub web_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
Processed = True
web.Navigate URL
End SubPrivate Sub WebBrowser2_NewWindow2(ppDisp As Object, Cancel As Boolean)
WebBrowser1.RegisterAsBrowser = True
Set ppDisp = WebBrowser1.Object
End Sub