| 1 | #include <GUIConstantsEx.au3>
|
|---|
| 2 |
|
|---|
| 3 | #include <Debug.au3>
|
|---|
| 4 | _DebugSetup("Scribe debuger", True)
|
|---|
| 5 |
|
|---|
| 6 | Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
|
|---|
| 7 | $mainwindow = GUICreate("Hello World", 200, 100)
|
|---|
| 8 | GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
|
|---|
| 9 | GUICtrlCreateLabel("Hello world! How are you?", 30, 10)
|
|---|
| 10 | $okbutton = GUICtrlCreateButton("OK", 70, 50, 60)
|
|---|
| 11 | GUICtrlSetOnEvent($okbutton, "OKButton")
|
|---|
| 12 | GUISetState(@SW_SHOW)
|
|---|
| 13 |
|
|---|
| 14 | While 1
|
|---|
| 15 | Sleep(1000) ; Idle around
|
|---|
| 16 | WEnd
|
|---|
| 17 |
|
|---|
| 18 | Func OKButton()
|
|---|
| 19 | ;Note: at this point @GUI_CTRLID would equal $okbutton,
|
|---|
| 20 | ;and @GUI_WINHANDLE would equal $mainwindow
|
|---|
| 21 | MsgBox(0, "GUI Event", "You pressed OK!")
|
|---|
| 22 | EndFunc
|
|---|
| 23 |
|
|---|
| 24 | Func CLOSEClicked()
|
|---|
| 25 | ;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
|
|---|
| 26 | ;and @GUI_WINHANDLE would equal $mainwindow
|
|---|
| 27 | MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
|
|---|
| 28 | Exit
|
|---|
| 29 | EndFunc
|
|---|
