Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)

Модерирует : gyra, Maz

Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

sproxy



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору


Код:
#include <GuiConstantsEx.au3>
 
Global $hGUI_1, $hGUI_2, $hGUI_3
Global $nGUI_1_Button, $nGUI_2_Checkbox, $nGUI_3_Button, $nGUI_3_Input
 
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
Opt("GUIOnEventMode", 1)
TraySetClick(16)
 
$Func_1_TrayItem = TrayCreateItem("Функция №1")
TrayItemSetOnEvent(-1, "_GUICreate_Func_1")
$Func_2_TrayItem = TrayCreateItem("Функция №2")
TrayItemSetOnEvent(-1, "_GUICreate_Func_2")
$Func_3_TrayItem = TrayCreateItem("Функция №3")
TrayItemSetOnEvent(-1, "_GUICreate_Func_3")
TrayCreateItem("")
$Exit_TrayItem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_exit")
 
While 1
  Sleep(1000)
WEnd
 
Func
_GUICreate_Func_1()
  Local $iOldEvent = Opt("GUIOnEventMode", 1)
  ToolTip("")
  $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("")
  $hGUI_2 = GUICreate("Функция №2", 300, 120, 350, 300)
  $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 _GUICreate_Func_3()
  Local $iOldEvent = Opt("GUIOnEventMode", 1)
  ToolTip("")
  $hGUI_3 = GUICreate("Функция №3", 300, 120, 350, 450)
  $nGUI_3_Input = GUICtrlCreateInput("Строка", 20, 10, 260, 20)
  $nGUI_3_Button = GUICtrlCreateButton("Показать ввод", 20, 40, 120, 20)
  GUISetOnEvent(-1, "_button3")
  GUISetOnEvent($GUI_EVENT_CLOSE, "_closefrm")
  GUISetState(@SW_SHOW)
  Opt("GUIOnEventMode", $iOldEvent)
EndFunc   ;==>_GUICreate_Func_3
 
Func _exit()
  Exit
EndFunc
  ;==>_exit
 
Func _button1()
  ToolTip("Вы нажали Кнопку.", -1, -1, "Инфо", 1)
EndFunc   ;==>_button1
 
Func _button3()
  ToolTip("Вы ввели: " & GUICtrlRead($nGUI_3_Input), -1, -1, "Инфо", 1)
EndFunc   ;==>_button3
 
Func _closefrm()
  ToolTip("")
  GUISetState(@SW_HIDE, @GUI_WinHandle)
  GUIDelete(@GUI_WinHandle)
EndFunc   ;==>_closefrm


Всего записей: 556 | Зарегистр. 21-11-2007 | Отправлено: 16:31 16-04-2009 | Исправлено: sproxy, 16:48 16-04-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)
Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru