/ Snippet Library - View Code

Visual Basic / Registry / HIWord/DWord/LOWord

Snippet details

ID: 430

Viewed: 1344

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

HIWord/DWord/LOWord Stuff

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllFunction MakeDWord(wHi As Integer, wLo As Integer) As Long If wHi And &H8000 Then MakeDWord = (((wHi And &H7FFF) * 65536) Or _ (wLo And &HFFFF)) Or &H80000000 Else: MakeDWord = (wHi * 65536) + wLo End If End Function Function HiWord(dw As Long) As Integer If dw And &H80000000 Then HiWord = (dw 65535) - 1 Else: HiWord = dw 65535 End If End Function Function LoWord(dw As Long) As Integer If dw And &H8000& Then LoWord = &H8000 Or (dw And &H7FFF&) Else: LoWord = dw And &HFFFF& End If End Function

No Reviews to show