除非注明,文章均为 战战如疯 原创,转载请保留链接: http://www./cat4/317.html,VBA交流群273624828。 在程序需要运行较长时间时加上一个进度条可能会显得更加高大上一些,这节我们来看下怎样制作进度条,这里介绍两种方法,一种是用标签控件结合文本框来实现进度条效果,一种是直接利用VBA的进度条控件。 下面来看第一种方法,其思路是以一个文本框做为白色背景,以一个标签控件覆盖于文本框之上,随着程序的运行不断调整标签控件的宽度来覆盖文本框就有了进度条的效果。在这里我又在文本框的中间加了一个标签来以数字形式显示进度。
上面就是一个简单的数学问题,总进程长度是文本框的长度w,总步数为n,则每运行一步标签控件长度需增加w/n。需要提前在属性窗口设置好Lable1的颜色,文本框的Enable属性要设成False,否则运行之前文本框会有个光标在闪,Lable2的BackStyle要选0,即透明,否则就把文本框遮住了。 上面是第一种方法第二种方法是直接利用VBA的进度条控件。初始的话工具窗中一般不显示,需要在附加控件中勾选“Microsoft ProgressBar Control”。
这个用起来就简单了,分别设置进度条的最大值为总步数、最小值为0,运行到哪一步就直接使Value等于该值即可,没啥好说的了。在属性窗体中通过Scrolling可以设置进行条的显示形式,是连续的还是隔断的。 本节示例文件下载:http://pan.baidu.com/s/1W8Aa。 |
|