神马品牌网超级助手软件最新版:WebBrowser控件的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/02 12:06:55
用WebBrowser如何在新窗口中打开链接而不是在IE中打开
Private Sub WB_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Dim frm As frmBrowse
Set frm = New frmBrowse
frm.WB.Tag = "OpenNew"
Set newbrowser = frm.WB.WebBrowser
frm.Show
End Sub
那里有错误。
set newbrowser=frm.wb.webbrowser
提示不支持该属性或者方法。
Private Sub WB_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Dim frm As frmBrowse
Set frm = New frmBrowse
frm.WB.Tag = "OpenNew"
Set newbrowser = frm.WB.WebBrowser
frm.Show
End Sub
那里有错误。
set newbrowser=frm.wb.webbrowser
提示不支持该属性或者方法。