j'ai unpetit probleme , juste pour placer ma boucle

jbernard13 · Message par **jbernard13** » mar. 07/sept./2004 17:09

bonjour
j'ai essayer de refaire mon code
mais je rencontre un probleme le code marche pas
qui peux m'aider svp

Jbernard

Code : Tout sélectionner

numeration
#Window_0
#Menu_Fichier
#Menu_nouveau
  #Menu_charger
  #Menu_sauvegarder
  #Menu_Quitter
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 270, 31, 603, 467,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Gestion de mot de passe ")
    If CreateMenu(#Menu_Fichier, WindowID())
      MenuTitle("Fichier")
      MenuItem(#Menu_nouveau, "Nouveau")
      MenuItem(#Menu_charger, "Charger ")
      MenuItem(#Menu_sauvegarder, "Sauvegarder")
      MenuItem(#Menu_Quitter, "Quitter")
    EndIf
    
    If CreateGadgetList(WindowID())
      
    EndIf
  EndIf
EndProcedure


Repeat 
    Event = WaitWindowEvent()
  
    Select EventID 
      Case #PB_EventMenu 
        Select EventMenuID() 
         Case 4 
                 Quit=1  
    EndSelect    
      Case #WM_CLOSE 
        Quit=1  
    EndSelect  
  Until Quit =1

nico · Message par **nico** » mar. 07/sept./2004 17:43

J'arrive pas à comprendre comment tu travail, apparemment au travers de tes posts, tu ne connais aucune base, il serait peut être temps que tu t'y mettes en commençant par le début.

Sinon pour ton problème, si tu sais ce qu'est une procédure alors tu vas trouver sinon lire plus haut.

Désolé de te bousculer un peu, mais on passe tous par la case départ!

Aranoth · Message par **Aranoth** » mar. 07/sept./2004 18:22

Faut que tu lance ta procedure peut etre

Code : Tout sélectionner


Enumeration 
#Window_0 
#Menu_Fichier 
#Menu_nouveau 
  #Menu_charger 
  #Menu_sauvegarder 
  #Menu_Quitter 
EndEnumeration 

Procedure Open_Window_0() 
  If OpenWindow(#Window_0, 270, 31, 603, 467,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Gestion de mot de passe ") 
    If CreateMenu(#Menu_Fichier, WindowID()) 
      MenuTitle("Fichier") 
      MenuItem(#Menu_nouveau, "Nouveau") 
      MenuItem(#Menu_charger, "Charger ") 
      MenuItem(#Menu_sauvegarder, "Sauvegarder") 
      MenuItem(#Menu_Quitter, "Quitter") 
    EndIf 
    
    If CreateGadgetList(WindowID()) 
      
    EndIf 
  EndIf 
EndProcedure 

Open_Window_0()

Repeat 
    Event = WaitWindowEvent() 
  
    Select EventID 
      Case #PB_EventMenu 
        Select EventMenuID() 
         Case 4 
                 Quit=1    
      Case #WM_CLOSE 
        Quit=1  
    EndSelect  
  Until Quit =1

En admettant que le reste soit bon^^

Oliv · Message par **Oliv** » mar. 07/sept./2004 18:36

Enumeration
#Window_0
#Menu_Fichier
#Menu_nouveau
#Menu_charger
#Menu_sauvegarder
#Menu_Quitter
EndEnumeration

Procedure Open_Window_0()
If OpenWindow(#Window_0, 270, 31, 603, 467, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Gestion de mot de passe ")
If CreateMenu(#Menu_Fichier, WindowID())
MenuTitle("Fichier")
MenuItem(#Menu_nouveau, "Nouveau")
MenuItem(#Menu_charger, "Charger ")
MenuItem(#Menu_sauvegarder, "Sauvegarder")
MenuItem(#Menu_Quitter, "Quitter")
EndIf

If CreateGadgetList(WindowID())

EndIf
EndIf
EndProcedure

Open_Window_0()

Repeat
Event = WaitWindowEvent()

Select EventID
Case #PB_EventMenu
Select EventMenuID()
Case 4
Quit=1
EndSelect
Case #WM_CLOSE
Quit=1
EndSelect
Until Quit =1

Tu avais pas mis le Endselect ligne 36