access函数_Access快速开发平台进度条函数的使用

    在我们导入导出等等一系列操作时，总是会频繁的用到进度条，有时候一般的进度条不能保证太多的功能，自定义一个又太繁琐，所以今天跟大家探讨一下平台进度条函数的使用，简单快捷好用。

    首先，我们打开平台的帮助中心(http://www.accessgood.com/help/Main.html)，找到通用进度条的说明进行初步学习一下：

        

    一般进度条的使用，在这里就不说了，今天主要讲一下平台进度条的使用，那么我们按照步骤首先进行声明：    Dim clsPB As PopupProgressBar         '进度条控件和两个长整型变量
          Dim lngI  As Long
          Dim lngJ  As Long

    然后开始在相应位置使用：

   Set clsPB = CreateInstance("PopupProgressBar")              '创建一个进度条clsPB.PercentFormat = "0%"                                          
    clsPB.StatusText = "正在导出..."
    clsPB.Max = 1
    clsPB.SubStatusText = "正在导出XXXX的内容…"
    clsPB.SubMax = 6

    平台进度条的属性在帮助中心中有很详细的说明，这里就不一一介绍了，大家可以对照使用。可以看到我这里把主进度条的最大值设置为了1，子进度条的最大值为6，也就是当子进度条执行到6的最大值后，主进度条变为1，也就是达到100%。

    平台示例中用了两个For循环来演示，而我们实际过程中则是在需要的时候展示相应的内容。比如我需要在导出第一个内容时显示导出电影名称的内容，那我们则可以在导出动作前写上：

    clsPB.SubStatusText = "正在导出电影名称的内容…"

    然后在导出动作完成后将subvalue的值设为1(这里是第一个动作所以设置1)：

     clsPB.SubValue = 1

    此时，主进度条还未完成，所以主进度条的值不需要进行操作。

    以此类推，可以在后续的动作中全都设置好。最后，在最后一个动作完成时，主进度条和子进度条的值同时达到最大值：

     clsPB.SubValue = 6
     clsPB.Value = 1

     随后，关闭进度条并弹出提示：

     clsPB.CloseProgressBar

     MsgBox "导出成功！", vbInformation, "提示！"

    可以发现整个过程没有用到那两个长整型变量，所以我们在这里可以省略不写。如果需要用到循环的话，则需要写上，然后参考一下平台的示例，将代码添加到相应位置即可。

    这样，一个简单快捷功能完善的进度条就做好了，是不是很简单呢？快来动手试一下吧。 

- End - 推荐阅读 快速开发《财务管理系统》  学课程得软件。学员参加本课程学习，可获得财务管理系统源代码，立即投入到实际工作中。【 详情>> 】   Access专家课堂 是Access数据库爱好者提升技能的专业课堂，由微软最有价值专家张志创办，课堂有不少的免费课程，可通过电脑或微信学习。【 详情>> 】   Access软件作品  十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【 详情>> 】   从Excel到Access数据库  为广大Excel用户了解、学习Access数据库开设的一个实用课程，侧重于数据统计分析。【 详情>> 】   Access每天3分钟  视频课程共50集，Access的基础知识并结合示例详细讲解，每集视频只有短短几分钟，学员可以利用碎片化的时间，每天进步一点点【 详情>> 】   张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】