Les touches peuvent avoir des fonctions qui leurs sont associées par l'OS ou par d'autres programmes; vous pourrez fermer/... votre programme/d'autres programmes/système.

Exemples

' Nécessite un Button1; avec le focus ( Utilisez la touche Tab ).
' vous pouvez copier coller cet exemple.

PUBLIC SUB Button1_KeyPress()
  IF Key.Alt THEN
    Button1.Text = " True " & CString(Time)
  ELSE
    Button1.Text = " False " & CString(Time)
  ENDIF
END

PUBLIC SUB Form_KeyPress()
' KeyPress avec le contrôle Key event passera fréquemment par cet évènement Form.
  DIM altSet AS Boolean
  TRY altSet = Key.Alt
  altSet = IIf( ERROR , FALSE, altSet)
  IF altSet THEN
    ME.Text = CString(Time) & " Vrai : la touche control a été appuyée"
  ELSE
    ME.Text = CString(Time) & " Faux : la touche control n'a pas été appuyée"
  ENDIF
END

Voir aussi

KeyPress ,
KeyRelease