Key.Shift (gb.qt4)
Static Property Read Shift As Boolean
Retourne si la touche
SHIFT est appuyée.
Ceci se situe dans un événement ..._KeyPress ou ..._KeyRelease.
Exemples
' Il faut un bouton (Button1) ayant le focus (Utilisez la touche Tab).
' vous pouvez copier/coller cet exemple.
PUBLIC SUB Button1_KeyPress()
IF Key.Shift THEN
Button1.Text = " Vrai " & CString(Time)
ELSE
Button1.Text = " Faux " & CString(Time)
ENDIF
END
PUBLIC SUB Form_KeyPress()
' l'événement Control KeyPress passera souvent à travers l'événement du formulaire.
DIM altSet AS Boolean
TRY altSet = Key.Shift
altSet = IIf( ERROR , FALSE, altSet)
IF altSet THEN
ME.Text = CString(Time) & " Vrai: la touche Control est appuyée"
ELSE
ME.Text = CString(Time) & " Faux: la touche Control n'est pas appuyée"
ENDIF
END
Voir aussi