谁知道wm_lbuttondown中的lparam怎样转换成VB中的x,y坐标

Question

Public Function GetHighWord(ByVal TheValue As Long) As Long
    ' 获取一个32位整数的高16位。
    Dim rtnVal As Long
        
    CopyMemory rtnVal, ByVal VarPtr(TheValue) + 2, 2&
    GetHighWord = rtnVal
End FunctionPublic Function GetLowWord(ByVal TheValue As Long) As Long
    ' 获取一个32位整数的低16位。
    Dim rtnVal As Long
    
    CopyMemory rtnVal, TheValue, 2&
    GetLowWord = rtnVal
End Functionx = GetLowWord(lParam)
y = GetHighWord(lParam)

Answer 1

x=lparam mod 65536
y=lparam \ 65536