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