[R] Fermeture fenêtre intermédiaire

Wink · #1

Bonjour,

Je ne trouve pas de fonction qui puisse ordonner la fermeture d'une fenêtre intermédiaire, et non toutes les fenêtres; je m'explique :

Mon programme commence avec un menu possédant 4 choix, sous forme de bouton :

- Préparation
- Stock
- Achats
- SAV

Lorsque l'on clique sur l'un des 4 boutons, une 2e fenêtre s'ouvre, proposant à son tour 2 choix (toujours sous forme de boutons), et sur cette même fenêtre, je voudrais que mon bouton "retour" puisse faire fermer cette fenêtre intermédiaire, sans fermer la 1ère (menu général)

C'est pourquoi je sollicite votre aide !

Voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <ExcelCOM_UDF.au3>
#NoTrayIcon


Global $Largeur = 400, $Hauteur = 280, $Titre = "Statistikor "
Local $Ver = "v1.0"

$stats = GUICreate($Titre & $Ver, $Largeur, $Hauteur, 50, 300)
GUISetState(@SW_SHOW)
GUISetBkColor(0x0060C0)

$welcome = GUICtrlCreateLabel("Veuillez choisir un service, svp :", 8, 20, 300, 20)
    GUICtrlSetColor($welcome, 0x000000)
    GUICtrlSetFont($welcome, 15, 800, "", "Monotype Corsiva")


$prepa = GUICtrlCreateButton("Préparation", 270, 60, 100, 30, $BS_FLAT )
            GUICtrlSetColor($prepa, 0xff0000)
            GUICtrlSetBkColor($prepa, 0x000000)
            GUICtrlSetFont($prepa, 12, 400, "", "Comic Sans MS")
        
        $stock = GUICtrlCreateButton("Stock", 270, 100, 100, 30)
            GUICtrlSetColor($stock, 0xff0000)
            GUICtrlSetBkColor($stock, 0x000000)
            GUICtrlSetFont($stock, 12, 400, "", "Comic Sans MS")
            
        $achats = GUICtrlCreateButton("Achats", 270, 140, 100, 30)
            GUICtrlSetColor($achats, 0xff0000)
            GUICtrlSetBkColor($achats, 0x000000)
            GUICtrlSetFont($achats, 12, 400, "", "Comic Sans MS")
            
        $SAV = GUICtrlCreateButton("SAV", 270, 180, 100, 30)
            GUICtrlSetColor($SAV, 0xff0000)
            GUICtrlSetBkColor($SAV, 0x000000)
            GUICtrlSetFont($SAV, 12, 400, "", "Comic Sans MS")
        

        $exit = GUICtrlCreateButton("Quitter", 85, 220, 100, 30)
            GUICtrlSetColor($exit, 0xffffff)
            GUICtrlSetBkColor($exit, 0x606060)
            GUICtrlSetFont($exit, 14, 800, "", "Comic Sans MS")


While 1
    $nMsg = GUIGetMsg()
    
    Switch $nMsg
        
    [i]Case $GUI_EVENT_CLOSE[/i]
    Exit
        
    [b]Case $prepa[/b]


[b]$menu_prepa = GUICreate("Service Préparation", 300, 200, 440, 340)
            GUISetState(@SW_SHOW)
            GUISetBkColor(0x0099CC)[/b]

$choix_prepa = GUICtrlCreateLabel("Quelles statistiques souhaitez-vous entrer :", 5, 10, 300, 20)
                GUICtrlSetColor($choix_prepa, 0x0000CC)
                GUICtrlSetFont($choix_prepa, 12, 800, "", "Monotype Corsiva")


$prepa_mensuelle = GUICtrlCreateButton("Mensuelles", 85, 50, 120, 30)
                    GUICtrlSetColor($prepa_mensuelle, 0xff0000)
                    GUICtrlSetBkColor($prepa_mensuelle, 0x000000)
                    GUICtrlSetFont($prepa_mensuelle, 12, 400, "", "Comic Sans MS")
        
                $prepa_trim = GUICtrlCreateButton("Trimestrielles", 85, 90, 120, 30)
                    GUICtrlSetColor($prepa_trim, 0xff0000)
                    GUICtrlSetBkColor($prepa_trim, 0x000000)
                    GUICtrlSetFont($prepa_trim, 12, 400, "", "Comic Sans MS")
                
                
                [b]$prepa_retour = GUICtrlCreateButton("Retour", 100, 140, 90, 30)
                    GUICtrlSetColor($prepa_retour, 0xffffff)
                    GUICtrlSetBkColor($prepa_retour, 0x606060)
                    GUICtrlSetFont($prepa_retour, 14, 800, "", "Comic Sans MS")[/b]

TaPuZ · #2

Bonjour.
Pour ma part, mis à part les wend et endswitch de la fin, j'aurais organisé le script un peu différemment.
Par exemple, quand on clique sur $prepa, au lieu d'afficher directement le nouveau menu, j'aurais appelé une nouvelle fonction MenuPrepa().
Dedans, j'organiserai alors à nouveau le tout (que ce soit une fenêtre fille ou pas), et ainsi de suite.
Comme cela, je laisse toujours la possibilité dans une fenêtre de cliquer sur la croix du haut, ou sur un bouton de sortie, et de ne fermer que cette fenêtre en retournant au menu (via une fonction) précédent...
Si cela se trouve, je dis une bêtise, mais c'est ainsi que je l'aurai fait, me permettant même par la suite de complexifier le script à loisir, sans avoir à trop reflechir sur les imbrications de boucles, par exemple...

Wink · #3

Effectivement, c'est une bonne idée !

Mais comme je suis un flemmard, je n'ai pas envie de tout réorganiser, parce que j'ai juste donné un extrait du code... l'original est vraiment très (trop) lourd !
Et c'est à cause de mon manque de logique d'ailleurs, si j'avais un peu plus réfléchis, j'aurais mieux organisé mon code, par exemple de la manière dont vous le suggérez.

M'enfin passons, n'existe t-il donc pas un moyen de fermer "juste" cette fenêtre intermédiaire, sans pour autant tout réorganiser ?

Merci d'avance !

jumby · #4

Ceci est une possibilité, mais je doute que ce soit pas assez pratique pour vous :

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <Excel.au3>
AutoItSetOption ( "GUIOnEventMode" , 1 )
Global $menu_prepa
Global $Largeur = 400, $Hauteur = 280, $Titre = "Statistikor "
Local $Ver = "v1.0"

$stats = GUICreate($Titre & $Ver, $Largeur, $Hauteur, 50, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exiit")
GUISetState(@SW_SHOW)
GUISetBkColor(0x0060C0)

$welcome = GUICtrlCreateLabel("Veuillez choisir un service, svp :", 8, 20, 300, 20)
GUICtrlSetColor($welcome, 0x000000)
GUICtrlSetFont($welcome, 15, 800, "", "Monotype Corsiva")


$prepa = GUICtrlCreateButton("Préparation", 270, 60, 100, 30)
GUICtrlSetOnEvent(-1, "prepapressed")
GUICtrlSetColor($prepa, 0xff0000)
GUICtrlSetBkColor($prepa, 0x000000)
GUICtrlSetFont($prepa, 12, 400, "", "Comic Sans MS")

$stock = GUICtrlCreateButton("Stock", 270, 100, 100, 30)
GUICtrlSetColor($stock, 0xff0000)
GUICtrlSetBkColor($stock, 0x000000)
GUICtrlSetFont($stock, 12, 400, "", "Comic Sans MS")

$achats = GUICtrlCreateButton("Achats", 270, 140, 100, 30)
GUICtrlSetColor($achats, 0xff0000)
GUICtrlSetBkColor($achats, 0x000000)
GUICtrlSetFont($achats, 12, 400, "", "Comic Sans MS")

$SAV = GUICtrlCreateButton("SAV", 270, 180, 100, 30)
GUICtrlSetColor($SAV, 0xff0000)
GUICtrlSetBkColor($SAV, 0x000000)
GUICtrlSetFont($SAV, 12, 400, "", "Comic Sans MS")


$exit = GUICtrlCreateButton("Quitter", 85, 220, 100, 30)
GUICtrlSetColor($exit, 0xffffff)
GUICtrlSetBkColor($exit, 0x606060)
GUICtrlSetFont($exit, 14, 800, "", "Comic Sans MS")

func _deletegui()
GUIDelete($menu_prepa)
EndFunc

func _exiit()
    Exit
    EndFunc

func prepapressed()
$menu_prepa = GUICreate("Service Préparation", 300, 200, 440, 340)
GUISetOnEvent($GUI_EVENT_CLOSE, "_deletegui")
GUISetState(@SW_SHOW)
GUISetBkColor(0x0099CC)
$choix_prepa = GUICtrlCreateLabel("Quelles statistiques souhaitez-vous entrer :", 5, 10, 300, 20)
GUICtrlSetColor($choix_prepa, 0x0000CC)
GUICtrlSetFont($choix_prepa, 12, 800, "", "Monotype Corsiva")


$prepa_mensuelle = GUICtrlCreateButton("Mensuelles", 85, 50, 120, 30)
GUICtrlSetColor($prepa_mensuelle, 0xff0000)
GUICtrlSetBkColor($prepa_mensuelle, 0x000000)
GUICtrlSetFont($prepa_mensuelle, 12, 400, "", "Comic Sans MS")

$prepa_trim = GUICtrlCreateButton("Trimestrielles", 85, 90, 120, 30)
GUICtrlSetColor($prepa_trim, 0xff0000)
GUICtrlSetBkColor($prepa_trim, 0x000000)
GUICtrlSetFont($prepa_trim, 12, 400, "", "Comic Sans MS")


$prepa_retour = GUICtrlCreateButton("Retour", 100, 140, 90, 30)
GUICtrlSetColor($prepa_retour, 0xffffff)
GUICtrlSetBkColor($prepa_retour, 0x606060)
GUICtrlSetFont($prepa_retour, 14, 800, "", "Comic Sans MS")
EndFunc

While 1
sleep(100)


WEnd

Wink · #5

Oui la fonction GUIdelete me conviendrait bien, seulement je rencontre un problème :

- Je lance le .exe, mon 1er menu est créé, toujours avec 4 choix (boutons) (+ 1 "quitter")
- Je clique sur l'un des boutons, et à nouveau une fenêtre est créée avec encore 2 choix + 1 choix retour.

-> Lorsque l'on clique sur "retour", qui est un case auquel j'ai donc associé ce GUIdelete, la fenêtre est effectivement fermée, mais je n'ai plus l'opportunité de refaire un choix (cliquer sur un bouton) de mon menu principal (4 boutons + 1 quitter).

Ainsi j'aimerais savoir s'il était possible et comment, de "réactiver" en quelque sorte le menu précédent celui que je viens de "delete" ?
En gros je souhaiterais pouvoir cliquer sur le bouton "retour", ca fermerait cette 2e fenêtre et ensuite je pourrais à nouveau effectuer un choix dans le menu principal.

Merci de votre aide !

jumby · #6

J'ai rajouter le guidelete associé au bouton retour et l'exit associé au bouton quitter.
Cette méthode peut vous paraitre assez lourde puisqu'il ne faut plus passer par la fonction case à cause du guioneventmode, mais il faut définir à chaque fois par quel func passer lorsque l'on clic sur un ctrl avec la fonction : GUIctrlSetOnEvent(-1, "func")
Cette fonction devra être ajouter juste après le guictrl.

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <Excel.au3>
AutoItSetOption ( "GUIOnEventMode" , 1 )
Global $menu_prepa
Global $Largeur = 400, $Hauteur = 280, $Titre = "Statistikor "
Local $Ver = "v1.0"

$stats = GUICreate($Titre & $Ver, $Largeur, $Hauteur, 50, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exiit")
GUISetState(@SW_SHOW)
GUISetBkColor(0x0060C0)

$welcome = GUICtrlCreateLabel("Veuillez choisir un service, svp :", 8, 20, 300, 20)
GUICtrlSetColor($welcome, 0x000000)
GUICtrlSetFont($welcome, 15, 800, "", "Monotype Corsiva")


$prepa = GUICtrlCreateButton("Préparation", 270, 60, 100, 30)
GUICtrlSetOnEvent(-1, "prepapressed")
GUICtrlSetColor($prepa, 0xff0000)
GUICtrlSetBkColor($prepa, 0x000000)
GUICtrlSetFont($prepa, 12, 400, "", "Comic Sans MS")

$stock = GUICtrlCreateButton("Stock", 270, 100, 100, 30)
GUICtrlSetColor($stock, 0xff0000)
GUICtrlSetBkColor($stock, 0x000000)
GUICtrlSetFont($stock, 12, 400, "", "Comic Sans MS")

$achats = GUICtrlCreateButton("Achats", 270, 140, 100, 30)
GUICtrlSetColor($achats, 0xff0000)
GUICtrlSetBkColor($achats, 0x000000)
GUICtrlSetFont($achats, 12, 400, "", "Comic Sans MS")

$SAV = GUICtrlCreateButton("SAV", 270, 180, 100, 30)
GUICtrlSetColor($SAV, 0xff0000)
GUICtrlSetBkColor($SAV, 0x000000)
GUICtrlSetFont($SAV, 12, 400, "", "Comic Sans MS")


$exit = GUICtrlCreateButton("Quitter", 85, 220, 100, 30)
GUICtrlSetOnEvent(-1, "_exiit")
GUICtrlSetColor($exit, 0xffffff)
GUICtrlSetBkColor($exit, 0x606060)
GUICtrlSetFont($exit, 14, 800, "", "Comic Sans MS")




func _deletegui()
GUIDelete($menu_prepa)
EndFunc

func _exiit()
    Exit
    EndFunc

func prepapressed()
$menu_prepa = GUICreate("Service Préparation", 300, 200, 440, 340)
GUISetOnEvent($GUI_EVENT_CLOSE, "_deletegui")
GUISetState(@SW_SHOW)
GUISetBkColor(0x0099CC)
$choix_prepa = GUICtrlCreateLabel("Quelles statistiques souhaitez-vous entrer :", 5, 10, 300, 20)
GUICtrlSetColor($choix_prepa, 0x0000CC)
GUICtrlSetFont($choix_prepa, 12, 800, "", "Monotype Corsiva")


$prepa_mensuelle = GUICtrlCreateButton("Mensuelles", 85, 50, 120, 30)
GUICtrlSetColor($prepa_mensuelle, 0xff0000)
GUICtrlSetBkColor($prepa_mensuelle, 0x000000)
GUICtrlSetFont($prepa_mensuelle, 12, 400, "", "Comic Sans MS")

$prepa_trim = GUICtrlCreateButton("Trimestrielles", 85, 90, 120, 30)
GUICtrlSetColor($prepa_trim, 0xff0000)
GUICtrlSetBkColor($prepa_trim, 0x000000)
GUICtrlSetFont($prepa_trim, 12, 400, "", "Comic Sans MS")


$prepa_retour = GUICtrlCreateButton("Retour", 100, 140, 90, 30)
GUIctrlSetOnEvent(-1, "_deletegui")
GUICtrlSetColor($prepa_retour, 0xffffff)
GUICtrlSetBkColor($prepa_retour, 0x606060)
GUICtrlSetFont($prepa_retour, 14, 800, "", "Comic Sans MS")
EndFunc

While 1
sleep(100)
WEnd

Wink · #7

Le problème c'est que ca m'oblige à refaire mes 1000 et quelques lignes...
Pas la motive

jumby · #8

Allé un peu de courage, 1000 lignes c'est pas grand chose.
Donne moi ton script si tu veux j'ai rien à faire en ce moment...

Wink · #9

Très bien.....

Le voici en pièce jointe !

Ah et une dernière chose : MERCI !

Wink · #10

J'en ai marre de ce script !!!!!

Je viens juste de rajouter quelque lignes et me voila avec l'erreur suivante :

Code : Tout sélectionner

C:\Users\vista\Desktop\AutoIt\Statistiques\Statistikorv1.au3 (1871) : ==> "Case" statement with no matching "Select"or "Switch" statement.: 
Case $stock

Alors qu'il ne posait pas de problème jusqu'à maintenant.....

J'commence à avoir le cerveau en compote à force de m'acharner la-dessus...
J'implore votre aide pour m'aider à résoudre ce mystère supplémentaire !

Je joins le script en entier.............

Merci beaucoup

jumby · #11

Il te manque le While 1 et le Switch à la fin (line 1870) :

Code : Tout sélectionner

While 1     
Switch      
    Case $stock
        
        
    Case $achats
        
        
    Case $SAV
    
        
    Case $exit
    Exit
    
    
; -----  Fin du switch et de la boucle "Service" ---------------------------------------------------------------------------------------------------
        
        
    EndSwitch
    
WEnd

Y a encore une erreur pour le case $prepa_trim tu n'as pas du déclarer la variable avant.

Wink · #12

Et pourtant non parce qu'ils sont lignes 185 et 188 :

Code : Tout sélectionner

; ----- I.4  Création d'une boucle "attente de saisie" pour le choix du service -----------------------------------------------------------------------


While 1
    $nMsg = GUIGetMsg()
    
    Switch $nMsg
        
    Case $GUI_EVENT_CLOSE
    Exit
        
    Case $prepa

Même chose pour le case $prepa_trim que j'ai bien déclaré ligne 221 :

Code : Tout sélectionner

; ----- II.2  Création des 2 boutons "choix de la périodicité" + 1 bouton retour ----------------------------------------------------------------------

            
                $prepa_mensuelle = GUICtrlCreateButton("Mensuelles", 85, 50, 120, 30)
                    GUICtrlSetColor($prepa_mensuelle, 0xff0000)
                    GUICtrlSetBkColor($prepa_mensuelle, 0x000000)
                    GUICtrlSetFont($prepa_mensuelle, 12, 400, "", "Comic Sans MS")
        
                $prepa_trim = GUICtrlCreateButton("Trimestrielles", 85, 90, 120, 30)
                    GUICtrlSetColor($prepa_trim, 0xff0000)
                    GUICtrlSetBkColor($prepa_trim, 0x000000)
                    GUICtrlSetFont($prepa_trim, 12, 400, "", "Comic Sans MS")
                
                
                $prepa_retour = GUICtrlCreateButton("Retour", 100, 140, 90, 30)
                    GUICtrlSetColor($prepa_retour, 0xffffff)
                    GUICtrlSetBkColor($prepa_retour, 0x606060)
                    GUICtrlSetFont($prepa_retour, 14, 800, "", "Comic Sans MS")

Je ne comprends pas d'où viennent ces erreurs, surtout que mon programme marchait bien avant que je ne rajoute les case $janvier, $février, $mars etc.. pour les années 2010, 2011 et 2012...

MOI PAS COMPRENDRE !!!

jumby · #13

Voici ton script modifié pour permettre le retour en arrière sans tout quitter. Il faudra poursuivre la même structure et logique pour les autres années si tu comptes les faire.

Wink · #14

Super merci beaucoup ça marche nickel !!!

Par contre, pourrais-tu me dire d'ou vient l'erreur, cf nos messages précédents stp :

Ta réponse :

► Afficher le texte

Ma réponse :

► Afficher le texte

Merci beaucoup en tout cas, encore une fois !

jumby · #15

Une petit rajout de Switch au milieu de ton script causait l'erreur.

Wink · #16

Bon ben encore une fois....

UN GRAND MERCI !

Cordialement,

Wink-

AutoIt Français

[R] Fermeture fenêtre intermédiaire

[R] Fermeture fenêtre intermédiaire

Re: Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire

Re: [..] Fermeture fenêtre intermédiaire