Старожил
Сообщения: 307
Благодарности: 137
|
Профиль
|
Отправить PM
| Цитировать
Код:
#include <GUIConstantsEx.au3>
Global $bState=0
For $i=1 to 3 ;у вас сдесь будет по числу ваших функций
$Gui = GUICreate("Функция"&$i, 269, 101)
$OkButton = GUICtrlCreateButton("Да", 8, 64, 75, 25)
$CancelButton = GUICtrlCreateButton("Нет", 96, 64, 75, 25)
$ExitButton = GUICtrlCreateButton("Выход", 184, 64, 75, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $ExitButton
Exit
Case $OkButton
$bState=1
ExitLoop
Case $CancelButton
$bState=0
ExitLoop
EndSwitch
sleep(10)
WEnd
if $bState=1 then
Call ( "MyFunction"&$i)
else
ContinueLoop
endif
$bState=0
Guidelete($Gui)
Next
Exit
Func MyFunction1()
MsgBox(64,"Message", "Функция 1 выполнена!", 1)
Endfunc
Func MyFunction2()
MsgBox(64,"Message", "Функция 2 выполнена!", 1)
Endfunc
Func MyFunction3()
MsgBox(64,"Message", "Функция 3 выполнена!", 1)
Endfunc
|
-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.
Последний раз редактировалось beve, 25-10-2012 в 23:56.
Отправлено: 23:51, 25-10-2012
| #2
|