Advertisement
3_2004-2005 Miscellaneous #136991

Detect if Shift Key is down

A function that returns whether or not the shift key is currently down.

AI

KI-Zusammenfassung: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Quellcode
original-source
Private Function ShiftDown()
  Dim RetVal As Long
  RetVal = GetAsyncKeyState(16) 'SHIFT key
  If (RetVal And 32768) <> 0 Then
    ShiftDown = True
  Else
    ShiftDown = False
  End If
End Function
Originalkommentare (3)
Wiederhergestellt von der Wayback Machine