Option Explicit
Const sj = 1000 '确定多久未操作就提示退出
Private Sub Form_KeyPress(KeyAscii As Integer)
Form_Load
End Sub
Private Sub Form_Load()
DoCmd.Maximize
Me.提示.Caption = "" & Format(sj / 6000, "0.0") & "分钟无操作则退出的程序。"
Me.提示.ForeColor = 0
Me.TimerInterval = 0
Me.TimerInterval = sj
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form_Load
End Sub
Private Sub Form_Timer()
If Me.TimerInterval = 5000 Then Quit '提示后仍无操作,退出。
Me.提示.Caption = "您已有" & Format(sj / 6000, "0.0") & "分钟的时间没操作了!请点击鼠标!否则系统将在5秒钟内退出! "
Me.提示.ForeColor = 255
Me.TimerInterval = 5000
End Sub
Private Sub 提示_Click()
Form_Load
End Sub
Private Sub 主体_Click()
Form_Load
End Sub
示例文件:
点击浏览该文件