• Home
 · 
• Miscellaneous
 · 
• This function makes two 2 byte integer data a long 4 byte data, which loword is first 2 byte and hi

This function makes two 2 byte integer data a long 4 byte data, which loword is first 2 byte and hi

This function makes two 2 byte integer data a long 4 byte data, which loword is first 2 byte and hiword is second 2 byte data.

Rate This function makes two 2 byte integer data a long 4 byte data, which loword is first 2 byte and hi

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim a As Long
    Dim b As Long
    a = CLng(high)
    b = CLng((2 ^ 16))
    a = CLng(a * b)
    a = a Or low
    MakeLong = CLng(a)
End Function
'You can get a long number hiword and loword with this code
'  x1 and y1 are integer
'  lParam is long
  x1 = lParam And 65535
  y1 = lParam / (2 ^ 16)