Page 1 sur 1

[R] WinClose ne fonctionne pas

Posté : ven. 24 oct. 2008 16:54
par 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

Re: [..] WinClose ne fonctionne pas

Posté : ven. 24 oct. 2008 17:42
par 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

Re: [R] WinClose ne fonctionne pas

Posté : ven. 24 oct. 2008 17:55
par zozozac
Parfait ça fonctionne, merci :D

Re: [R] WinClose ne fonctionne pas

Posté : ven. 24 oct. 2008 19:53
par 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? ^^

Re: [R] WinClose ne fonctionne pas

Posté : ven. 24 oct. 2008 20:56
par jbnh

Code : Tout sélectionner

Case $msg = $GUI_EVENT_CLOSE
                Exit

Re: [..] WinClose ne fonctionne pas

Posté : dim. 26 oct. 2008 12:19
par 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"