怎样使程序在10分钟未使用了自动退出?关健是如何判断程序未使用,给个例子,NT4,VB6,

[dqj]

1.怎样使程序在10分钟未使用了自动退出?关健是如何判断程序未使用,给个例子.

NT4,VB6,

[dongdong]

可以使用TIMER记时（注意TIMER的最大时间间隔），在能直接感受事件的控件中（如COMMAND）都加入代码，每当有事件触发时，就刷新TIMER的记时，而当TIMER记时累计到达10分钟后，则关闭程序。

[dqj]

拜托,给个例子好吗?最好有注释.拜托!

[town]

1.DongDong说的对
2.如
Private sngBegin as Single'窗体变量
...
Private Sub Tim_Timer()
if Timer-sngBegin>600 then
<退出程序>
else
sngBegin=Timer
end if
End Sub
...
Private Sub Form_Move(...)'在窗体移动(等类似的)事件中清除时间累计。
snBegin=Timer;
End Sub.
...

[越野狂人程序猿大雄]

能够详细些吗？
请Email到[e-mail]