鼠标位置

最新推荐文章于 2022-04-24 13:39:36 发布

xayzmb

最新推荐文章于 2022-04-24 13:39:36 发布

阅读量739

点赞数

分类专栏： myFile 文章标签： function user

本文链接：https://blog.csdn.net/xayzmb/article/details/437394

版权

myFile 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

Public Declare Function WindowFromPoint Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
X As Long
Y As Long
End Type

Public Type DGfor3
    ponX As Long
    ponY As Long
    MDC As Long
End Type

Public Function MouseDC() As DGfor3
    On Error Resume Next
    Dim Cur As POINTAPI
    GetCursorPos Cur
    MouseDC.MDC = WindowFromPoint(Cur.X, Cur.Y)
    MouseDC.ponX = Cur.X
    MouseDC.ponY = Cur.Y
End Function