技术难度不大,但实现起来挺繁琐。具体思路是:在表单上添加计时器,将计时间隔设为 5 分钟,在移动鼠标和键盘按键时,重置计时器,无鼠标和按键操作,达到 5 分钟时,关闭表单。
1. 表单上增加一个计时器 Timer1
2. 设置计时器的 InterVal = 300000
3. 在计时器的 Timer 事件中输入 THISFORM.Release
4. 设置表单的 KeyPreview = .t.
5. 在表单的 KeyPress 事件中输入 Timer1.Reset
6. 在表单和所有控件的 MouseMove、Click、RightClick 事件中,输入 Timer1.Reset
注:若要在一个完整的系统框架中实现该功能,必须采用类。否则,工作量太大了。
[
本帖最后由 liuxingang28 于 2014-5-15 13:55 编辑 ]