自制进度条的设置方法

来源：互联网发布：男的变女的网络剧编辑：程序博客网时间：2024/05/01 04:42

自制进度条的设置方法:

在表单上分别加入容器控件（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

下面是运行后的效果图