Comment faire pour quitter la GUI n°2 sans quitter la premiere?
► Afficher le texte
Code : Tout sélectionner
#include <IE.au3>
#NoTrayIcon
#include <GUIConstants.au3>
$Image2 = "\Patientez.jpg"
$url = "http://www.Blabla.com/"
$url3 = "http://www.1234.fr"
$url4 = "http://www.1234.fr"
GUICreate("Patientez", 480, 350) <====GUI 1
GUICtrlCreatePic(@TempDir & $Image2, 0, 0, 480, 350, $SS_CENTERIMAGE)
GUISetBkColor(0x000000)
GUISetFont(10, 50, 1, "Comic Sans MS")
GUICtrlCreateLabel("Label rouge", 250, 270, 200, 25, $BS_CENTER)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetFont(14, 800, 1, "Comic Sans MS")
$Button_1 = GUICtrlCreateLabel("Accès", 260, 320, 120,25, $BS_CENTER)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor(-1, 0)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
GUICreate("Patientez", 480, 350) <======= GUI 2
GUICtrlCreatePic(@TempDir & $Image2, 0, 0, 480, 350, $SS_CENTERIMAGE)
GUISetBkColor(0x000000)
GUISetFont(10, 50, 1, "Comic Sans MS")
GUICtrlCreateLabel("Label rouge", 250, 270, 200, 25, $BS_CENTER)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetFont(14, 800, 1, "Comic Sans MS")
$Button_1 = GUICtrlCreateLabel("Accès", 260, 320, 120,25, $BS_CENTER)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor(-1, 0)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
Run(@ComSpec & " /c start file:" & $url, "", @SW_HIDE)
ExitLoop
EndSelect
WEnd
EndSelect
WEnd