Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access开发平台

【Access进度条】平台进度条函数的使用

时 间:2019-02-11 13:04:06
作 者:张迪   ID:70235  城市:长沙
摘 要:针对初学者,关于平台进度条函数的使用。简单快捷,达到自己想要的效果。
正 文:

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

      首先,我们打开平台的帮助中心(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, "提示!"

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

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

Access快速开发平台QQ群 (群号:239158550)       access源码网店

最新评论 查看更多评论(2)

2019/2/16 16:44:12张迪
平台的封装好的好像是不支持的,这个需要自定义进度条了,然后调用进度条的left和top属性就可以调整位置了。

2019/2/14 16:25:03逍遥兔
用法知道了,谢谢。 不知道进度条的位置能否改变?

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助