I made this UDF to replicate the pop up progress bar. ProgressSet acts mostly the same. ProgressOn is different.
AutoIt
#include <GUIConstants.au3> #include <file.au3> GUICreate("Progress Demo", 600, 500) GUISetState() Dim $progress, $main, $sub $prog = _ProgressOn($progress, $main, $sub, "This is the main text", "This is the sub-text", 150, 10) For $i = 1 To 100 _ProgressSet($prog, $i, "This is the sub-text " & $i & "%") Sleep(100) Next _ProgressOff($prog) $prog = _ProgressOn($progress, $main, $sub, "This will change", "This is a moved example", 320, 300, 1) Sleep(1000) For $i = 1 To 100 _ProgressSet($prog, $i, "", "This time the main text changes") ;use "" for the default string Sleep(100) Next _ProgressOff($prog) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ;=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+= ;UDF Below ;=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+= ;=============================================================================== ; ; Function Name: _ProgressOn ; Description:: Creates a 'ProgressOn like' progress bar in a gui ; Syntax: Dim $progress, $main, $sub ;make sure you dim the first three variables. they are the controlId's ; _ProgressOn($progress, $main, $sub, "This is the main text", "This is the sub-text", 150, 10) ; Parameter(s): $s_mainlabel($main-text var), $s_sublabel($sub-text var), ; $s_control($progress var), $s_main(Main text), $s_sub(Sub Text), $x(Position), $y(Position), $fSmooth(1 for smooth, 0 for not smooth) ; Requirement(s): AutoIt, #include <file.au3> ; Return Value(s): Success - Returns array ; $array[0] - $progress id ; $array[1] - Main Label ; $array[2] - Sub label ; $array[3] - x pos ; $array[4] - y pos ; Failure - 0 and sets @error to 1 ; Author(s): RazerM ; ;=============================================================================== ; Func _ProgressOn(ByRef $s_mainlabel, ByRef $s_sublabel, ByRef $s_control, $s_main, $s_sub, $x, $y, $fSmooth = 0) $s_mainlabel = GUICtrlCreateLabel($s_main, $x, $y, StringLen($s_main) * 10) If $s_mainlabel = 0 Then SetError(1) Return 0 EndIf GUICtrlSetFont($s_mainlabel, 14) If StringInStr(@OSTYPE, "WIN32_NT") And $fSmooth = 1 Then $prev = DllCall("uxtheme.dll", "int", "GetThemeAppProperties");, "int", 0) DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0) EndIf $s_control = GUICtrlCreateProgress($x, $y + 30, 260, 20, $PBS_SMOOTH) If StringInStr(@OSTYPE, "WIN32_NT") And $fSmooth = 1 Then DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $prev[0]) EndIf If $s_control = 0 Then SetError(1) Return 0 EndIf $s_sublabel = GUICtrlCreateLabel($s_sub, $x, $y + 55) If $s_sublabel = 0 Then SetError(1) Return 0 EndIf Dim $a_info[5] $a_info[0] = $s_control $a_info[1] = $s_mainlabel $a_info[2] = $s_sublabel $a_info[3] = $x $a_info[4] = $y Return $a_info EndFunc ;==>_ProgressOn ;=============================================================================== ; ; Function Name: _ProgressSet ; Description:: Sets a progressbar created with _ProgressOn ; Parameter(s): $a_info(Progress Id returned by _ProgressOn), $i_per(Percent), $s_sub(Sub text)[optional], $s_main(main text)[optional] ; Requirement(s): AutoIt, #include <file.au3> ; Return Value(s): Success - 1, Failure - 0 and sets @error to 1 ; Author(s): RazerM ; ;=============================================================================== ; Func _ProgressSet($a_info, $i_per, $s_sub = "", $s_main = "") If $s_main = "" Then $s_main = GUICtrlRead($a_info[1]) If $s_sub = "" Then $s_sub = GUICtrlRead($a_info[2]) $set1 = GUICtrlSetData($a_info[0], $i_per) $set2 = GUICtrlSetData($a_info[1], $s_main) $set3 = GUICtrlSetData($a_info[2], $s_sub) GUICtrlSetPos($a_info[2], $a_info[3], $a_info[4] + 55, StringLen($s_sub) * 6) GUICtrlSetPos($a_info[1], $a_info[3], $a_info[4], StringLen($s_main) * 10) If ($set1 = 0) Or ($set2 = 0) Or ($set3 = 0) Then SetError(1) Return 0 EndIf If ($set1 = -1) Or ($set2 = -1) Or ($set3 = -1) Then SetError(1) Return 0 EndIf Return 1 EndFunc ;==>_ProgressSet ;=============================================================================== ; ; Function Name: _ProgressOff() ; Description:: Deletes a progress bar created with _ProgressOn() ; Parameter(s): $a_info(Progress Id returned by _ProgressOn) ; Requirement(s): AutoIt, #include <file.au3> ; Return Value(s): Success - 1, Failure - 0 and sets @error to 1 ; Author(s): RazerM ; ;=============================================================================== ; Func _ProgressOff($a_info) $del1 = GUICtrlDelete($a_info[1]) $del2 = GUICtrlDelete($a_info[2]) $del3 = GUICtrlDelete($a_info[0]) If ($del1 = 0) Or ($del2 = 0) Or ($del3 = 0) Then SetError(1) Return 0 EndIf EndFunc ;==>_ProgressOff
The UDF is on it's own here:
Progress.au3 3.94K
1501 downloadsPrevious Downloads: 191
Update: Added $fSmooth into _ProgressOn, set to 1 for a smooth prgress bar
Edited by RazerM, 04 October 2006 - 04:55 PM.
