Detect if Shift Key is down
A function that returns whether or not the shift key is currently down.
AI
AI 摘要: 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.
源代码
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
原始评论 (3)
从 Wayback Machine 恢复