j'ai ça qui donne la touche appuyée :
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
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]