高校问答蜡笔小新粤语电影:WebBrowser控件的问题
来源：百度文库 编辑：高校问答 时间：2024/04/28 20:32:29
用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
提示不支持该属性或者方法。