Windows API Guide - Reference - Volume 1: Version 3.0 For the MS-DOS and PC-DOS Operating Systems
Public Function HIWORD (ByVal dwValue As Long) As Long Dim hexstr As String hexstr = Right("00000000" & Hex(dwValue), 8) HIWORD = CLng("&H" & Left(hexstr, 4)) End Function
Description & Usage
The HIWORD macro isolates the high-order word from a 32-bit integer.
Return Value
The macro returns the high-order word of the 32-bit integer passed to it.
Visual Basic-Specific Issues
The method I present for extracting the high-order word may seem unusual, since I first convert the value into an 8-digit hex string and then cut that in half. I do this because it is the only way that works 100% of the time in Visual Basic. All the math-based routines I've seen to do this fail when the &H80000000 bit of dwValue is set, because VB then sees it as a negative number.
Parameters
- dwValue
- The 32-bit integer to extract the high-order word from.
See Also
LOWORD
Back to the Macro list. Back to the Reference section.
Last Modified: July 30, 2000 This page is copyright © 2000 Paul Kuliniewicz. Copyright Information Revised October 29, 2000 Go back to the Windows API Guide home page. E-mail: vbapi@vbapi.com Send Encrypted E-Mail This page is at http://www.vbapi.com/ref/h/hiword.html