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

Показать сообщение отдельно

Аватара для madmasles

Ветеран


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

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


saavaage,
Я не совсем понял, Вам надо отдельное окно с прогресс-баром? Если нет, то попробуйте так:
Код: Выделить весь код
#include <GUIConstantsEx.au3>

$j = False
$i = 0
$z = 2
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 300, 200, -1, -1)
$Label1 = GUICtrlCreateLabel('', 125, 20, 50, 20)
$Progress1 = GUICtrlCreateProgress(50, 50, 200, 20)
$Button1 = GUICtrlCreateButton("Start", 100, 100, 100, 50)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $j = Not $j
            If $j Then
                GUICtrlSetData($Button1, "Stop")
                GUICtrlSetData($Label1, "Work")
                AdlibRegister('_MyFunc', 50)
            Else
                GUICtrlSetData($Button1, "Start")
                GUICtrlSetData($Label1, "No Work")
                AdlibUnRegister('_MyFunc')
            EndIf
    EndSwitch
WEnd

Func _MyFunc()
    $i += $z
    If $i = 100 Then $z = -2
    If $i = 0 Then $z = 2
    GUICtrlSetData($Progress1, $i)
EndFunc   ;==>_MyFunc

Отправлено: 15:50, 09-08-2010 | #2