vb.net整数和短转换，getMessagePos()

Question

我正在尝试在vb.net中使用dword winapi getMessagepos（void）函数。

该函数返回一个可以存储在vb.net整数变量中的dword（32位）。MSDN文档的报价：

X坐标处于返回值的低序短；这 y坐标在高阶短（都表示签名的值 因为它们可以在多个系统上占负面值 显示器）

如何使用vb.net检索x和y坐标？

我目前正在尝试

<System.Runtime.InteropServices.DllImport("user32.dll", ExactSpelling:=True)>
Private Shared Function GetMessagePos() As Integer
End Function
Sub test()
    Dim pos As Integer = GetMessagePos()
    Try
        Dim x As Short = CShort(pos And &HFFFF)
        Dim y As Short = CShort(pos >> 16)
        MessageBox.Show(x & ", " & y)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

，但我不确定这是否是正确的方法。我正在尝试进行一些测试，例如

    Try
        Dim x As Short = -1
        Dim y As Short = 1
        Dim i As Int32 = (y << 16) Or x
        Dim x2 As Short = CShort(i And &HFFFF)
        Dim y2 As Short = CShort(i >> 16)
        MessageBox.Show(x & ", " & y)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

基本上I代码X和Y坐标短（INT16）变量，将它们放在INT32中，然后尝试解码。
但这似乎不起作用，因为它会导致溢出。

如何解码GetMessagePos() Winapi的X-Y坐标？

Answer 1

提取这些值时必须小心，以确保它们在多个监视器系统上正常工作。就您通常在GetMessagePos函数中使用的内容而言，"标准"的方法是GET_X_LPARAM和GET_Y_LPARAM宏，在Windows SDK标头中定义。这些在GetMessagePos文档中特别提及，并且在所有文档中应有类似的引用，以返回包装坐标的函数。还有一个警告不要使用经典的LOWORD或HIWORD宏，因为它们将值视为无签名的数量，正如您在问题中所指的那样。

因此，任务本质上是将GET_X_LPARAM和GET_Y_LPARAM宏从C转换为vb.net。将它们转换为C＃非常简单，因为您可以利用unchecked关键字：

int GetXValue(UInt32 lParam)
{
    return unchecked((short)(long)lParam);
}
int GetYValue(UInt32 lParam)
{
    return unchecked((short)((long)lParam >> 16));
}

但是vb.net对C＃的unchecked关键字没有等效，因此您必须找到其他方法来避免溢出。就个人而言，我在C＃中编写了这种Interop代码，然后将其粘贴在库中，以便我可以做我发现最可读的事情。

如果您更喜欢坚持使用vb.net，则有几种方法可以做到这一点。从概念上讲，最简单的是将值作为UInt32操纵，以避免溢出。对于较低位中的X坐标，您将需要明确掩盖上部的位置以避免溢出。对于y坐标，您需要移动和掩盖。然后，您可以转换回Short：

Public Function GetXValue(lParam As UInt32) As Short
    Return CShort(lParam And &HFFFF)
End Function
Public Function GetYValue(lParam As UInt32) As Short
    Return CShort((lParam >> 16) And &HFFFF)
End Function

另一种选择更加聪明，也许太聪明了，但可能更有效。它涉及宣布相当于c风格的联合的等效物，在vb.net中，该结构只是一个结构，其字段重叠：

<StructLayout(LayoutKind.Explicit)> _
Public Structure CoordUnion
    <FieldOffset(0)> Public LParam As UInt32
    <FieldOffset(0)> Public XCoord As Short
    <FieldOffset(2)> Public YCoord As Short
    Public Sub New(lParam As UInt32)
        LParam = lParam
    End Sub
End Structure

然后您可以这样使用：

Dim temp As CoordUnion = New CoordUnion(GetMessagePos())
Dim pt As Point = New Point(temp.XCoord, temp.YCoord)
' ...

请注意，我隐含地更改了GetMessagePos的P/Invoke签名，以便它返回UInt32：

<System.Runtime.InteropServices.DllImport("user32.dll", ExactSpelling:=True)>
Private Shared Function GetMessagePos() As UInt32
End Function

您可以在所有这些辅助/转换功能中都可以轻松地使用IntPtr类型作为UInt32类型。实际上，这就是您通常将其编写的方式，因为通常将这些指针坐标包装到lParam值中，作为窗口消息的一部分（例如，例如，，当覆盖控件的WndProc方法时）。/p>