[R] WinClose ne fonctionne pas

[zozozac]

Voilà,
je me suis lancé dans un petit projet d'exécution rapide" de petites bricoles,
mais là mes "WinClose ne fonctionne pas :/ pourriez-vous m'aider?
Le premier sur la fenêtre d'ouverture, il fonctionne mais pas les autres...

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

GUICreate("Execution rapide - Ouverture CD", 250, 100)
GUICtrlCreateLabel("Voulez-vous ouvrir votre lecteur CD?", 40, 10)
$ouiouvrir = GUICtrlCreateButton("Oui", 60, 50, 60)
$nonouvrir = GUICtrlCreateButton("Non", 120, 50, 60)
GUISetState(@SW_SHOW)

While 1
  $msg = GUIGetMsg()

  Select
  Case $msg = $ouiouvrir
      WinClose ("Execution rapide - Ouverture CD", "")
      CDTray("D:", "open")
      Sleep( 3000 )
      GUICreate("Execution rapide - Fermeture CD", 250, 100)
      GUICtrlCreateLabel("Voulez-vous fermer votre lecteur CD?", 40, 10)
      $ouiferme = GUICtrlCreateButton("Oui", 60, 50, 60)
      $nonferme = GUICtrlCreateButton("Non", 120, 50, 60)
      GUISetState(@SW_SHOW)
      While 1
      $msg = GUIGetMsg()
      
     Select
      Case $msg = $ouiferme
      CDTray("D:", "close")
      
      Case $msg = $nonferme
        WinClose(" Execution rapide - Fermeture CD", "")
      ExitLoop
      EndSelect
     WEnd 
      
  Case $msg = $nonouvrir      
      WinClose("Execution rapide - Ouverture CD", "")
      
      ExitLoop
  EndSelect
WEnd

[SurPriseS]

Essaye sa :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

$gui_princ = GUICreate("Execution rapide - Ouverture CD", 250, 100)
GUICtrlCreateLabel("Voulez-vous ouvrir votre lecteur CD?", 40, 10)
$ouiouvrir = GUICtrlCreateButton("Oui", 60, 50, 60)
$nonouvrir = GUICtrlCreateButton("Non", 120, 50, 60)
GUISetState(@SW_SHOW)

While 1
  $msg = GUIGetMsg()

  Select
  Case $msg = $ouiouvrir
      WinClose ("Execution rapide - Ouverture CD", "")
      CDTray("D:", "open")
      Sleep( 3000 )
      $gui_2 = GUICreate("Execution rapide - Fermeture CD", 250, 100)
      GUICtrlCreateLabel("Voulez-vous fermer votre lecteur CD?", 40, 10)
      $ouiferme = GUICtrlCreateButton("Oui", 60, 50, 60)
      $nonferme = GUICtrlCreateButton("Non", 120, 50, 60)
      GUISetState(@SW_SHOW)
      While 1
      $msg = GUIGetMsg()
     
     Select
      Case $msg = $ouiferme
      CDTray("D:", "close")
     
      Case $msg = $nonferme
        GUIDelete($gui_2)
      ExitLoop
      EndSelect
     WEnd
     
  Case $msg = $nonouvrir     
        GUIDelete($gui_princ)
     
      ExitLoop
  EndSelect
WEnd

[zozozac]

Parfait ça fonctionne, merci

[zozozac]

Désolé du double post et du hors sujet mais je ne voulais pas postez un autre post pour "polluer"

Quel est le code pour faire fonctionner la croix rouge en haut à droite? ^^

[jbnh]

Code : Tout sélectionner

Case $msg = $GUI_EVENT_CLOSE
                Exit

[tolf]

On peut remplacer

Code : Tout sélectionner

WinClose ("Execution rapide - Ouverture CD", "")

par

Code : Tout sélectionner

WinClose ($gui_princ, "")

au cas où il y aurait plusieurs fenêtres s'appelant "Execution rapide - Ouverture CD"