igorm Posted March 19, 2008 Share Posted March 19, 2008 Hi, I need progress bar that just loops from begin to end. I sow that somewhere here on the forum, but I could not find it. Anyone can help to find it? Cheers Office 2000/XP/2003/2007 Slipstreamer Link to comment Share on other sites More sharing options...
Nahuel Posted March 19, 2008 Share Posted March 19, 2008 ProgressOn("Progress Meter", "Increments every second", "0 percent") while 1 For $i = 10 to 100 step 10 sleep(1000) ProgressSet( $i, $i & " percent") Next Wend ProgressOff() ? Link to comment Share on other sites More sharing options...
igorm Posted March 19, 2008 Author Share Posted March 19, 2008 Thanks. Cheers Office 2000/XP/2003/2007 Slipstreamer Link to comment Share on other sites More sharing options...
Swift Posted March 19, 2008 Share Posted March 19, 2008 Created by: CyberZeroCool expandcollapse popup#include <GUIConstants.au3> ;Global Const $PBS_SMOOTH = 0x00000001; The progress bar displays progress status in a smooth scrolling bar ;Global Const $PBS_VERTICAL = 0x00000004; The progress bar displays progress status vertically ;Global Const $PBS_MARQUEE = 0x00000008; The progress bar moves like a marquee Global $i=0 ; Create GUI $Form1 = GUICreate("Progress Demo By CyberZeroCool", 401, 301, 341, 258) $Progress1 = GUICtrlCreateProgress(0, 0, 25, 297, BitOR($PBS_SMOOTH,$PBS_VERTICAL,$PBS_MARQUEE)) $Progress2 = GUICtrlCreateProgress(104, 0, 289, 25) $Progress3 = GUICtrlCreateProgress(104, 56, 289, 25, $PBS_MARQUEE) $Label1 = GUICtrlCreateLabel("-1 (NO STYLE)", 104, 32, 75, 17) $Label2 = GUICtrlCreateLabel("$PBS_MARQUEE", 104, 88, 91, 17) $Label3 = GUICtrlCreateLabel("$PBS_MARQUEE+$PBS_SMOOTH+$PBS_VERTICAL", 32, 280, 268, 17) $Progress4 = GUICtrlCreateProgress(32, 0, 25, 265, BitOR($PBS_VERTICAL,$PBS_MARQUEE)) $Progress5 = GUICtrlCreateProgress(104, 112, 289, 25, $PBS_SMOOTH) $Label4 = GUICtrlCreateLabel("$PBS_SMOOTH", 104, 144, 84, 17) $Progress6 = GUICtrlCreateProgress(104, 162, 289, 25, BitOR($PBS_SMOOTH,$PBS_MARQUEE)) $Label5 = GUICtrlCreateLabel("$PBS_MARQUEE+$PBS_SMOOTH", 104, 194, 177, 17) $Label6 = GUICtrlCreateLabel("$PBS_MARQUEE+$PBS_VERTICAL", 64, 248, 182, 17) $Progress7 = GUICtrlCreateProgress(64, 0, 25, 233, $PBS_VERTICAL) $Label7 = GUICtrlCreateLabel("$PBS_VERTICAL", 92, 220, 89, 17) GUISetState() AdlibEnable("Advance", 50) ; Loop until user exits do until GUIGetMsg() = $GUI_EVENT_CLOSE Func Advance() $i=$i+1 GUICtrlSetData($Progress1, $i) GUICtrlSetData($Progress2, $i) GUICtrlSetData($Progress3, $i) GUICtrlSetData($Progress4, $i) GUICtrlSetData($Progress5, $i) GUICtrlSetData($Progress6, $i) GUICtrlSetData($Progress7, $i) If $i = 100 Then $i = 0 EndFunc Link to comment Share on other sites More sharing options...
coopdaveel Posted February 12, 2009 Share Posted February 12, 2009 Thanks, CyberZeroCool! That's nice. But I'm guessing the MARQUEE is only in the newest version of AutoIT? Created by: CyberZeroCool #include <GUIConstants.au3> ;Global Const $PBS_SMOOTH = 0x00000001; The progress bar displays progress status in a smooth scrolling bar ;Global Const $PBS_VERTICAL = 0x00000004; The progress bar displays progress status vertically ;Global Const $PBS_MARQUEE = 0x00000008; The progress bar moves like a marquee Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now