自制进度条的设置方法

最新推荐文章于 2020-12-08 13:59:24 发布

lygcw9602

最新推荐文章于 2020-12-08 13:59:24 发布

阅读量2.6k

点赞数

分类专栏：原创 vfp-自定义方法文章标签：工具

本文链接：https://blog.csdn.net/lygcw9602/article/details/7241039

版权

原创同时被 2 个专栏收录

21 篇文章 0 订阅

订阅专栏

vfp-自定义方法

11 篇文章 0 订阅

订阅专栏

本文介绍如何在表单中实现并优化自定义进度条的功能。通过设置容器控件和标签控件的属性，利用循环体内的条件判断来动态调整进度条宽度，实现数据处理过程的可视化。此方法简便易用，适用于处理大量数据时的进度反馈。

摘要由CSDN通过智能技术生成

自制进度条的设置方法:

在表单上分别加入容器控件（Container1）及标签控件（Label1）各一个。
容器控件属性设置如下：
BackColor=Rgb(255,255,255),SpecialEffect=1,Width=202
标签控件属性设置如下：
BackColor=Rgb(0,0,255)，Caption=""，Left=Container1.Left+1，Width=0，TOP=Container1.TOP+1,HEIGHT=Container1.HEIGHT-2
上述两控件的位置，随意放置；用布局工具栏调整容器及标签控件的前后位置，容器控件位置置后，标签控件位置置前。
具体代码如下：
    IF THISFORM.LABEL1.WIDTH<=INT(I*200/NUM)
       THISFORM.LABEL1.WIDTH=INT(I*200/NUM)
    ELSE
       THISFORM.LABEL1.WIDTH=0
    ENDIF
说明：1、上述代码必须放在循环体内使用，具体放在那个事件中，根据需要而定。
　　　2、I（I>0）为循环体的初始值，NUM为循环体的最大值
　　　3、当数据记录处理接近100万时才能达到明显的效果。
          4、具体细节自定，如百分比设置：80%
　　　5、优点是简单易用，便于维护免去用VFP的ActiveX控件的诸多不便之处。

　　　6、验证方法：
NUM=1000000
FOR I=1 TO NUM
    IF THISFORM.LABEL1.WIDTH<=INT(I*200/NUM)
       THISFORM.LABEL1.WIDTH=INT(I*200/NUM)
    ELSE
       THISFORM.LABEL1.WIDTH=0
    ENDIF
ENDFOR