GUI Help Please

[Aces]

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

GUICreate("Aces GUI", 300, 400)

GUICtrlCreateLabel("This is Aces amateur autoit v3 GUI", 30, 10)

$GUIButton = GUICtrlCreateButton("Click it!", 30, 30)

GUICtrlSetOnEvent($GUIButton, "button")

GUISetState(@SW_Show)

Sleep(5000)

Func button()

MsgBox(0, "Aces Button", "Yay you clicked the button!")

EndFunc

I want the box to stay open, it automatically closes after the sleep time.

How do I keep it open until I close it myself?

[poisonkiller]

EDIT: Look below for Manadar's solution, I didn't see GUIOnEventOption.

Edited June 11, 2007 by poisonkiller

[jvanegmond]

I am assuming you have a good reason for using the event mode. Otherwise, you should consider doing it the default way.

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

GUICreate("Aces GUI", 300, 400)
GUICtrlCreateLabel("This is Aces amateur autoit v3 GUI", 30, 10)
$GUIButton = GUICtrlCreateButton("Click it!", 30, 30)
GUICtrlSetOnEvent($GUIButton, "button")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE,"Close")

While 1
    Sleep(500)
WEnd

Func button()
    MsgBox(0, "Aces Button", "Yay you clicked the button!")
EndFunc   ;==>button

Func Close()
    Exit
EndFunc

[jvanegmond]

Replace Sleep(5000) with this:

While 1
$msg = GuiGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

He is using event mode, and thus GUIGetMsg() does not work.

[poisonkiller]

Wooops, didn't see it. Edited my post too.

[Aces]

Would using the default be simpler? and if so a little point in the right direction please? thank you guys

[Aces]

To create a new control on an existing tabitem use GUISwitch($hWin,$tabitem) to select it and just create your new control. Don't forget to close your tabitem creation with GUICtrlCreateTabItem("").

Is this how you add a GUICtrl into a tab that you have up?

[jvanegmond]

Would using the default be simpler? and if so a little point in the right direction please? thank you guys

#include <GUIConstants.au3>

GUICreate("Aces GUI", 300, 400)
GUICtrlCreateLabel("This is Aces amateur autoit v3 GUI", 30, 10)
$GUIButton = GUICtrlCreateButton("Click it!", 30, 30)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
         Case $GUI_EVENT_CLOSE
               Exit
         Case $GUIButton
               MsgBox(0, "Aces Button", "Yay you clicked the button!")
    EndSwitch
WEnd

[jvanegmond]

Is this how you add a GUICtrl into a tab that you have up?

Yes, it is. You ask your questions well.