【转载】依据光标自动关闭窗体

时　间:2021-07-04 09:02:10
作　者:某.强人   ID：73257  城市：长沙
摘　要:依据光标自动关闭窗体。
正　文:

      无聊闲逛，发现一个能依据光标自动关闭窗体的示例，分享给大家。

代码如下:

Private Sub Form_Timer()
    '记得先配置计时器时间间隔
    Dim MyFormCoor            As RECT
    Dim CusrorPos             As POINTAPI

    Call GetWindowRect(Me.Hwnd, MyFormCoor)
    Call GetCursorPos(CusrorPos)

    If (CusrorPos.x < MyFormCoor.Left) _
       Or (CusrorPos.x > MyFormCoor.Right) _
       Or (CusrorPos.y > MyFormCoor.Bottom) _
       Or (CusrorPos.y < MyFormCoor.Top) _
       Then DoCmd.Close acForm, Me.Name
End Sub

图   示:

附   件:

点击下载此附件

示例演示: