wellic
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
main.au3
Код: #include-once
#include "common.au3"
#include "form3.au3"
Opt("MustDeclareVars", 1)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
Opt("GUIOnEventMode", 1)
TraySetClick(16)
Local $Func_1_TrayItem = TrayCreateItem("Функция №1")
TrayItemSetOnEvent(-1, "_GUICreate_Func_1")
Local $Func_2_TrayItem = TrayCreateItem("Функция №2")
TrayItemSetOnEvent(-1, "_GUICreate_Func_2")
Local $Func_3_TrayItem = TrayCreateItem("Функция №3")
TrayItemSetOnEvent(-1, "_GUICreate_Func_3")
TrayCreateItem("")
Local $Exit_TrayItem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_exit")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $nGUI_3_Input = ' & $nGUI_3_Input & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $nGUI_3_Button = ' & $nGUI_3_Button & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
While 1
Sleep(1000)
WEnd
Func _GUICreate_Func_1()
Local $iOldEvent = Opt("GUIOnEventMode", 1)
ToolTip("")
Local $hGUI_1 = GUICreate("Функция №1", 300, 120, 350, 150)
GUICtrlCreateButton("Кнопка", 20, 40, 60, 20)
;~ GUISetOnEvent(-1, "_button1")
GUICtrlSetOnEvent(-1, "_button1")
GUISetState(@SW_SHOW, $hGUI_1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_closefrm")
Opt("GUIOnEventMode", $iOldEvent)
EndFunc ;==>_GUICreate_Func_1
Func _GUICreate_Func_2()
Local $iOldEvent = Opt("GUIOnEventMode", 0)
ToolTip("")
Local $hGUI_2 = GUICreate("Функция №2", 300, 120, 350, 300)
Local $nGUI_2_Checkbox = GUICtrlCreateCheckbox("Галочка", 20, 40, 60, 20)
GUISetState(@SW_SHOW)
While 1
Local $msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ToolTip("")
GUISetState(@SW_HIDE, $hGUI_2)
GUIDelete($hGUI_2)
ExitLoop
Case $nGUI_2_Checkbox
Local $sCheckbox_Data = "Вы сняли отметку с галочки."
If GUICtrlRead($nGUI_2_Checkbox) == $GUI_CHECKED Then $sCheckbox_Data = "Вы поставили отметку на галочке."
ToolTip($sCheckbox_Data, -1, -1, "Инфо", 1)
EndSwitch
WEnd
Opt("GUIOnEventMode", $iOldEvent)
EndFunc ;==>_GUICreate_Func_2
Func _button1()
ToolTip("Вы нажали Кнопку.", -1, -1, "Инфо", 1)
EndFunc ;==>_button1
Func _exit()
Exit
EndFunc ;==>_exit |
common.au3
Код: #include-once
#include <GuiConstantsEx.au3>
Func _closefrm()
ToolTip("")
GUISetState(@SW_HIDE, @GUI_WinHandle)
GUIDelete(@GUI_WinHandle)
EndFunc ;==>_closefrm |
form3.au3
Код: #include-once
#include "common.au3"
Local $nGUI_3_Button= "test", $nGUI_3_Input= "$test"
Func _GUICreate_Func_3()
Local $iOldEvent = Opt("GUIOnEventMode", 1)
ToolTip("")
Local $hGUI_3 = GUICreate("Функция №3", 300, 120, 350, 450)
$nGUI_3_Input = GUICtrlCreateInput("Строка", 20, 10, 260, 20)
$nGUI_3_Button = GUICtrlCreateButton("Показать ввод", 20, 40, 120, 20)
GUICtrlSetOnEvent(-1, "_button3")
GUISetOnEvent($GUI_EVENT_CLOSE, "_closefrm")
GUISetState(@SW_SHOW, $hGUI_3)
Opt("GUIOnEventMode", $iOldEvent)
EndFunc ;==>_GUICreate_Func_3
Func _button3()
ToolTip("Вы ввели: " & GUICtrlRead($nGUI_3_Input), -1, -1, "Инфо", 1)
EndFunc ;==>_button3 |
|
Всего записей: 339 | Зарегистр. 06-05-2002 | Отправлено: 18:45 16-04-2009 | Исправлено: wellic, 18:48 16-04-2009 |
|
