STATIC PROPERTY READ Shift AS BooleanReturns if the SHIFT key is pressed.
![]() | This is inside ..._KeyPress or ..._KeyRelease Events. |
' Needing a Button1; with the focus on it( Use the Tab key). ' can cut and Paste this example. PUBLIC SUB Button1_KeyPress() IF Key.Shift THEN Button1.Text = " True " & CString(Time) ELSE Button1.Text = " False " & CString(Time) ENDIF END
PUBLIC SUB Form_KeyPress() ' Control KeyPress event will often pass through to this Form event. DIM altSet AS Boolean TRY altSet = Key.Shift altSet = IIf( ERROR , FALSE, altSet) IF altSet THEN ME.Text = CString(Time) & " True: Control key is being held down" ELSE ME.Text = CString(Time) & " False: Control key was not held down" ENDIF END