在VFP6.0编程中，显示程序执行过程的百分比进度条。如何实现？

Question

请问：
如何才能实时显示，VFP在执行时用进度条正确的显示出来？
请各位高手赐教！

Answer 1

1、点击VFP的系统菜单“工具”－＞“选项”，调出选项对话匡后选择“控件”页，再选择ActiveX控件，选定列表栏里的Microsoft ProgressBar Control控件，一般里面有两个版本的，分别是V5.0(SP2)和v6.0。建议用V5.0（SP2）版的，这个控件的风格可以根据WIN的主题风格的变化而变化，而V6.0是固定的一个格子一个格子的跳。
选定后，前面的小匡内会有个‘X’，点确定。
2、新建一个表单，在数据环境里添加一个表，假如是个有138条记录的成绩库，要求从第一条记录开始一条一条的计算总分，科目只有三科语、数、外。（当然，这个目的一条replace all命令就可以解决了）
3、在表单设计器内点“查看类”即第二个按钮，在弹出的菜单栏里选择“ActiveX控件”，表单设计器的控件栏内就有了进度条的控件
4、在表单内添加这个进度条控件，暂命名为“Ole1”，注意调整进度条的长和宽。该控件的VISIBLE属性选择.F.，即运行表单后，未计算总分时，进度条是不可见的。
5、在表单内添加一个命令按钮，用这个按钮激活程序计算总分和进度条的实时显示
6、命令按钮的Click事件里添加以下代码
go top

if reccount()>0 //如果表不为空执行
thisform.ole1.visible=.T. // 显示进度条
thisform.ole1.max=reccount() // 进度条的最大值为表的记录数
else
return //如果表无记录返回
endif

do while !eof()
thisform.ole1.value=recno() // 进度条的数值根据当前记录号变化
replace 总分 with 语+数+外 // 计算当前记录的总分
skip // 当前记录下移一条
enddo

thisform.ole1.visible=.F.
thisform.ole1.value=0

7、保存运行表单