**在表单中显示秒程序，我不想用命令按钮结束定时器，而用Ctrl+C如何实现？
**就是如何读取键盘缓冲区，以下程序为什么无效?

*我的表单上主要有一个开始答题命令和一个timer
*开始答题命令为
public thistimesec
thistimesec=int(second())
thisform.timer1.enabled=.t.

*计时器为
**thistimesec在开始答题中已经设置为Public变量
**不考虑second()秒大于86400**
tmpnum1=int(seconds())-thistimesec
**设想键盘按Ctrl+C结束程序,没成功**
    if chrsaw() then     &&判断输入
        t0=inkey()       &&等待按键
        clear typeahead  &&清除键盘缓冲区
        if t0=3 OR t0=17 then
          thisform.timer1.enabled=.f.
          close all
          clear events
          quit
        endif
    endif
thisform.labelTS.caption="已经答题时间为"+ltrim(str(tmpnum1))+"秒"
thisform.refresh

[ 本帖最后由 new_bird 于 2009-8-22 20:39 编辑 ]

楼主的编程思路还停留在面向过程程序设计阶段。请问，楼主的程序放在哪里能实现你的“定时”功能呢？不用命令按钮而改用按键的方式倒是能办到，可是结束该程序与开启该程序是不能放在一起的啊。通常的做法是表单中添加一个时间控件，开始的时候启动计时程序，结束的时候设置时间控件无效。

if t0=3 OR t0=17 then句
改 OR 为 And 试试

楼上的建议不可行！同一个变量不可能有两个值，这样一改就永远不会有满足要求的现象出现的。

可以用ON KEY LABEL命令试试：

ON KEY LABEL Ctrl+C do Fox命令

if chrsaw() then     &&判断输入   then  在VFP中没用，这是VB用的   
        t0=inkey()       &&等待按键
        clear typeahead  &&清除键盘缓冲区
        if t0=3 OR t0=17 then
          thisform.timer1.enabled=.f.
          close all
          clear events
          quit   此句是退出程序，回到操作系统
        endif
    endif
thisform.labelTS.caption="已经答题时间为"+ltrim(str(tmpnum1))+"秒"
thisform.refresh
以上程序运行就结束，根本没有读取键盘时间。

要想读取键盘需要建立一个封闭式循环，当的某个条件成立时退出循环。
循环开始前，读取时间，可以在循环终止时的时间减去前一个时间，即为用时。
终止时间可以ENDDO后，也可以在EXIT前后，标准在EXIT前最标准。

DO WHILE .t.
if inkey()=3
    EXIT
endif
ENDDO



[ 本帖最后由 sd_tysd 于 2009-9-13 20:25 编辑 ]

梅子上的代码，希望有帮助.


Ctrl+C不是复制吗?为啥定义这个呢,闷.

[ 本帖最后由 hgfeng1984 于 2009-9-13 21:22 编辑 ]