#include <GUIConstants.au3>
#include <WindowsConstants.au3>
$hWin1 = GUICreate("Progress 1",220+10,50+20, -1, -1, $WS_BORDER)
$progressbar1 = GUICtrlCreateProgress (10,10,200,20)
GUICtrlSetColor(-1,32250); не работает в Windows XP Style
GUISetState ()
$wait = 20; задержка 20мс перед началом прогресса
$s = 0; сохранение позиции
do
$msg = GUIGetMsg()
For $i = $s To 100
If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
GUICtrlSetData ($progressbar1,$i)
Sleep($wait)
If $i == 100 Then ExitLoop 2
Next
until $msg = $GUI_EVENT_CLOSE
GUIDelete($hWin1)
;~ Пример 2
$hWin1 = GUICreate("Progress 2",220+10,50+20, -1, -1, $WS_POPUP)
$progressbar1 = GUICtrlCreateProgress (10,10,200,20)
GUICtrlSetColor(-1,32250); не работает в Windows XP Style
GUISetState ()
$wait = 20; задержка 20мс перед началом прогресса
$s = 0; сохранение позиции
do
$msg = GUIGetMsg()
For $i = $s To 100
If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
GUICtrlSetData ($progressbar1,$i)
Sleep($wait)
If $i == 100 Then ExitLoop 2
Next
until $msg = $GUI_EVENT_CLOSE
GUIDelete($hWin1)
;~ Пример 3
$hWin1 = GUICreate("Progress 3",220+10,50+20, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
$progressbar1 = GUICtrlCreateProgress (10,10,200,20)
GUICtrlSetColor(-1,32250); не работает в Windows XP Style
GUISetState ()
$wait = 20; задержка 20мс перед началом прогресса
$s = 0; сохранение позиции
do
$msg = GUIGetMsg()
For $i = $s To 100
If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
GUICtrlSetData ($progressbar1,$i)
Sleep($wait)
If $i == 100 Then ExitLoop 2
Next
until $msg = $GUI_EVENT_CLOSE
;~ Пример 4
$hWin1 = GUICreate("Progress 4",220+10,50+20, -1, -1, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_CLIENTEDGE)
$progressbar1 = GUICtrlCreateProgress (10,10,200,20)
GUICtrlSetColor(-1,32250); не работает в Windows XP Style
GUISetState ()
$wait = 20; задержка 20мс перед началом прогресса
$s = 0; сохранение позиции
do
$msg = GUIGetMsg()
For $i = $s To 100
If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
GUICtrlSetData ($progressbar1,$i)
Sleep($wait)
If $i == 100 Then ExitLoop 2
Next
until $msg = $GUI_EVENT_CLOSE
;~ Пример 5
$hWin1 = GUICreate("Progress 5",220+10,50+20, -1, -1, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_DLGMODALFRAME)
$progressbar1 = GUICtrlCreateProgress (10,10,200,20)
GUICtrlSetColor(-1,32250); не работает в Windows XP Style
GUISetState ()
$wait = 20; задержка 20мс перед началом прогресса
$s = 0; сохранение позиции
do
$msg = GUIGetMsg()
For $i = $s To 100
If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
GUICtrlSetData ($progressbar1,$i)
Sleep($wait)
If $i == 100 Then ExitLoop 2
Next
until $msg = $GUI_EVENT_CLOSE |
