popup menu ....

scaraber · Message par **scaraber** » dim. 21/août/2005 9:05

salut voila j'ai faitun popup menu mais quand je clique sur un bouton sa fait une autre action enfin tt le biuton font la meme chose voici mon code

Code : Tout sélectionner

    
       Select WaitWindowEvent()
        
            Case #WM_RButtonDown
            DisplayPopupMenu(0, WindowID())
    
       Select EventMenuID() 
          
          Case #a1 ; Cacher
          state=state+1
          If state=2
            state=0
           EndIf
           
            If state=0
             CloseWindow (0)
           EndIf
            OpenWindow(0,WindowX(),WindowY(),200,140,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget ,"heure"); Fenster mit Rahmen öffnen 
            HideWindow(0,state)
          
        
          Case #a2 

  b=b+2
                EndIf 
                

          Case #a4 
            RunProgram ("config.exe",Parametre$, "", 1)
            
            
          Case #a5 
           a=a+1

          Case #a6
            End

         Default 
        EndSelect
      EndSelect

fweil · Message par **fweil** » dim. 21/août/2005 9:36

scaraber,

Je crois que tu as envoyé un code en désordre !

Tel quel rien ne peut fonctionner.

Voici un squelette de programme qui fonctionne :

Code : Tout sélectionner

Enumeration
  #Window_Main
  #Menu
  #Menu_a1
  #Menu_a2
  #Menu_a3
  #Menu_a4
  #Menu_a5
  #Menu_a6
EndEnumeration

  WindowWidth = 640
  WindowHeight = 480
  If OpenWindow(#Window_Main, 0, 0, WindowWidth, WindowHeight, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered, "MyWindow")
      AddKeyboardShortcut(#Window_Main, #PB_Shortcut_Escape, #PB_Shortcut_Escape)
      If CreatePopupMenu(#Menu)
          MenuTitle("Menu")
            MenuItem(#Menu_a1, "a1")
            MenuItem(#Menu_a2, "a2")
            MenuItem(#Menu_a3, "a3")
            MenuItem(#Menu_a4, "a4")
            MenuItem(#Menu_a5, "a5")
            MenuItem(#Menu_a6, "a6")
      EndIf
      If CreateGadgetList(WindowID(#Window_Main))
      EndIf
      Quit = #False
      Repeat
        Select WaitWindowEvent()
          Case #PB_Event_CloseWindow
            Quit = #True
          Case #WM_RBUTTONDOWN
            DisplayPopupMenu(#Menu, WindowID(#Window_Main))
          Case #PB_Event_Menu
            Select EventMenuID()
              Case #PB_Shortcut_Escape
                Quit = #True
              Case #Menu_a1
                Debug "a1"
              Case #Menu_a2
                Debug "a2"
              Case #Menu_a3
                Debug "a3"
              Case #Menu_a4
                Debug "a4"
              Case #Menu_a5
                Debug "a5"
              Case #Menu_a6
                Debug "a6"
              Default
            EndSelect
        EndSelect
      Until Quit
  EndIf
End

scaraber · Message par **scaraber** » dim. 21/août/2005 10:32

le code marche bine mais impossible de le faire marcher dasn mon code pourtant sa a lair bon

Code : Tout sélectionner

       If CreatePopupMenu(#Menu) 
            MenuItem(#Menu_a1, "déplacer/figer") 
            MenuItem(#Menu_a2, "cacher/afficher") 
            MenuItem(#Menu_a3, "optimiser ram") 
            MenuItem(#Menu_a4, "configurateur") 
            MenuItem(#Menu_a5, "aide") 
            MenuItem(#Menu_a6, "quiter") 
      EndIf

Code : Tout sélectionner

        Select WaitWindowEvent() 
          Case #WM_RBUTTONDOWN 
             DisplayPopupMenu(#Menu, WindowID(0))  
            Select EventMenuID() 
              Case #Menu_a1 
              Fenster_an_aus+1   
              If Fenster_an_aus=1 ; fenetre deplacable  
                OpenWindow(0,WindowX(),WindowY(),200,140,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget ,"heure"); Fenster mit Rahmen öffnen * 
                heure () 
              EndIf  
              If Fenster_an_aus=2 ; fenetre figer
                OpenWindow(0,WindowX(),WindowY(),200,140, #WS_POPUP,"heure") ; Fenster ohne alles öffnen * 
                Fenster_an_aus=0 
                heure ()
              EndIf 
              
              Case #Menu_a2 
              state=state+1
              If state=2
                state=0
              EndIf
              If state=0
                CloseWindow (0)
              EndIf
              OpenWindow(0,WindowX(),WindowY(),200,140,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget ,"heure"); Fenster mit Rahmen öffnen 
              HideWindow(0,state)
          
              Case #Menu_a3 
              CreateThread(@Optimisation(), Total) 
              
              Case #Menu_a4 
              RunProgram ("config.exe")
              
              Case #Menu_a5 
              RunProgram("aide.exe")
     
              Case #Menu_a6 
               End
              Default 
            EndSelect 
          EndSelect

fweil · Message par **fweil** » dim. 21/août/2005 10:57

Dans ta boucle évènementielle, il manque un Case #PB_Event_Menu avant le Select EventMenuID().

scaraber · Message par **scaraber** » dim. 21/août/2005 12:44

j'ai trouver le probleme

:le code susivant je c pas pourquoi mais quand je le met meme si je clique sur le bouton 2 c l'action du 1 qui sexecute

je ne comprend pas svp de l'aide

Code : Tout sélectionner

Case #Menu_a1 
              Debug 1
              Fenster_an_aus+1   
              If Fenster_an_aus=1 ; fenetre deplacable  
                OpenWindow(0,WindowX(),WindowY(),200,140,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget ,"heure"); Fenster mit Rahmen öffnen * 
                heure () 
              EndIf  
              If Fenster_an_aus=2 ; fenetre figer
                OpenWindow(0,WindowX(),WindowY(),200,140, #WS_POPUP,"heure") ; Fenster ohne alles öffnen * 
                Fenster_an_aus=0 
                heure ()
              EndIf

scaraber · Message par **scaraber** » dim. 21/août/2005 15:53

salut
encore moi
bon j'ai enfin identifier avec certitude le niveau ou est le proleme
j'ai mi un systray et j'ai config le code pour que quand je clique dessu sa ouvre le menu le probleme c que quand jarive sur l'icone
EventMenuID() passe a 1 au lieu de rester a zero et attendre que jai choisi le bouton pour changer voici mon code je pence quil manque une phase de reconaissanec du menu selectioner

Code : Tout sélectionner

  If WindowEvent = #PB_Event_SysTray
         If EventType() = #PB_EventType_RightClick  
           DisplayPopupMenu(#Menu, WindowID()) 
           If EventMenuID()=1
             Debug 1
             Fenster+1   
             If Fenster=1 ; fenetre deplacable  
               OpenWindow(0,WindowX(),WindowY(),200,140,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget ,"heure"); Fenster mit Rahmen öffnen * 
               heure()
             EndIf  
             If Fenster=2 ; fenetre figer
               OpenWindow(0,WindowX(),WindowY(),200,140, #WS_POPUP,"heure") ; Fenster ohne alles öffnen * 
               Fenster=0 
               heure()
             EndIf
           EndIf
           
           If EventMenuID()=2
               Debug 2
               state=state+1
               If state=2
                 state=0
                EndIf
                If state=0
                  CloseWindow (0)
                EndIf
                OpenWindow(0,WindowX(),WindowY(),200,140,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget ,"heure"); Fenster mit Rahmen öffnen 
                HideWindow(0,state)
           EndIf
           
           If EventMenuID()=3
           Debug 3
             CreateThread(@Optimisation(), Total) 
           EndIf
           
           If EventMenuID()=4
             RunProgram ("config.exe")
           EndIf
           
           If EventMenuID()=5
             RunProgram ("aide.exe")
           EndIf
           
           If EventMenuID()=6
             End
           EndIf
                     MessageRequester("Info", "MenuItem: "+Str(EventMenuID()), 0)
         EndIf 
       EndIf