**在表单中显示秒程序，我不想用命令按钮结束定时器，而用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 编辑 ]