我想在导入数据时添加一个进度条，但我的VFP控件中没有这个控件，请大家给个控件

可以用自制进度条
http://blog.
效果不比VFP6.0的进度条差
也可以重新安装一个完整版的VFP6.0

[ 本帖最后由 bccn201203 于 2012-3-28 11:35 编辑 ]

用两个矩形框配以不同背景色，其中一个矩形框的长度根据需要动态改变，就形成了一个完美的进度条。

收到的鲜花

• TonyDeng 于 2012-03-28 20:03 送鲜花  10朵   附言：不错的思路！

如果出现SQL执行过程的情况，是不是就会变白板？

会~那肿么办？

[ 本帖最后由 TonyDeng 于 2012-3-28 20:32 编辑 ]

我按照2楼的指教做了一个表单，其中代码放到Init属性里，当导入数据时同时打开导入进度条表单，可是进度条不走动，而且进度条表单刚打开，蓝色条就要填满了，请问2楼朋友这是什么原因？

如果数据量过少，会出现你所述现象，也没必要用进度条。
使用进度条，主要是数据处理量比较大，等待时间较长时，用以显示进度，让用户心里有个数，数据处理到了什么地步。一般情况下数据处理量比较少时，没有必要使用进度条。
这种进度条数据处理量达到50万以上（如果数据处理步骤多，另当别论），才有明显的效果。

这是用计时器控制的进度条


[ 本帖最后由 bccn201203 于 2012-3-28 21:58 编辑 ]

今天将用测试过的进度条控件_therm的用法简单说说。

1.添加进度条控件
    你建立一个表单之后，遇到需要较长时间处理任务的时候，
总是希望有一个提示用户进度的工具。
    查找发现VFP提供了这样的工具，_therm.vcx。它不同于.ocx控件，
因此，不能使用菜单中工具和添加ActiveX控件的方法添加进度条。
    正确的添加方法是：
    (1)点击“表单控件”这个工具栏的“查看类”图标；
    (2)弹出一个快捷菜单，单击添加；
    (3)在安装了VFP的系统文件夹...\VFP98\FCC\
这个文件夹里找到可视类库“_therm.vcx”；
    (4)经过上述过程，我们就可以在“表单控件”
工具栏里看到出现_thermometer和_progressbar两个控件，
将_progressbar这个控件添加到表单，至此进度条正确添加完成。

2.正确使用进度条控件
    这个时候需要使用进度条。我们知道，进度条反映了任务处理的进度，
因此，我们必须知道任务的总数是多少，需要处理的进度如何表示，这些指
标如何在进度条控件中设置等问题。
先谈进度条的属性及方法。
    (1)进度条的属性
    ibasis：指定计算百分数时的基数。实际上就是指需要处理任务的总数。
    ipercentage：指定更新显示时的百分数完成量。实际上就是当前进度。
    iprogress：指定完成(iPercentage) 的百分数。通常这个值就是1=100%。
    (2)进度条的方法
    RESET 方法程序：
        初始化进度条。
        语法：RESET(m.ibasis)
        返回值：无
        参数：m.ibasis 指定从什么地方开始进行进度条显示。一般用0表示。
    Complete 方法程序：
        显示100%完整的进度。
        语法：Complete(m.cTask)
        返回值：无
        参数：m.cTask 指定过程完成时的显示。
    Update 方法程序
        更新进度。
        语法：Update(iProgress, cTask)
        返回值：无
        参数：
        iProgress 指定进程增量。
        cTask 指定需要显示的信息。   
    (3)举例说明：
    假设需要处理10万个数据，目的是从第1个数据到第10万个数据进行处理。
进度就是这样安排的：
    ibasis就是10万了，它表示需要处理的总数。
    iprogress就是1了，它表示完成处理的百分数为100%。
    Update过程输入1个参数，就是当前处理的数据号。
    这样一个简单的进度条示例就是：

THISFORM._progressbar1.RESET(0)
nCnt=0
nTotal=1E5
THISFORM._progressbar1.iBasis=nTotal
THISFORM._progressbar1.iProgress=1
FOR nCnt=1 TO nTotal
  THISFORM._progressbar1.UPDATE(nCnt)
ENDFOR

https://hi.bccn.net/space-67595-do-blog-id-2489.html

谢谢分享，加分加分