AddKeyboardShortcut()

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
LavaLava
Messages : 173
Inscription : dim. 28/mars/2004 17:42
Localisation : Provence

AddKeyboardShortcut()

Message par LavaLava »

Salut,
je ne trouve pas de constante pour la touche Alt Graph (à droite d'espace) ...
Est-ce un oublie ou existe-t'elle ?
A+
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

#VK_MENU (valeur $12)

Tu la récupère avec EventwParam() et #WM_KEYDOWN

Chris :)
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

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 :lol:

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 
Chris :)
LavaLava
Messages : 173
Inscription : dim. 28/mars/2004 17:42
Localisation : Provence

Message par LavaLava »

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+
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

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+
Et qu'est-ce qui t'empêche de le faire ?
LavaLava
Messages : 173
Inscription : dim. 28/mars/2004 17:42
Localisation : Provence

Message par LavaLava »

Tout simplement parce que la combinaison de touche :
#Pb_Shortcut_Menu | #Pb_Shortcut_A
ne fonctionne pas ...
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

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 
LavaLava
Messages : 173
Inscription : dim. 28/mars/2004 17:42
Localisation : Provence

Message par LavaLava »

Grrr...
encore un api ...

mais c'est au moins une solution !
Toujours au top, merci Chris ...
Slide
Messages : 4
Inscription : jeu. 22/juil./2004 23:46
Contact :

Message par Slide »

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 
Pourquoi vous utilisez tous les APIs au lieu des fonctions integrés dans PureBasic ?
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Message par Chris »

Slide a écrit :Pourquoi vous utilisez tous les APIs au lieu des fonctions integrés dans PureBasic?
Tu est sur d'avoir lu tous les post de ce sujet ???
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 ...

Moi a écrit :Effectivement.

Alors tu devrais peut-être pouvoir t'en sortir avec un code dans ce style.
Ben oui, faut tout lire :lol:
Slide
Messages : 4
Inscription : jeu. 22/juil./2004 23:46
Contact :

Message par Slide »

Chris a écrit :
Slide a écrit :Pourquoi vous utilisez tous les APIs au lieu ‮des fonctions integrés dans PureBasic?
‮Tu est sur d'avoir lu tous les post de ce sujet ???

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 ...


Moi a écrit :Effectivement.

‮Alors tu devrais peut-être pouvoir t'en sortir avec un code dans ce style.‮
‮Ben oui, faut tout lire :lol:

:D
Répondre