thisform.t1.Value =SECONDS()
thisform.timer1.Enabled=.t.
FOR i=1 TO 1000
    WAIT WINDOW 'ESC 停止' TIMEOUT 2 （1）
    IF INKEY()=27  （2）
        EXIT （3）
    ENDIF  （4）
ENDFOR
thisform.timer1.Enabled=.f.
以上是8楼的代码，问题是vfp在执行你的(1),(2),(3),(4)这个循环体时，可以显示，但在执行我的循环体时，由于VFP是单线程，这时他就只执行循环体内的内容，而对Timer这个控件，VFP则好象没看到它的存在，只是在这个循环结束时，Timer控件在发生作用

循环体要写在timer的timer里

Timer 是有时钟频率问题，如果你的循环体执行很快的，就无需用 Timer 了，直接在 循环体 刷新 SECONDS()-T1，我以为你的循环一次需长时间(如：大于2秒），才用 Timer 的

我原设的一次循环时间是 0.001
    WAIT WINDOW 'ESC 停止' TIMEOUT 0.001





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

T1=SECONDS()
FOR I=1 TO 99999999
    T2=SECONDS()
    thisform.text1.Value=[共用时]+TRANSFORM((t2-t1)/1000)+[秒]
ENDFOR

是不是要这种效果：

其实很简单的：

是的，我13楼就是这意思

我的考虑是这样：楼主的意思，是执行一个耗时过程时，此过程所消耗的时间秒，要实时的或即时的显示出来。这说明了一个问题，即：一边执行耗时过程，同时，（注意同时2字）,显示出消耗时间。请各位考虑这种同时运行的现象。这本身就是多线程运行，单线程如何实现呢？单线程只能运行完毕一个，再接着运行下一个。5 楼为什么要那样的提法，就是根据这个方面考虑的。在 vfp 中，能实现多个程序同时运行的方法，只有通过 api 调用其他文件而实现，api 可以同时调用几个文件，调用后并不停止，立即向下运行下一句。所以同时运行成为可能。因此，仔细考虑，这个问题不是那么简单的吧。（不知是不是理解错误，望大家多指教）

是我嘴笨,没把问题说清楚,19楼最理解我,我就是要即时显示某段耗时程序所用的时间(因为里面有很多循环语句)
请各位大侠们帮帮我哈.