PureBasic

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 3.9
;
; Explication du programme :
; Exemple qui montre comment récupérer les touches tapées au clavier


; Création de la fenêtre et dela GadgetList
If OpenWindow(0, 0, 0, 300, 50, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Touche tapée") = 0 Or CreateGadgetList(WindowID()) = 0
  End
EndIf

SetWindowPos_(WindowID(), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE) ; Pour mettre la fenêtre toujours au premier plan

TextGadget(1, 5, 5, 300, 15, "Appuyez sur touche pour voir le code correspondant")
TextGadget(0, 5, 25, 300, 15, "")

Repeat
  Event = WaitWindowEvent()
  
  If Event = #WM_KEYDOWN ; Si on a appyé sur une touche
    Touche = EventwParam() ; On enregistre le numéro de la touche tapée
    Event = WindowEvent() ; On regarde l'évènement suivant
    If Event = #WM_CHAR ; Si on a pu récupérer le texte tapé
      SetGadgetText(0, "Caractère : " + Str(EventwParam()) + " = '" + Chr(EventwParam()) + "'")
    Else ; Sinon, on a enfoncé une touche spéciale comme les flèches par exemple
      SetGadgetText(0, "Touche : " + Str(Touche))
    EndIf
  EndIf
  
Until Event = #PB_EventCloseWindow

End