Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
On Error Resume Next
Cancel = True '禁止弹窗和打开新窗口
End Sub或者要弹 也不要弹出来 (把他限制一下 别到处乱弹)也可以把弹出内容像现在的浏览器一样 只在一个窗体里面 谢谢!
On Error Resume Next
Cancel = True '禁止弹窗和打开新窗口
End Sub或者要弹 也不要弹出来 (把他限制一下 别到处乱弹)也可以把弹出内容像现在的浏览器一样 只在一个窗体里面 谢谢!
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
End Sub
Private Sub Web_V1_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
WebBrowser1.Navigate URL
End Sub