winapi - GetCursorPos 只返回 x 值

Question

我在 MSDN forum 上看到了一个帖子32 位与 64 位整数存在问题。我不确定这是否是我的问题，但似乎这段代码应该可以工作，所以我有点困惑。

我在 Windows 7 64 位中以兼容模式 (XP SP2) 运行 VB6。

Type POINTAPI ' This holds the logical cursor information
    x As Integer
    y As Integer
End Type

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

在Timer1_Timer()中...

Dim mousePos As POINTAPI
Call GetCursorPos(mousePos)
MsgBox mousePos.x & " " & mousePos.y

此消息框显示鼠标 x 坐标的正确值，但无论鼠标位于屏幕上的哪个位置，它都显示 y 的 “0” 。此外，GetCursorPos() 返回 1。

Answer 1

在 VB6 中，整数数据类型是 16 位数字。您必须使用 Long，因为这是一个 32 位数字。

Type POINTAPI ' This holds the logical cursor information
  x As Long
  y As Long
End Type

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

或使用:

Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT_TYPE) As Long