Exit Gui

[Tec]

How can i exit a Gui with a sleep command in Loop ?

#include <GUIConstants.au3>

AdlibEnable("myadlib")

GUICreate("My GUI Button") ; will create a dialog box that when displayed is centered

Opt("GUICoordMode",2)
$Button_1 = GUICtrlCreateButton ("Run Notepad",  10, 30, 100)
$Button_2 = GUICtrlCreateButton ( "Button Test",  0, -1)

GUISetState ()      ; will display an  dialog box with 2 button

; Run the GUI until the dialog is closed
While 1
    

    Sleep(10000)    
Wend

Func myadlib()
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Button_1
            Run('Notepad.exe')    ; Will Run/Open Notepad
        Case $msg = $Button_2
            MsgBox(0, 'Testing', 'Button 2 was pressed')    ; Will demonstrate Button 2 being pressed
    EndSelect   
EndFunc

Is this a way ?

Edited October 31, 2006 by Tec

[jvanegmond]

How can i exit a Gui with a sleep command in Loop ?

what you are looking is called "GUIOnEventMode". Here's an example on how to use this:

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

$parent1 = GUICreate("Parent1")
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")
GUISetState()

While 1
    Sleep(10000)
Wend

Func Terminate()
     Exit
EndFunc

[Tec]

Big thx

Edited October 31, 2006 by Tec

[jvanegmond]

Big thx

Big no problem.