如何使FORM在3分钟没有输入的情况下，自动关闭

[PI_2002]

如题

[wumy_ld]

声明一个模块级整型变量intCount，在窗体上放一个Timer控件，Interval设为1000。在文本框或其它控件的KeyPress事件里禁用Timer控件，同时把intCount清零，在KeyUp事件里启用Timer控件。在Timer控件触发的事件里（Timer只有一个事件）对intCount进行加1操作，同时检测该变量是否等于或大于3，如果是，则结束程序。

[DarkChampion]

应该是把Interval设为60000（一分钟）吧

[didishu0807]

声明一个模块级整型变量N，在窗体上放一个Timer控件，Interval设为6000。在窗体装载时禁用Timer控件，同时把N清零，在form_load事件里启用Timer控件。在Timerer事件对N进行加1操作，同时检测该变量是否等于或大于3，如果是，则结束程序 end 。

[射天狼]

Option Explicit

Dim ll_Time As Long '计时器变量


Private Sub Form_Load()
ll_Time = 0
Timer1.Interval = 60000 '设时间间隔为一分钟
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
ll_Time = ll_Time + 1
If ll_Time = 3 Then
MsgBox "3分钟时间到,点击确定要关闭系统!", vbExclamation
Unload Me
End If
End Sub

[射天狼]

上面的写错了,忘记处理输入了

Option Explicit

Dim ll_Time As Long '计时器变量


Private Sub Form_Load()
ll_Time = 0
Timer1.Interval = 60000 '设时间间隔为一分钟
Timer1.Enabled = True
End Sub

Private Sub Text1_Change()
'在有输入的地方把计时器变量清零,重新计时
ll_Time = 0
End Sub

Private Sub Timer1_Timer()
ll_Time = ll_Time + 1
If ll_Time = 3 Then
MsgBox "3分钟时间到,点击确定要关闭系统!", vbExclamation
Unload Me
End If
End Sub