PureBasic

bonjour,

voila je cherche le moyen de fermer une fenetre normale avec le boutton échappe du clavier mais si je ne suis pas dans un screen je n'arrive pas a utilisé le clavier donc je souhaiterais saoir si c'est possible

.

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

  If OpenWindow(#Window_0, 0, 0, 600, 300, "test",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      
    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

merci d'avance.

@++[/code]

Code : Tout sélectionner

AddKeyboardShortcut(#Fenetre, Raccourci, Event)

ah ok

.

faut passer par menu est non gadget

.

autant pour moi et merci Cls

.

pour ceux qu'ils veulent voir le code modifier

.

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

  If OpenWindow(#Window_0, 0, 0, 600, 300, "test",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateMenu(0,WindowID(#Window_0)) ;<--------------- on crée un menu est non un gadget ;)
     AddKeyboardShortcut(#Window_0, #PB_Shortcut_Escape, 15) ;<--------  on choisis son raccourci et le numero de la case plus bas
     
    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Menu
      Select EventMenu()

      Case 15 ;<--------------- la Case en question
       End ;<----------- on quitte le programme


      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

@++

Oui j'ai été bref, je n'avais pas beaucoup de temps

Oui j'ai été bref, je n'avais pas beaucoup de temps Wink

c'est pas grave le résultat est la

.

@++

PureBasic

[ résolu] fenetre avec échappe

[ résolu] fenetre avec échappe