Page 1 sur 1
j'ai unpetit probleme , juste pour placer ma boucle
Publié : mar. 07/sept./2004 17:09
par jbernard13
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
Publié : mar. 07/sept./2004 17:43
par nico
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!
Publié : mar. 07/sept./2004 18:22
par Aranoth
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^^
Publié : mar. 07/sept./2004 18:36
par Oliv
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