如何检测键盘输入Ctrl+C并结束定时器程序?
**在表单中显示秒程序,我不想用命令按钮结束定时器,而用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 编辑 ]