Question

关于VB WebBrowser 模拟浏览器

为什么用WebBrowser 写的浏览器，输入地址可以在WebBrowser控件里显示，如果点击的话就会跳出来用系统默认的浏览器显示。怎么才能无论怎么操作都在WebBrowser里显示？

在线等答案。。。。。。

Answer 1

加上这个就行
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.object
frmWB.Visible = True
End Sub

追问

能不能只在一个窗体里webbrowser 控件里显示??

Answer 2

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NFrm As New Form1
NFrm.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = NFrm.WebBrowser1.Object
NFrm.Visible = True
End Sub

追问

不太理解，能加上注释吗？

追答

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
'事件在 打开新窗口前触发
Dim NFrm As New Form1 '创建新到窗体
NFrm.WebBrowser1.RegisterAsBrowser = True ‘新窗体参与参与窗口名称解析
Set ppDisp = NFrm.WebBrowser1.Object '打开到地址传递到新窗体
NFrm.Visible = True ’显示新窗体
Cancel =true ‘禁止本窗口打开新到其他窗口
End Sub