AutoIt
#include <GUIConstants.au3> ; == GUI generated with Koda == $Form1 = GUICreate("AForm1", 622, 448, 192, 125) $progress = create_progress(128, 128, 193, 21, "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg") GUISetState(@SW_SHOW) For $i = 0 To 101 Step 10 set_progress( $progress, $i ) ConsoleWrite($i & @CRLF) Sleep(100) Next For $i = 101 To 0 Step -10 set_progress( $progress, $i ) ConsoleWrite($i & @CRLF) Sleep(100) Next While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;;;;;; EndSelect WEnd Exit Func create_progress($left, $top, $width, $height, $progressbar) If Not FileExists( $progressbar ) Then SetError( 1 ) Return -1 Else $progressbg = GUICtrlCreateLabel( "", $left-2, $top-2, $width+4, $height+4, -1, $WS_EX_CLIENTEDGE ) $progresspic = GUICtrlCreatePic( $progressbar, $left, $top, 0, $height) Dim $data[3] = [$width, $progressbg, $progresspic] Return $data EndIf EndFunc Func set_progress( $progress, $percent ) If Not IsArray( $progress ) Then SetError( 1 ) Return -1 ElseIf $percent < 101 And $percent > -1 Then $percent = $progress[0]*($percent*.01) ConsoleWrite($progress[0]) GUICtrlSetPos ( $progress[2], -1, -1, $percent ) Else Return -1 SetError( 2 ) EndIf EndFunc
