1482
社区成员
'顶部声明模块级事件对象
Dim WithEvents W As WebBrowser_V1
'这里的Web1是浏览器控件的名字噢。。你自己改下
Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set W = Web1.Object
End Sub
Private Sub W_NewWindow(ByVal URL As String, ByVal Flags As Long, _
ByVal TargetFrameName As String, PostData As Variant, _
ByVal Headers As String, Processed As Boolean)
W.Navigate URL
Processed = True
End Sub
'OK了!这样的话所有链接都在你自己的窗口中打开了