ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Excel VBA > 如何获取IE浏览器的进度?

如何获取IE浏览器的进度?

作者:绿色风 分类: 时间:2022-08-18 浏览:89
楼主
wise
Q:如何获取IE浏览器的进度?
A:ALT+F11→插入模块→输入以下代码:
  1. Private Sub CommandButton1_Click()
  2. WebBrowser1.Navigate "http://exceltip.net/" '打开ET网站浏览器
  3. End Sub
  4. Private Sub UserForm_Initialize()
  5.     ProgressBar1.Max = 1000 '设置进度条的最大值和最小值
  6.     ProgressBar1.Min = 0
  7. End Sub
  8. Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
  9.     DoEvents
  10.     If Progress = -1 Or (Progress > ProgressMax) Then Exit Sub  '如果进度的值小于0或者进度条的值大于进度条的最大值,即超出了进度条的范围,则退出
  11.     If Progress > 0 And ProgressMax > 0 Then '如果进度的值大于0,并且进度条最大值也大于0
  12.        ProgressBar1.Value = Progress / ProgressMax * ProgressBar1.Max
  13.     End If
  14. End Sub

获取论坛进度.rar
2楼
亡者天下
主要是网速慢的时候有用吧!
3楼
qazwer168
加油啊****顶哦!!!!!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap