探测键盘、鼠标的响应问题....

ivt 2004-09-04 11:37:08
我有几个窗体,一个是主窗体。
现在当进入到非主窗体时,我希望能
检测到键盘、鼠标在5分钟内没有响应就
自动返回到主窗体,请问应该怎么实现呀
关注当中......
...全文
84 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
不错
是不是可以把下面的TIMER1.ENABLED=TRUE去掉,直接在设计期就置为TRUE,打开子窗体即计时.否则,设计期若为FALSE的话就反倒达不到目的了,只要没有操作就一直不计时了嘛.
另外可以不必在每个控件的KEYDOWN事件中都加入代码吧.只要设置窗体的KEYPREVIEW属性为真,只在窗体的键盘事件中写上escapetime=0就可以了.
另外TIMER控件的interval=1000约等于一秒,要表示5分钟,应该让 escapetime 与 5*60 相比较.
回复
ivt 2004-09-05
楼上的方法确实不错。变通的方法也很有创意。
都是用API,
敬请给出使用这些API的代码,好吗?
回复
rainstormmaster 2004-09-05
看http://community.csdn.net/Expert/topic/3338/3338715.xml?temp=.5497553里我的回复
回复
northwolves 2004-09-04
有个笨办法,呵呵:
static escapetime as integer

timer1: interval=1000; escapetime=escapetime+1: if escapetime= 50 则timer1.enabled=false,返回主窗体

所有子窗体和控件mousedown: timer1.enabled=true: escapetime=0
所有子窗体和控件keydown: timer1.enabled=true:escapetime=0
回复
发帖
VB基础类
创建于2007-09-28

7479

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-09-04 11:37
社区公告
暂无公告