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
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