ExitLoop
Publicado: 23 Nov 2009, 19:07
¿Cómo puedo indicar a For-Next que salga del bucle con ExitLoop y se pueda cerrar la ventana?
Código: Seleccionar todo
#Include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Clock ", 450, 200, 192, 124);$WS_POPUPWINDOW)
GUISetBkColor(0x000000)
$font = "Comic Sans MS"
$Lh = GUICtrlCreateLabel (@HOUR, 190, 100, 15,15)
GUICtrlSetColor(-1,0xE00000)
GUICtrlSetFont(-1, 10, 400 , $font)
GUICtrlCreateLabel (":", 210, 100, 5,15)
GUICtrlSetColor(-1,0xE00000)
GUICtrlSetFont(-1, 10, 400 , $font)
$Lm = GUICtrlCreateLabel (@MIN, 220, 100,15,15)
GUICtrlSetColor(-1,0xE00000)
GUICtrlSetFont(-1, 10, 400 , $font)
GUICtrlCreateLabel (":", 240, 100, 5,15)
GUICtrlSetColor(-1,0xE00000)
GUICtrlSetFont(-1, 10, 400 , $font)
$Ls = GUICtrlCreateLabel (@SEC, 250, 100,15,20)
GUICtrlSetColor(-1,0xE00000)
GUICtrlSetFont(-1, 10, 400 , $font)
GUISetState(@SW_SHOW)
Do
$nMsg = GUIGetMsg()
$Sec = @SEC
For $Sec = 01 to 59 Step 1
Sleep (1000)
GUICtrlSetData($Ls,@SEC)
If $nMsg = $GUI_EVENT_CLOSE Then ExitLoop (2)
Next
Until $nMsg = $GUI_EVENT_CLOSE