'取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置
'http://www.excelpx.com/thread-145984-1-1.html
Declare Function GetMessagePosL Lib "user32" Alias "GetMessagePos" () As Long
'
'返回值是长整形
Sub gmp()
Dim strHex As String
strHex = Right("00000000" & Hex(GetMessagePosL), 8)
[a1] = "X坐标"
[a2] = CInt("&H" & Mid(strHex, 5, 4))
[b1] = "Y坐标"
[b2] = CInt("&H" & Mid(strHex, 1, 4))
End Sub
Declare Function GetMessagePosP Lib "user32" Alias "GetMessagePos" () As Point
Type Point
x As Integer
y As Integer
End Type
'
'返回值是自定义类型
Sub gmp()
Dim p As Point
p = GetMessagePosP
[a1] = "X坐标"
[a2] = p.x
[b1] = "Y坐标"
[b2] = p.y
End Sub
示例.rar
(14.96 KB, 下载次数: 146)