[R] Fermé une Gui parmis d'autre.

[locos974]

Bonjour,

J'ai crée un petit tools pour un amis.
Et mon problème est qu'on peux ouvrir plusieurs Gui, grâce à 2 bouton ( chacun ouvre 1 Gui ) et donc avec la 'X' croix rouge en haut a droit ( $GUI_EVENT_CLOSE ) pour fermer que celle-ci est non les autres.

Mon script se compose d'une fenêtre principale avec les deux boutons.
Et les autres se sont des Func avec une GuiCreate et une Boucle.

Merci d'avance. Cordialement Locos974.

[FireFox]

Bonsoir,
Je ne comprend pas trop ton problème, si tu veux que les autres se ferment avec la fenêtre principale, tu as juste à les cacher lorsque tu caches la principale.

Cdlt, FireFox.

[mikell]

Hum je vois (sujet traité quelques dizaines de fois)
Tu veux pouvoir fermer les gui séparément, c'est ça ?
Faut utiliser le paramètre de GuiGetMsg et faire ta boucle comme ça, mais attention, pas d'autre boucle While ailleurs ake sinon ça va merder et il faudra alors passer en mode OnEvent

► Afficher le texte

Code : Tout sélectionner

While 1
  $msg = GuiGetMsg(1)
  Switch $msg[0]
    Case $GUI_EVENT_CLOSE
          Switch $msg[1]
             Case $gui_principale
                 Exit   ; ou GuiDelete($gui_principale)
             Case $gui_fille1
                 GuiDelete($gui_fille1)
             Case $gui_fille2
                 GuiDelete($gui_fille2)
         EndSwitch
    Case $bouton1
           ; ...... (ouvre $gui_fille1)...
    Case $bouton2
           ; ...... (ouvre $gui_fille2)...
  EndSwitch
Wend

[TommyDDR]

Si vous débutez, oubliez GUIGetMsg(), comme l'a dit Mikell, utilisez le mode OnEvent.

[mikell]

Exemple équivalent en mode OnEvent

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

$parent1 = GUICreate("Parent1")
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)
$parent2 = GUICreate("Parent2")
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)
$parent3 = GUICreate("Parent3")
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)

While 1
    Sleep(10)
WEnd

Func SpecialEvents()
    Select
        Case @GUI_CtrlId = $GUI_EVENT_CLOSE
        If @GUI_WinHandle =  $parent1 Then Exit
        If @GUI_WinHandle =  $parent2 Then GuiDelete( $parent2)
        If @GUI_WinHandle =  $parent3 Then GuiDelete( $parent3)
  EndSelect
EndFunc  
 

@TommyDDR
Le problème quand on débute c'est que tous les exemples du fichier d'aide dans la rubrique "Gui Management" sont construits avec des boucles GuiGetMsg, donc vaut ptêt mieux apprendre à maîtriser ça avant de s'attaquer au mode OnEvent (même si celui-ci est effectivement bien meilleur)

[locos974]

Merci de toute vos réponse !

Hum je vois (sujet traité quelques dizaines de fois)
Tu veux pouvoir fermer les gui séparément, c'est ça ?
Faut utiliser le paramètre de GuiGetMsg et faire ta boucle comme ça, mais attention, pas d'autre boucle While ailleurs ake sinon ça va merder et il faudra alors passer en mode OnEvent

Ceci je l'avais déjà interprété mais cela provoque un 'bug'. Je ne peux plus appuyer sur un bouton ou quitter la fenêtre,.. En gros le script est considéré sur PAUSE.

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin
#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>

$NPCCreator = GUICreate("NPC Creator by GaMeR", 322, 139, -1, -1)
GUISetBkColor(0xC8C8C8)
$Group1 = GUICtrlCreateGroup("Créations NPCs : ", 8, 8, 305, 105)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x808000)
$Button1 = GUICtrlCreateButton("NPC Templates", 24, 26, 233, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("NPC Réponse Actions", 24, 71, 233, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Version : 1.0", 8, 116, 102, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("By GaMeR", 240, 116, 78, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x808000)
$Button3 = GUICtrlCreateButton("Config", 260, 27, 48, 78, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GuiDelete($NPCCreator)
        Case $Button1 ; Ouvre une Nouvelle GUI.
            _NPCTemplate()
        Case $Button2 ; Ouvre une Nouvelle GUI
            _NPCReponseAction()
        Case $Button3
            _FileCreate(@ScriptDir&"\Config.ini")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_T","npc_template")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_Q","npc_questions")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_RA","npc_reponses_actions")
            ShellExecute(@ScriptDir&"\Config.ini")
    EndSwitch
WEnd

; ...

Voilà mon code source. Sauf que j'aimerais que si j'appuie sur la croix rouge de la Gui NPCTemplate, sa supprime celle ci. Et idem pour l'autre.
Je vais essayer pour le OnEvent.

[FireFox]

Hm... ca marche bien chez moi, ça doit venir de tes fonctions NCP qui doivent contenir un loop.

Edit : Je pense que tu veux que le script se ferme quand tu fermes la fenêtre?
Dans ce cas ajoute un Exit après ton GUIDelete.

Cdlt, FireFox.

[mikell]

Question
Si les 2 nouvelles gui contiennent des controles (boutons...) , où est-ce que ces controles sont gérés ?

[locos974]

Dans une Func soit :
Func NPCTemplate()
Toute la gui..

While 1
Switch $nMsg
$nMsg = GuiGetMsg()

Case $botton1
...

EndSwitch
Wend
Endfunc

[FireFox]

Il faut que tu regroupes tes While dans le principal en utilisant le code fourni par mikell au post #2.

Cdlt, FireFox.

[mikell]

Qu'est-ce que ça peut être gonflant les gens qui répondent sans avoir lu le post ...

Faut utiliser le paramètre de GuiGetMsg et faire ta boucle comme ça, mais attention, pas d'autre boucle While ailleurs ake sinon ça va merder

Donc
1) tu dois gérer tous les controles de toutes les gui dans une seule boucle While
2) pour faire ça tu utilises GuiGetMsg(1) en suivant le modèle de mon 1er post que tu as lu en travers et trop vite

Edit
@FireFox, c'est pas à toi que je dis ça

[locos974]

Voilà :

Code : Tout sélectionner

While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
        Case $GUI_EVENT_CLOSE
            Switch $nMSG[1]
            Case $NPCTemplate
                GuiDelete($NPCTemplate)
            Case $NPCRA
                GuiDelete($NPCRA)
            Case $NPCCreator
                GuiDelete($NPCCreator)
            EndSwitch
        Case $Button1
            _NPCTemplate()
        Case $Button2
            _NPCReponseAction()
        Case $Button3
            _FileCreate(@ScriptDir&"\Config.ini")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_T","npc_template")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_Q","npc_questions")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_RA","npc_reponses_actions")
            ShellExecute(@ScriptDir&"\Config.ini")

    EndSwitch
WEnd

Ceci est la boucle de la première Gui qui permet d'ouvrir les deux autres suivantes.
Mais une question, les autres fonctions de mes autres Gui, je l'est met aussi dans la première While ?

Fin.. Je n'est pas trop compris le système que vous voulez interprété.

[FireFox]

Edit
@FireFox, c'est pas à toi que je dis ça

Au premier abord j'y ai cru mais en lisant le reste j'ai compris

Et c'est moi ou locos974 ne s'exprime pas bien car là une fois sur deux j'étais à côté de la plaque

[FireFox]

Bon on va récapituler...

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

$GUI_1 = GUICreate("MyGUI 1")
$btn1 = GUICtrlCreateButton("Button", 10, 10, 80, 22)
GUISetState()

$GUI_2 = GUICreate("MyGUI 2")
$btn2 = GUICtrlCreateButton("Button", 10, 10, 80, 22)
GUISetState()

$GUI_3 = GUICreate("MyGUI 3")
$btn3 = GUICtrlCreateButton("Button", 10, 10, 80, 22)
GUISetState()

While 1
    $aMsg = GUIGetMsg(1)

    Switch $aMsg[1]
        Case $GUI_1
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($GUI_1)
                Case $btn1
                    ConsoleWrite("Button GUI_1" & @CrLf)
            EndSwitch
        Case $GUI_2
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($GUI_2)
                Case $btn2
                    ConsoleWrite("Button GUI_2" & @CrLf)
            EndSwitch
        Case $GUI_3
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($GUI_3)
                Case $btn3
                    ConsoleWrite("Button GUI_3" & @CrLf)
            EndSwitch
    EndSwitch

    Sleep(10)
WEnd
 

Tu peux aussi inverser les switchs comme l'a fait mikell dans son 2ème post.

Cdlt, FireFox.

[mikell]

Oui, par exemple comme ça

► Afficher le texte

Code : Tout sélectionner

While 1
$nMsg = GUIGetMsg(1)

    Switch $nMsg[0]
        Case $GUI_EVENT_CLOSE
            Switch $nMsg[1]
                 Case $NPCTemplate
                    GuiDelete($NPCTemplate)
                 Case $NPCRA
                    GuiDelete($NPCRA)
                 Case $NPCCreator
                    GuiDelete($NPCCreator)
            EndSwitch
        Case $Button1
            _NPCTemplate()
        Case $Button2
            _NPCReponseAction()
        Case $Button3
            _FileCreate(@ScriptDir&"\Config.ini")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_T","npc_template")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_Q","npc_questions")
            IniWrite(@ScriptDir&"\Config.ini","DataBase","NPC_RA","npc_reponses_actions")
            ShellExecute(@ScriptDir&"\Config.ini")
    EndSwitch

If WinExists($NPCTemplate) Then
    Switch $nMsg[0]
        Case $Button1_delagui_NPCTemplate
              ; ......
        Case $Button2_delagui_NPCTemplate
              ; ......
    EndSwitch
EndIf

If WinExists($NPCRA) Then
    Switch $nMsg[0]
        Case $Button1_delagui_NPCRA
              ; ......
    EndSwitch
EndIf

WEnd
 

[locos974]

Sauf que je ne veux pas que les 3 Guis se lance toute d'un coup.

[FireFox]

T'es pas obligé des toutes les afficher, tu les laisses à l'état par défaut qui est "HIDE" (caché) et quand tu en as besoin tu les affiches avec un GUISetState($taGUI, @SW_SHOW)

Tu peux aussi déclarer les variables des éléments contenus par la GUI + la GUI et la créer ensuite pour éviter les erreurs de variable non déclarée.

Cdlt, FireFox.

[locos974]

Pas bête l'idée de la cachée j'avais pas pensé !
Je vais essayer sa.

[mikell]

ça marchera mais j'aime pas bien le principe de tout balancer d'un coup en gérant ensuite juste la visibilité

Et c'est moi ou locos974 ne s'exprime pas bien car là une fois sur deux j'étais à côté de la plaque

Bin ça serait bien qu'il comprenne les concepts qu'on essaie de lui expliquer, parce que là j'ai l'impression confuse que ça rentre pas

[FireFox]

ça marchera mais j'aime pas bien le principe de tout balancer d'un coup en gérant ensuite juste la visibilité

Ca n'a pas de sens si tu as besoin de te servir des fenêtres à des moments différents, car si je suis ce que tu dis, tu devras à chaque fois recréer la fenêtre et ensuite la supprimer ce qui là n'est pas top (à mon goût) !