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 "导出成功！