当前位置: 首页 > article >正文

VBA进度条ProgressForm1

        上一章《VBA如何使用ProgressBar进度条控件》介绍了ProgressBar控件的使用方法,今天我给大家介绍ProgressForm1进度条的使用方法,ProgressForm1是集成ProgressBar控件和Label控件的窗体,可以同时显示进度条和百分比,如下图:

一、使用方法

     ProgressForm1.UpdateProgress(MaxValue, CurrentValue)
     MaxValue 表示最大步数,CurrentValue 表示当前步数。

二、使用演示

    ProgressForm1进度条使用演示,代码如下:

Sub Demo_ProgressForm1()
'
' ProgressForm1进度条使用演示
'
' 通过动态调节ProgressBar控件和Label控件的值显示进度条和百分比,仅适用于32位版本的Office。
'
' 调用方法:ProgressForm1.UpdateProgress(MaxValue, CurrentValue)
' MaxValue 表示最大步数,CurrentValue 表示当前步数。
'Application.ScreenUpdating = False    ' 禁用屏幕更新' 创建并显示进度条窗体Dim progForm As New ProgressForm1progForm.Show 0     '打开窗体(不暂停)Dim MaxValue As LongDim CurrentValue As LongMaxValue = 100 ' 设置最大步数为100Dim i As LongFor i = 1 To 10' 这里执行你的任务代码...Application.Wait (Now + TimeValue("0:00:01"))   ' 模拟执行延时CurrentValue = CurrentValue + 10progForm.UpdateProgress MaxValue, CurrentValue    ' 更新进度条Next iApplication.Wait (Now + TimeValue("0:00:01"))   ' 延时1秒以显示完整进度Application.ScreenUpdating = True    ' 启用屏幕更新Unload progForm   '关闭窗体MsgBox "执行完毕!", vbInformation, "提示"End Sub
三、下载地址

      点击下方地址可下载ProgressForm1窗体文件,在VBA编辑窗中导入即可直接使用,内附使用方法。

      下载地址:https://download.csdn.net/download/bigtoothcat/90946058

四、兼容性问题

       如果你尝试在64位版本的Office中使用ProgressBar控件,很可能会出现下图的错误提示:“无法加载这个对象,因为它不适用于这台计算机。”,这是因为ProgressBar控件只适合在32位的Office中运行,所以对于使用了该控件的程序存在向后兼容的问题。

       下一章, 我将向大家介绍如何在VBA中设计模拟进度条,模拟进度条不存在兼容的问题,在任何版本的Office中都可以运行。

http://www.lryc.cn/news/2404950.html

相关文章:

  • 行为型设计模式之Interpreter(解释器)
  • 深入解析 CAS 操作
  • vue3+TS+eslint9配置
  • 【bug】Error: /undefinedfilename in (/tmp/ocrmypdf.io.9xfn1e3b/origin.pdf)
  • HarmonyOS5.0——CodeGenie:鸿蒙生态的AI编程革命​
  • 【Dv3Admin】系统视图字典管理API文件解析
  • 免费 SecureCRT8.3下载、安装、注册、使用与设置
  • Redis :String类型
  • 两种Https正向代理的实现原理
  • 第18节 Node.js Web 模块
  • 网络爬虫一课一得
  • LeetCode--24.两两交换链表中的结点
  • 嵌入式SDK技术EasyRTC音视频实时通话助力即时通信社交/教育等多场景创新应用
  • IDEA集成JRebel插件,实现实时热部署
  • 1-3 Linux-虚拟机(2025.6.7学习篇- mac版本)
  • 如何打造一款金融推理工具Financial Reasoning Workflow:WebUI+Ollama+Fin-R1+MCP/RAG
  • mybatis的if判断==‘1‘不生效,改成‘1‘.toString()才生效的原因
  • 【试卷篇】Spring面试试卷题
  • 通过阿里云 DashScope API 调用通义千问
  • Go 中 map 的双值检测写法详解
  • 大故障:阿里云核心域名爆炸了
  • 解决Zotero翻译插件Zotero PDF Translate无法正常翻译
  • 【Latex】Windows/Ubuntu 绘制 eps 矢量图通用方法(drawio),支持插入 Latex 数学公式
  • Vue---vue使用AOS(滚动动画)库
  • 十(1). 强制类型转换
  • 从npm库 Vue 组件到独立SDK:打包与 CDN 引入的最佳实践
  • rknn优化教程(一)
  • uniapp Vue2 获取电量的独家方法:绕过官方插件限制
  • 【统计方法】树模型,ensemble,bagging, boosting
  • 【选配电脑】CPU核显工作机控制预算5000