vb webbrowser 在原窗口打开弹出新窗口的链接

代码1：

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Dim frm As Form1

Set frm = New Form1

frm.Visible = True

Set ppDisp = frm.WebBrowser1.object

End Sub

代码2：

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Cancel = True

WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href

End Sub

代码3：

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

On Error Resume Next

Dim frmWB As Form1

Set frmWB = New Form1

frmWB.WebBrowser1.RegisterAsBrowser = True

Set ppDisp = frmWB.WebBrowser1.object

frmWB.Visible = True

frmWB.Top = Form1.Top

frmWB.Left = Form1.Left

frmWB.Width = Form1.Width

frmWB.Height = Form1.Height

End Sub

代码4：这个最好用了

Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

PrivateSub Form_Load()

Set Web_V1 = WebBrowser1.Object

End Sub



PrivateSub Web_V1_NewWindow(ByVal URL AsString, ByVal Flags AsLong, ByVal TargetFrameName AsString, PostData As Variant, ByVal Headers AsString, Processed AsBoolean)

Processed =True

WebBrowser1.Navigate URL

End Sub