[R] WinClose ne fonctionne pas
Posté : ven. 24 oct. 2008 16:54
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...
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