无聊闲逛,发现一个能依据光标自动关闭窗体的示例,分享给大家。
代码如下:
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
图 示:
附 件:
点击下载此附件
示例演示: