HiWord, LoWord und DWord Drei n?tzliche Funktionen zum Ermitteln von LoWord, HiWord und DWord.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  10.671
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Gerade bei der Verwendung von Windows API-Funktionen ist immer wieder die Rede von LoWord, HiWord und DWord. Muss man beispielsweise aus einem DWord-Parameter (Long-Datentyp) den LoWord-Integerwert ermitteln, stellt sich meist die Frage: Wie mach' ich das?

Deshalb möchten wir Ihnen nachfolgend drei nützliche Funktionen vorstellen:

' LoWord aus DWord ermitteln
Public Function LoWord(ByVal nDWord As Long) As Long
  LoWord = CLng("&H" & Left$(Right$("00000000" & Hex$(nDWord), 8), 4))
End Function

' HiWord aus DWord ermitteln
Public Function HiWord(ByVal nDWord As Long) As Long
  HiWord = CLng("&H" & Right$(Right$("00000000" & Hex$(nDWord), 8), 4))
End Function

' DWord aus LoWord und HiWord zusammensetzen
Public Function DWord(ByVal nLow As Integer, ByVal nHigh As Integer) As Long
  Dim sLow As String
  Dim sHigh As String
 
  sLow = String$(4 - Len(Hex$(nLow)), "0") & Hex$(nLow)
  sHigh = String$(4 - Len(Hex$(nHigh)), "0") & Hex$(nHigh)
 
  DWord = CLng("&H" & sLow & sHigh)
End Function