有一段耗时较长的循环语句，VFP中能实现实时显示该段循环的累计时间吗？要以秒为单位进行累加，比如
for x=1 to 100000000
…&&此段程序很耗时
endfor
在表单上放一个标签，让它实时显示累计时间，不是在循环结束时统计它的总时间。
这在VB中很好实现，创建一个双线程程序即可，但VFP中不行，它不支持多线程，怎么办？

T1=SECONDS()
NUM=0
FOR I=1 TO 9999999
    NUM=NUM+I
ENDFOR
T2=SECONDS()
=MESSAGEBOX([共用时 ]+TRANSFORM(T2-T1)+[ 毫秒])

[ 本帖最后由 bccn201203 于 2013-3-21 17:03 编辑 ]

设置定时器，每秒刷新一次。

这种东西都是用Timer的，Windows本身就是多任务系统。这关多线程什么事，多线程用于这个用途是错误的思路。

提个小思路仅供参考。显示时间秒的程序，另做成 exe。 启动你的耗时程序时，用 api 一齐启动这个 exe. 起始秒：t1=second(),显示秒：t2=second()-t1,通过传递方式导过来，显示在表单标签上。(隐含再运行一个线程)

用Timer 应可以了,在Timer  刷新标签(累计时间)
........
开始让 Timer 启用，开始累计时间
for x=1 to 100000000
…&&此段程序很耗时
endfor
停止 Timer 累计时间
................

例子


[ 本帖最后由 kiff 于 2013-3-22 00:44 编辑 ]

各位老大，我的要求是实时显示，不是循环结束后显示一个总时间

是实时显示呀,都说了，用Timer实时显示

[ 本帖最后由 kiff 于 2013-3-22 10:35 编辑 ]

你这是在统计这段循环的总时间，不能实时显示累计时间，我要的效果就象体育老师的秒表效果一样，一边是循环在运行，同时表单上用一个标签显示累计时间