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

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

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

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

   

vicbox777



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

Код:
#region: - Option  
Opt('GUIOnEventMode', 1)  
Opt('MustDeclareVars', 1)  
Opt('TrayIconDebug', 0)  
Opt('TrayIconHide', 0)  
Opt('TrayMenuMode', 1)  
Opt('TrayOnEventMode', 1)  
#endregion  
 
#region: - Include  
#include
<GuiComboBox.au3>  
#include <GUIConstantsEx.au3>  
#include <StaticConstants.au3>  
#Include <Timers.au3>  
#include <WindowsConstants.au3>  
#endregion  
 
#region: - Global  
HotKeySet
('{ESC}', '_Pro_Exit')  
AutoItWinSetTitle(
@AutoItPID)  
 
Global $hAutoItWin = WinGetHandle(
@AutoItPID)  
Global $hToolTipTimerID, $hTrayTipTimerID  
#endregion  
 
#region: - Main Win Global, Functions  
Global $hMainWin, $hToolTipTimeShow, $hTrayTipTimeShow  
Global $hMainWinToolTipTimerInfo, $hMainWinTrayTipTimerInfo  
Global $hMainWinToolTipTimerInfoID, $hMainWinTrayTipTimerInfoID  
 
Func
_MainWin_Create()  
Local $i, $sTimeShowString  
For $i=1 To 25  
$sTimeShowString &= $i & ' sec'  
If $i < 25 Then $sTimeShowString &= '|'  
Next  
 
$hMainWin = GUICreate('Sample: Tool and tray tip with my time show', 330, 185, -1, -1)  
GUISetOnEvent($GUI_EVENT_CLOSE, '_Pro_Exit')  
 
; ToolTip  
GUICtrlCreateGroup(' Tool Tip ', 10, 10, 150, 130)  
GUICtrlSetFont(-1, 10, 700)  
 
GUICtrlCreateLabel('Show time:', 20, 35, 150-20, 14)  
$hToolTipTimeShow =
GUICtrlCreateCombo('', 20, 50, 150-20, 25, $CBS_DROPDOWNLIST)  
GUICtrlSetData(-1, $sTimeShowString, '3 sec')  
 
$hMainWinToolTipTimerInfo =
GUICtrlCreateLabel('', 20+75, 35, 50, 14, $SS_RIGHT)  
 
GUICtrlCreateButton('Show', 20, 77, 150-20, 23)  
GUICtrlSetOnEvent(-1, '_MainWin_ToolTip_Create')  
 
GUICtrlCreateButton('Close', 20, 77+25, 150-20, 23)  
GUICtrlSetOnEvent(-1, '_MainWin_ToolTip_Close')  
 
; TrayTip  
GUICtrlCreateGroup(' Tray Tip ', 10+150+10, 10, 150, 130)  
GUICtrlSetFont(-1, 10, 700)  
 
GUICtrlCreateLabel('Show time:', 10+150+20, 35, 150-20, 14)  
$hTrayTipTimeShow =
GUICtrlCreateCombo('', 10+150+20, 50, 150-20, 25, $CBS_DROPDOWNLIST)  
GUICtrlSetData(-1, $sTimeShowString, '3 sec')  
 
$hMainWinTrayTipTimerInfo =
GUICtrlCreateLabel('', 10+150+20+75, 35, 50, 14, $SS_RIGHT)  
 
GUICtrlCreateButton('Show', 10+150+20, 77, 150-20, 23)  
GUICtrlSetOnEvent(-1, '_MainWin_TrayTip_Create')  
 
GUICtrlCreateButton('Close', 10+150+20, 77+25, 150-20, 23)  
GUICtrlSetOnEvent(-1, '_MainWin_TrayTip_Close')  
 
; Exit  
GUICtrlCreateButton('Exit', 330-100-10, 130+10+10, 100, 23)  
GUICtrlSetOnEvent(-1, '_Pro_Exit')  
EndFunc  
 
Func
_MainWin_ToolTip_Create()  
Local $iTimeShow = StringReplace(
GUICtrlRead($hToolTipTimeShow), ' sec', '')  
_ToolTip($iTimeShow, 'Время показа: ' & $iTimeShow & ' sec', 10, 70, 'Tool Tip', 1)  
GUICtrlSetData($hMainWinToolTipTimerInfo, $iTimeShow & ' sec')  
If $hMainWinToolTipTimerInfoID <> '' Then
_Timer_KillTimer($hAutoItWin, $hMainWinToolTipTimerInfoID)  
$hMainWinToolTipTimerInfoID =
_Timer_SetTimer($hAutoItWin, 1000, '_MainWin_ToolTip_TrayTip_Timer_Info')  
EndFunc  
Func
_MainWin_ToolTip_Close()  
_ToolTip_TrayTip_Close('', '', $hToolTipTimerID, '')  
EndFunc  
 
Func
_MainWin_TrayTip_Create()  
Local $iTimeShow = StringReplace(
GUICtrlRead($hTrayTipTimeShow), ' sec', '')  
_TrayTip($iTimeShow, 'Tray Tip', 'Время показа: ' & $iTimeShow & ' sec', 1)  
GUICtrlSetData($hMainWinTrayTipTimerInfo, $iTimeShow & ' sec')  
If $hMainWinTrayTipTimerInfoID <> '' Then
_Timer_KillTimer($hAutoItWin, $hMainWinTrayTipTimerInfoID)  
$hMainWinTrayTipTimerInfoID =
_Timer_SetTimer($hAutoItWin, 1000, '_MainWin_ToolTip_TrayTip_Timer_Info')  
EndFunc  
Func
_MainWin_TrayTip_Close()  
_ToolTip_TrayTip_Close('', '', $hTrayTipTimerID, '')  
EndFunc  
 
Func
_MainWin_ToolTip_TrayTip_Timer_Info($hWnd, $Msg, $iIDTimer, $dwTime)  
Switch $iIDTimer  
Case $hMainWinToolTipTimerInfoID  
Local $iTimeShow = StringReplace(
GUICtrlRead($hMainWinToolTipTimerInfo), ' sec', '')  
GUICtrlSetData($hMainWinToolTipTimerInfo, $iTimeShow-1 & ' sec')  
 
Case $hMainWinTrayTipTimerInfoID  
Local $iTimeShow = StringReplace(
GUICtrlRead($hMainWinTrayTipTimerInfo), ' sec', '')  
GUICtrlSetData($hMainWinTrayTipTimerInfo, $iTimeShow-1 & ' sec')  
 
EndSwitch  
EndFunc  
#endregion  
 
#region: - Main Tray Global, Functions  
Global $hMainTray  
 
Func
_MainTray_Crate()  
TraySetClick(1+8)  
 
TrayCreateItem('Exit')  
TrayItemSetOnEvent(-1, '_Pro_Exit')  
EndFunc  
#endregion  
 
#region: - After creating all GUI  
_MainWin_Create()  
_MainTray_Crate()  
 
GUISetState(@SW_SHOW, $hMainWin)  
TraySetState(1)  
#endregion  
 
#region: - Sleep, Exit  
While 1  
Sleep
(10)  
WEnd  
 
Func
_Pro_Exit()  
Exit  
EndFunc  
#endregion  
 
#region: - ToolTip and TrayTip  
Func _ToolTip($iTimeShow, $sText, $iX=Default, $iY=Default, $sTitle=Default, $iIcon=Default, $iOptions=Default)  
If $hToolTipTimerID <> '' Then
_Timer_KillTimer($hAutoItWin, $hToolTipTimerID)  
ToolTip($sText, $iX, $iY, $sTitle, $iIcon, $iOptions)  
$hToolTipTimerID =
_Timer_SetTimer($hAutoItWin, $iTimeShow*1000, '_ToolTip_TrayTip_Close')  
EndFunc  
 
Func
_TrayTip($iTimeShow, $sTitle, $sText, $iIcon=Default)  
If $hTrayTipTimerID <> '' Then
_Timer_KillTimer($hAutoItWin, $hTrayTipTimerID)  
TrayTip($sTitle, $sText,
Default, $iIcon)  
$hTrayTipTimerID =
_Timer_SetTimer($hAutoItWin, $iTimeShow*1000, '_ToolTip_TrayTip_Close')  
EndFunc  
 
Func
_ToolTip_TrayTip_Close($hWnd, $Msg, $iIDTimer, $dwTime)  
Switch $iIDTimer  
Case $hToolTipTimerID  
_Timer_KillTimer($hAutoItWin, $hToolTipTimerID)  
$hToolTipTimerID = ''  
ToolTip('')  
_Timer_KillTimer($hAutoItWin, $hMainWinToolTipTimerInfoID)  
$hMainWinToolTipTimerInfoID = ''  
GUICtrlSetData($hMainWinToolTipTimerInfo, '')  
 
Case $hTrayTipTimerID  
_Timer_KillTimer($hAutoItWin, $hTrayTipTimerID)  
$hTrayTipTimerID = ''  
TrayTip('', '', 1)  
_Timer_KillTimer($hAutoItWin, $hMainWinTrayTipTimerInfoID)  
$hMainWinTrayTipTimerInfoID = ''  
GUICtrlSetData($hMainWinTrayTipTimerInfo, '')  
EndSwitch  
EndFunc  
#endregion

Всего записей: 165 | Зарегистр. 17-06-2008 | Отправлено: 23:20 06-02-2010 | Исправлено: vicbox777, 23:23 06-02-2010
   

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

Компьютерный форум 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