Key.Shift (gb.qt4)
Static Property Read Shift As Boolean
返回=SHIFT=键是否被按下。
用于..._KeyPress或..._KeyRelease事件内部。
Examples
' 需要一个Button1；带有焦点(使用Tab键)。
' 可以剪切和粘贴该示例。
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()
' 控件的KeyPress事件会经常通过这个Form事件。
DIM altSet AS Boolean
TRY altSet = Key.Shift
altSet = IIf( ERROR , FALSE, altSet)
IF altSet THEN
ME.Text = CString(Time) & " True: SHIFT建被按下"
ELSE
ME.Text = CString(Time) & " False: SHIFT键未被按下"
ENDIF
END
参见