#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
Global $hGui, $oDict = ObjCreate("Scripting.Dictionary")
_TestGui()
While 1
Sleep(100)
WEnd
Func _TestGui()
Opt("GUIOnEventMode", 1)
$hGui = GUICreate("GUI без глобальных переменных", 380, 120, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_EXIT")
$oDict.Item("Input") = GUICtrlCreateInput("Опрос элементов", 10, 15, 360, 20)
$oDict.Item("CheckBx") = GUICtrlCreateCheckbox("Checkbox", 10, 40)
$oDict.Item("BtnOk") = GUICtrlCreateButton("OK", (380 - 70) / 2, 80, 70, 26)
GUICtrlSetOnEvent(-1, "_Auslesen")
GUISetState()
EndFunc
Func _Auslesen()
$sText = "Input = " & GUICtrlRead($oDict.Item("Input")) & @CRLF & _
"Checkbox = "& BitAND(GUICtrlRead($oDict.Item("CheckBx")),$GUI_CHECKED) & @CRLF & _
"ID-Кнопки = " & $oDict.Item("BtnOk")
MsgBox(0, "Результат", $sText, 0, $hGui)
EndFunc
Func _EXIT()
GUIDelete($hGui)
$oDict.RemoveAll()
If MsgBox(4, "Проверка существования элементов", "Cуществование ID-Кнопки = "& $oDict.Exists("BtnOk") & @CRLF & _
"Желаете запустить программу снова?") = 6 Then
_TestGui()
Else
Exit
EndIf
EndFunc