自动退出问题

justinliao　发表于：2010-12-18 18:13:31 　

附件中的例子当鼠标一段时间不动时会提示是否退出，我的问题：人离开座位后，能不能让系统自动调用另一个倒计时窗口，当倒计时完成后自动退出。哪位老师能不能帮我修改一下附件实现这个功能。

煮江品茶发表于：2010-12-18 20:00:16

把if结构语句屏蔽掉，只保留DoCmd.Quit，就可以了：

            'If MsgBox("你已经好久没操作了,是否退出系统？", vbOKCancel, "提示") = vbOK Then
                DoCmd.Quit
            'Else
                'Me.TimerInterval = 5000    '10秒
            'End If

Top

justinliao 发表于：2010-12-18 20:12:23

这样做我知道，我想先提示，方便有些使用者只是当时没有用系统，提示后有可能要继续使用，如果没点"确认"或"取消"再倒计时退出。

Top

羽扇子君发表于：2010-12-19 21:44:21

MsgBox 时,要求用户必须响应(此时代码暂停执行的).焉能在没点"确认"或"取消"再倒计时?

Top

马山杨梅发表于：2010-12-20 12:21:05

其实在你的例子中，只要把Msgbox那条语句换成打开倒计时窗体的语句：

DoCmd.OpenForm "CountdownTimer" '打开倒计时窗口

就OK了。

点击下载此附件

Top

马山杨梅发表于：2010-12-20 12:56:31

突然又发现一个问题，原例中第一次正常，如果选择了继续，该功能就停止了还需要把Me.TimerInterval = 0 这句屏蔽掉才实用。

    If Point.x = x1 And Point.y = y1 Then
      'Me.TimerInterval = 0
       Me.labCurrent.Caption = "当前鼠标位置值: x=" & Point.x & ",y=" & Point.y
       DoCmd.OpenForm "CountdownTimer" '打开倒计时窗口
      'If MsgBox("你已经好久没操作了,是否退出系统？", vbOKCancel, "提示") = vbOK Then
    'DoCmd.Quit

Top

煮江品茶发表于：2010-12-20 13:24:26

justinliao及羽扇子君两同志：

问题的关键在于屁股离开椅子，系统无法判断。

可以这样来解决：于椅子上安装一个按钮，该按钮接一个无线发射器。坐下时，无线发射器向电脑传递信号，离开时信号源切断，电脑中Access程序做出退出反应。