Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("main", 230, 44, 180, 117)
- $Button1 = GUICtrlCreateButton("Gui 1", 8, 8, 75, 25)
- $Button2 = GUICtrlCreateButton("Gui 2", 136, 8, 75, 25)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Button1
- Gui1()
- Case $Button2
- Gui2()
- EndSwitch
- WEnd
- Func Gui1()
- $Form1 = GUICreate("Form1", 149, 96, 192, 124)
- $Label1 = GUICtrlCreateLabel("Gui 1", 40, 24, 48, 29)
- GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI")
- GUISetState(@SW_SHOW)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- ExitLoop
- EndSwitch
- WEnd
- GUIDelete($Form1)
- EndFunc
- Func Gui2()
- $Form1 = GUICreate("Form1", 149, 96, 192, 124)
- $Label1 = GUICtrlCreateLabel("Gui 2", 40, 24, 48, 29)
- GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI")
- GUISetState(@SW_SHOW)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- ExitLoop
- EndSwitch
- WEnd
- GUIDelete($Form1)
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement