AddKeyboardShortcut()
AddKeyboardShortcut()
Salut,
je ne trouve pas de constante pour la touche Alt Graph (à droite d'espace) ...
Est-ce un oublie ou existe-t'elle ?
A+
je ne trouve pas de constante pour la touche Alt Graph (à droite d'espace) ...
Est-ce un oublie ou existe-t'elle ?
A+
Tiens, je viens de découvrir qu'il y avait une touche #PB_Shortcut_Menu
C'est peut-être bon, ça!!!
*************** Ajouté*************
Ben voui, c'est bon
Chris 
C'est peut-être bon, ça!!!
*************** Ajouté*************
Ben voui, c'est bon

Code : Tout sélectionner
Enumeration
#Window_0
EndEnumeration
If OpenWindow(#Window_0, 216, 150, 363, 217, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
EndIf
AddKeyboardShortcut(#Window_0, #PB_Shortcut_Menu,#PB_Shortcut_Menu)
Repeat
Select WaitWindowEvent()
Case #PB_EventMenu
Select EventMenuID()
Case #PB_Shortcut_Menu
Debug "Alt GR"
EndSelect
EndSelect
Until Event = #PB_EventCloseWindow
End

Effectivement.
Alors tu devrais peut-être pouvoir t'en sortir avec un code dans ce style.
Alors tu devrais peut-être pouvoir t'en sortir avec un code dans ce style.
Code : Tout sélectionner
Enumeration
#Window_0
EndEnumeration
If OpenWindow(#Window_0, 216, 150, 363, 217, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
EndIf
AddKeyboardShortcut(#Window_0, #PB_Shortcut_Menu,#PB_Shortcut_Menu)
Repeat
; Exemple pour Alt-Gr + A
If GetAsyncKeyState_(#VK_RMENU) < 0 And GetAsyncKeyState_($41)
Debug "Alt-Gr + A"
; Tu mets la commande dont tu as besoin ici
EndIf
Select WaitWindowEvent()
Case #PB_EventCloseWindow
quit = #True
EndSelect
Until quit
End
Pourquoi vous utilisez tous les APIs au lieu des fonctions integrés dans PureBasic ?Chris a écrit :Effectivement.
Alors tu devrais peut-être pouvoir t'en sortir avec un code dans ce style.
Code : Tout sélectionner
Enumeration #Window_0 EndEnumeration If OpenWindow(#Window_0, 216, 150, 363, 217, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )") EndIf AddKeyboardShortcut(#Window_0, #PB_Shortcut_Menu,#PB_Shortcut_Menu) Repeat ; Exemple pour Alt-Gr + A If GetAsyncKeyState_(#VK_RMENU) < 0 And GetAsyncKeyState_($41) Debug "Alt-Gr + A" ; Tu mets la commande dont tu as besoin ici EndIf Select WaitWindowEvent() Case #PB_EventCloseWindow quit = #True EndSelect Until quit End
Tu est sur d'avoir lu tous les post de ce sujet ???Slide a écrit :Pourquoi vous utilisez tous les APIs au lieu des fonctions integrés dans PureBasic?
LavaLava a écrit :Merci Chris !
J'aurais jamais pensé que Alt Gr puisse se nomer Menu ...
Par contre cela ne résout pas mon problème car je voulais combiner (comme shift,ctrl ou alt) cette touche avec d'autres ...
A+
Moi a écrit :Et qu'est-ce qui t'empêche de le faire ?
LavaLava a écrit :Tout simplement parce que la combinaison de touche :
#Pb_Shortcut_Menu | #Pb_Shortcut_A
ne fonctionne pas ...
Ben oui, faut tout lireMoi a écrit :Effectivement.
Alors tu devrais peut-être pouvoir t'en sortir avec un code dans ce style.


Chris a écrit :Tu est sur d'avoir lu tous les post de ce sujet ???Slide a écrit :Pourquoi vous utilisez tous les APIs au lieu des fonctions integrés dans PureBasic?
LavaLava a écrit :Merci Chris !
J'aurais jamais pensé que Alt Gr puisse se nomer Menu ...
Par contre cela ne résout pas mon problème car je voulais combiner (comme shift,ctrl ou alt) cette touche avec d'autres ...
A+Moi a écrit :Et qu'est-ce qui t'empêche de le faire ?LavaLava a écrit :Tout simplement parce que la combinaison de touche :
#Pb_Shortcut_Menu | #Pb_Shortcut_A
ne fonctionne pas ...
Ben oui, faut tout lireMoi a écrit :Effectivement.
Alors tu devrais peut-être pouvoir t'en sortir avec un code dans ce style.
