方法:
WebBrowser1.Navigate "网址/文件"Browser1.GoBack '回退 ' }--->若无上一页/下一页时使用会产生错误(使用前最好用 On error resume next
Browser1.GoForward '前进 /Browser1.Refresh '刷新
事件:
Browser1_StatusTextChange(ByVal Text As String) '状态栏文本改变,参数text为新值Browser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As ong) '页面打开进度
Browser1_DownloadComplete() '下载完毕
Browser1_DocumentComplete(ByVal pDisp As Object, url As Variant) '页面下载完毕
Browser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) '打开链接前发生
WebBrowser1.Navigate "网址/文件"Browser1.GoBack '回退 ' }--->若无上一页/下一页时使用会产生错误(使用前最好用 On error resume next
Browser1.GoForward '前进 /Browser1.Refresh '刷新
事件:
Browser1_StatusTextChange(ByVal Text As String) '状态栏文本改变,参数text为新值Browser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As ong) '页面打开进度
Browser1_DownloadComplete() '下载完毕
Browser1_DocumentComplete(ByVal pDisp As Object, url As Variant) '页面下载完毕
Browser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) '打开链接前发生
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货