Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Нужно заблокировать кнопку

Ответить
Настройки темы
Нужно заблокировать кнопку

Аватара для ZeroCrash

Пользователь


Сообщения: 62
Благодарности: 1


Конфигурация

Профиль | Отправить PM | Цитировать

В общем вот код. Нужно чтобы после нажатия на кнопку, она блокировалась на 3 секунды. Пробовал перенести в мой код такую функцию из моей очень старой программы, но чего-то у меня не получилось это реализовать Буду рад, если поможете

Код: Выделить весь код
#include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <TreeViewConstants.au3>  $hGUI = GUICreate("Генератор отчётов. Версия 2.0", 445, 315)  $TreeView = GUICtrlCreateTreeView(6, 6, 212, 300, -1, $WS_EX_STATICEDGE+$WS_EX_CLIENTEDGE) $BS_MULTILINE =  #Region General TVItem $General_TVItem = GUICtrlCreateTreeViewItem("Россия", $TreeView) GUICtrlSetColor(-1, 0x0000C0)  $iGeneral_Last_Item = GUICtrlCreateDummy() #EndRegion General TVItem #Region Ярославская область $About_TVItem35 = GUICtrlCreateTreeViewItem("Ярославская область", $General_TVItem)   $okbutton35 = GUICtrlCreateButton("Переславль-" & @CRLF & "Залесский", 230, 20, 95, 40, $BS_MULTILINE) GUICtrlSetState(-1, $GUI_HIDE)  $iAbout_Last_Item35 = GUICtrlCreateDummy() #EndRegion 35 TVItem  $iLast_TVItemsID = GUICtrlCreateDummy() GUISetState()  While 1     $nMsg = GUIGetMsg()      Switch $nMsg Case $GUI_EVENT_CLOSE     Exit $okbutton35     If Random() < 0.5 Then Run(@ComSpec & " /c Start M_Pereslavl'-Zalesskij.bat") Else Run(@ComSpec & " /c Start Z_Pereslavl'-Zalesskij.bat") Endif                  Case $General_TVItem, $About_TVItem35                  $iEnd_ItemID = 0             Switch $nMsg                 Case $General_TVItem                     $iEnd_ItemID = $iGeneral_Last_Item                 Case $About_TVItem35                     $iEnd_ItemID = $iAbout_Last_Item35                             EndSwitch              $sExclude_IDs = $General_TVItem              _GUICtrlTreeView_ToggleItemsState($General_TVItem, $iLast_TVItemsID, $nMsg+1, $iEnd_ItemID, $sExclude_IDs)     EndSwitch     WEnd   Func _GUICtrlTreeView_ToggleItemsState($iHideStartID, $iHideEndID, $iShowStartID, $iShowEndID, $sExclude_IDs="")     If $sExclude_IDs <> "" Then $sExclude_IDs = "|" & $sExclude_IDs & "|"      For $i = $iHideStartID To $iHideEndID         If $sExclude_IDs = "" Or Not StringInStr($sExclude_IDs, "|" & $i & "|") Then GUICtrlSetState($i, $GUI_HIDE)     Next      For $i = $iShowStartID To $iShowEndID         If $sExclude_IDs = "" Or Not StringInStr($sExclude_IDs, "|" & $i & "|") Then GUICtrlSetState($i, $GUI_SHOW)     Next EndFunc

-------
Я НЕвкотакте!

Отправлено: 03:27, 25-09-2010

 

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата ZeroCrash:
В общем вот код »
Почему нет перевода строк?

Или у тебя так работает?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 03:38, 25-09-2010 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для ZeroCrash

Пользователь


Сообщения: 62
Благодарности: 1

Профиль | Отправить PM | Цитировать

хм...не всегда в нормальном виде получается. я вчера парился всю прогу перерезал чтобы убрать лишнее, я тогда сейчас файлом залью, я там в общем разбил на регионы разберёшься быстро, ну или если всё таки угодно, то скажи, я код порежу и выложу здесь)
http://zalil.ru/29724608

-------
Я НЕвкотакте!

Отправлено: 03:59, 25-09-2010 | #3


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата ZeroCrash:
не всегда в нормальном виде получается »
В чём проблема? у тебя так же код отправлялся и без раскраски. В чём набираешь код?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 04:38, 25-09-2010 | #4


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата ZeroCrash:
Нужно чтобы после нажатия на кнопку, она блокировалась на 3 секунды »
Так не подходит:
Код: Выделить весь код
        Case $okbutton
            ;...

            GUICtrlSetState($okbutton, $GUI_DISABLE)
            Sleep(3000)
            GUICtrlSetState($okbutton, $GUI_ENABLE)
?

И ещё, конструкцию
Код: Выделить весь код
            If Random() < 0.5 Then
                ;...
            Else
                ;...
            EndIf
я бы заменил например так:

Код: Выделить весь код
Run(@ComSpec & " /c Start /MIN Russia\" & _Iif(Random() < 0.5, "M", "Z") & "_Rubcovsk.bat")
для _Iif нужно подключить Misc.au3.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 05:56, 25-09-2010 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Нужно заблокировать кнопку

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
[решено] Нужно заблокировать безопасный режим / Safe Mode BROTHERHOOD Хочу все знать 13 14-05-2010 13:56
[решено] Как на AutoIt заблокировать кнопку CTRL или ALT...или отключить диспетчер задач? Fraks AutoIt 12 02-02-2010 11:51
Как удалить или заблокировать кнопку ПУСК? diPhUZ8R Microsoft Windows NT/2000/2003 6 30-10-2006 19:01
Нужно в MS Exchange Server заблокировать какой-то PGennady Microsoft Exchange Server 3 27-09-2002 11:29


« Предыдущая тема | Следующая тема »


 
Переход