VFP 愛用者社區

lcm · 註冊時間: 2004-12-27 文章: 45 第 1 樓

請問如何利用timer設計當使用者在10分內未按任何鍵，則強迫將form關閉，謝謝。

bin1x · 註冊時間: 2004-08-27 文章: 462 第 2 樓

哈哈動腦時間到
在form 中
加入個timer
interval 原先不清楚mili seconds 對於10分鐘的意義
後來用我較熟悉的函數seconds()
找到了10分鐘是10秒鐘的60倍,而10秒鐘=10000
timer.timer 中加了thisform.release,搞定
至於10分鐘內有無keypress
用個flag 代表狀態
若無keypress 設成false有參數可用
在timer.timer事件中判定,很好玩的哩

liangszpt · 發表於: 星期四九月 01, 2005 5:25 pm 文章主題:

1　先学会ON　KEY　LABEL　的用法
2　增加FORM的一个属性KEYFLAG
3　在FORM.INIT里面把键盘上面的键都用ON　KEY　LABEL定义好，例ON　KEY　LABEL　A　 _screen.activeform.keyflag='T'，
　　THISFORM.KEYFLAG='F'
4　然后用TIMER设定每10分钟检查THISFORM.KEYFLAG的值，如果为'F'，说明用户没有操作过，可以关闭窗口(thisofrm.release)

但不知怎么测出有没有动过MOUSE

bin1x · 註冊時間: 2004-08-27 文章: 462 第 4 樓

lcm · 註冊時間: 2004-12-27 文章: 45 第 5 樓

需要再加入各個控制項的mousemove，keypress等，就以了，謝謝。

nelsonchuang · 註冊時間: 2003-09-04 文章: 563 來自: 臺灣 第 6 樓

jmforu · 註冊時間: 2005-10-27 文章: 6 第 7 樓

*FORM新增一个方法 mymousemove
*
* form.init
*---------------------
This.AddProperty('is_key',.F.)
This.AddProperty('no_key_time',0)
This.KeyPreview=.T.
THIS.timer1.Interval=60000 &&

For Each oo As Object In Thisform.Objects
If Upper(oo.Class)<>Upper('TIMER')
Bindevent(oo,'mousemove',Thisform,'mymousemove')
Endif
Endfor*
*form keypress
*----
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode>0
this.is_key=.t
thisform.timer1.Reset
ENDIF
*
* FORM.TIME1.TIMER事件
*
If Not Thisform.is_key
Thisform.no_key_time = Thisform.no_key_time + 1
If Thisform.no_key_time>=10
Release Thisform
Endif
ELSE
thisform.is_key=.f.
Thisform.no_key_time=1
Endif
*
*form mymousemove
*
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.is_key=.t.
thisform.timer1.Reset

小賴 · 註冊時間: 2004-12-27 文章: 476 第 8 樓

TO:newsonchuang兄
以mrow(), mcol()記錄mouse座標,檢測mouse是否動過 ;
確實較為乾淨俐落, 好方法 ! 小弟受教了, 感謝分 Wink

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 9 樓

jmforu, 兄寫的也不錯,
用Bindevent 方式, 改寫每個物件的鍵盤及MOUSE method
各有巧妙之處.

小賴 · 註冊時間: 2004-12-27 文章: 476 第 10 樓

就方法來論jmforu的方式需要較高的程式技巧;
且BINDEVENT() VFP8.0後才支援.