webbrowser 的一个高难问题

[Treenewbee]

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

[Treenewbee]

看来确实有难度。

[bcrun]

可能是帖子吸引力不够吧。而且分数还挺低，类似情况下一般见识人肯定优先选择高分的。 另外，你提问时也没能给出相应的代码做附加解释。

[Treenewbee]

没有可用分了

[Treenewbee]

我的代码

'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

[Treenewbee]

谁能帮帮我呢？

[hpygzhx520]

这个没什么高难

Private WithEvents web As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Set web = WebBrowser1.Object
Me.WebBrowser1.Navigate "www.baidu.com"
Me.WebBrowser2.Navigate "www.baidu.com"
End Sub

Private 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 Sub

Private Sub WebBrowser2_NewWindow2(ppDisp As Object, Cancel As Boolean)
WebBrowser1.RegisterAsBrowser = True
Set ppDisp = WebBrowser1.Object
End Sub