UC知道vb浏览器不弹出IE新连接永远在web1中显示
来源：百度知道 编辑：UC知道 时间：2024/05/17 06:30:09
当我用百度搜索的时候点击里面链接弹出IE
加上下面代码弹出自己的vb浏览器
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewWindow As Form1
Set NewWindow = New Form1
NewWindow.Show
Set ppDisp = NewWindow.WebBrowser1.Object
End Sub
那么如何才能使新链接始终保持在web1中显示呢？
希望有源代码 谢谢
加上下面代码弹出自己的vb浏览器
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewWindow As Form1
Set NewWindow = New Form1
NewWindow.Show
Set ppDisp = NewWindow.WebBrowser1.Object
End Sub
那么如何才能使新链接始终保持在web1中显示呢？
希望有源代码 谢谢
Public A As String
Private Sub Form_Load()
A = "www.baidu.com"
WebBrowser1.Navigate A
End Sub
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If A <> "www.baidu.com" Then WebBrowser1.Navigate URL
End Sub