怎样给一个过程加上进度条？

Question

在我的程序中有一个计算工资过程，运行时耗时太久(须一次统计2000个员工工资)，所以我想在此过程中加上一个进度条框，类似安装程序时出现的独立框进度条。些过程实现如下：
1） 先取出2000个员工工号，
2） 根据员工工号取出考勤时间，
3） 执行一个公共计薪过程函数。请问大家怎样加载进度条更佳呢？

Answer 1

首先初始化进度条，如果2000个员工每个计算的时间差不多，就在第一个循环里面开始设置进度条：
for I=0 TO 1999
  ProgressBar1.Value = i/20
  call  根据员工工号取出考勤时间，
  call  执行一个公共计薪过程函数。
next
ProgressBar1.Value =100

Answer 2

楼上大哥;
ProgressBar1.Value = i/20 这个为何？]
在循环内不是让 ProgressBar1.Value的值递增吗？ 还我我需要的是一种弹出框的进度条，是否另外调用一个窗体，当过程完毕后关闭此窗体？

Answer 3

你既然是找出2000个员工号,那就是说用for来循环计算这2000个员工的薪筹了.
那就可以在这个循环里显示进度条了.
是这样的吗?

Answer 4

ProgressBar1.visible=true
ProgressBar1.max=2000
for i=1 to 2000     '按人员开始计算   ProgressBar1.value=i
   call  计算工资next 
msgbox "计算完成！"ProgressBar1.visible=false

Answer 5

我想楼上的各位已经说得很清楚了。进度条是靠Value显示进度的。你设置它Max属性为全部员工数，计算完一个员工后Value＋1，不就解决问题了吗？

Answer 6

能理解
wumylove1234(决心不做IT界大板锹)的想法，
不过你的做法好象没必要，或者你另外加一个进度条，在你计算的过程内控制进度条，因为计算时所做的操作具有不确定性，所以这个只有先靠你自己来掌握了。