[示例]长时间鼠标不动作提示是否退出系统

时　间:2008-08-29 22:31:49
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:长时间鼠标不动作提示是否退出系统
正　文:

相关代码：

Private Sub Form_Timer()
    Dim Point As pointapi
    '第一次记下鼠标的位置
    If IsFirst = True Then
        GetCursorPos Point
        x1 = Point.x
        y1 = Point.y
        Me.labOld.Caption = "上一次鼠标位置值: x=" & Point.x & ",y=" & Point.y
        IsFirst = False
        Exit Sub
    Else
        '从第二次开始判断
        GetCursorPos Point

        If Point.x = x1 And Point.y = y1 Then
            Me.TimerInterval = 0
            Me.labCurrent.Caption = "当前鼠标位置值: x=" & Point.x & ",y=" & Point.y
            If MsgBox("你已经好久没操作了,是否退出系统？", vbOKCancel, "提示") = vbOK Then
                DoCmd.Quit
            Else
                Me.TimerInterval = 10000    '10秒
            End If
        Else
            '记下新的鼠标位置
            x1 = Point.x
            y1 = Point.y
            Me.labOld.Caption = "上一次鼠标位置值: x=" & Point.x & ",y=" & Point.y
        End If
    End If

End Sub

点击下载此附件