The New Release of the Awesome XP Progress Bar is now available.
The new control offers more detailed painted controls, with more OS capability, now supports NT4, Also included the Media Player Progress Bar Style, and many others.
The Control itself as it predecessor does not need any dependency file and its very light in size.
Now It haves 8 Styles to choose from.
The 5 New Styles are Limited to horizontal Orientation as I don’t use vertical very often , but if you like using it just code it your self, the code is very easy to follow and very understandable .
You are free to use this code on any way you wish, on commercial apps, on freeware or any other except selling the code claiming that is yours.
Enjoy!
If you have any question, you can contact me on my e-mail
sistec_de_juarez@hotmail.com or mflores@ansell.com
Feedback is Welcome
14 September
New Style ::: "" METALLIC XP""
Added Font capability
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
Very nice, 5 globes. 24 views and I'm the only one to vote/comment so far...why is it so hard for people to leave comments/votes? (If this comment was disrespectful, please report it.)
Using a MAX value below or above 100 doesn't seem to change anything in the behaviour of the progress bar. Sometimes you need to use non-percentage values for a progress bar, with a maximum below or above 100, and then the progress bar doesn't reflect the value properly ... The progress bar should allow non pertentage values with a free definable maximum value.
Maybe something for the next version ... (If this comment was disrespectful, please report it.)
hi very good progess bars!! and better is the code!!! just thanks for submitting this usercontrol, it's too usefull (If this comment was disrespectful, please report it.)
Nice one, I'd like to see a way to change the backgroundcolor. Right now, I have 4 white pixels in the corners of the progressbar. (If this comment was disrespectful, please report it.)
Excellent visuals Mario! Re the comment above me, better still, make the control a region; a lot of work just for four pixels but... I was surprised that VB lets you get away with an enum and property of the same name (BrushStyle) - So VB still surprises me after 10 years! Personaly I'll be moving the StatusBar module code into the control, a neat addition. (If this comment was disrespectful, please report it.)
I’m going to make a disappointing and very frustrating demand. Someone has been selling my first version of the progress bar and now his charging money for the second one, I must say that I never charged money for any of my controls published here, if you or anyone knows someone who is buying stuff for this thief please let me know. I clearly marked on the statements that no one is entitled to sell this code., no one has the right to take advantage on things that other coders do , maybe later this company is going to steal other coder code, please don’t accept any offer from this kind of people. http://www.partaksoft.com/ordernow!.htm If there’s someone that could kick the a$$ on this guy please do so.
(If this comment was disrespectful, please report it.)
About region of the 4 pixels.. the first version was a region and then i decided to go with putpixel.. if you like that slider, yust download the older version..
New Stile "Windows Metallic XP Progressbar"... enjoy
Fixed Font, Now supports different Fonts (If this comment was disrespectful, please report it.)
The module that Heriberto and Paul are talking about (StatusBar) has nothing to do with the progressbar control its just an extra demo to see how a progressbar can be added to the statusbar,but it could be added so it can be more usefull, im going to add it on the next revision. Thanks again (If this comment was disrespectful, please report it.)
Having an issue, but this control rocks and I want to use it. Ide like to use the Progresses value to increment the progress: Progress1.Value = Progress1.Value + 1
This doesnt work because it returns a modified value, not sure why its being modified: Public Property Get Value() As Long Value = ((m_Value / 100) * m_Max) / IIf(m_Min > 0, m_Min, 1) End Property
Is there a way I can get the unmodified progress value to return the exact value. In other words, if I set the Max to 13000. Ide like to get the value along the range. Great control none the less. (If this comment was disrespectful, please report it.)
10/22/2004 11:26:11 PM:
wow, hello mia (If this comment was disrespectful, please report it.)
OK, I almost much never vote (i know I should) but this control is absolutly sensational. I've voted it 5 stars and almost feel like signing up for another account to vote it 5 stars again.
Thank you so much for your code, it really is the best example of open source progress bars I have ever seen.
You should open a donation service somewhere for people to fund your brilliant work.
Ben (If this comment was disrespectful, please report it.)
Mario, latest release has a bug - check the "Use Percent Text" checkbox on your demo's main form when running - the bottom progress bar's % is garbled and the actual % is displayed below the actual progress bar itself. 5 globes for the effort but PLEASE update with a fix. (If this comment was disrespectful, please report it.)
I should add that by "bottom progress bar" I mean the one labeled "Picker Color Example". This worked OK in prior versions. (If this comment was disrespectful, please report it.)
Nice progress bar. Only 2 problems i see are the value problems and the percent on the pick color bar. You should not redraw the bar unless the percent changes or it will slow down any loops it deals with. The bar also needs a variable with the current value so that it doesnt return a percent of the value you passed it.
Example: Dim m_Old_Value as long Dim m_Current_Value as long
Public Property Get Value() As Long 'Value = ((m_Value / 100) * m_Max) / IIf(m_Min > 0, m_Min, 1) If m_Value < m_Min Then Value = m_Min ElseIf m_Value > m_Max Then Value = m_Max Else Value = m_Current_Value End If End Property
Public Property Let Value(ByVal cValue As Long) m_Value = ((cValue * 100) / m_Max) + m_Min 'PropertyChanged "Value" If m_Value <> m_Current_Value Then m_Current_Value = m_Value DrawProgressBar End If End Property (If this comment was disrespectful, please report it.)
hmmm... you should get some authorities onto those Partaksoft stealers. Have you tried to confront them via email? ie tell them if they dont remove it you will get the authorities. (If this comment was disrespectful, please report it.)
Te reason the percent was garbled on the bottom percent bar was because the font was set to a weird font. (If this comment was disrespectful, please report it.)
I like your control dude, It beat the progressbar of ciaXP Controls(see http://ciatheco.com)...
If Possible Pls. make a "IP Text box(Xp Style)" control too. Thanks.
(If this comment was disrespectful, please report it.)
12/22/2004 7:59:55 AM:
Achei exelente o seu trabalho, fico feliz em saber que existe pessoa como você que tem esta dedicação Mario (If this comment was disrespectful, please report it.)
12/28/2004 3:45:19 PM:
you are the best skull in de world, congratulations!!! (If this comment was disrespectful, please report it.)
1/5/2005 6:17:30 PM:
Great control - found some bugs though - the metallic style doesnt work vertically, along with a couple others. So this needs checking. But Great control - best i have seen, thanks (If this comment was disrespectful, please report it.)
2/11/2005 3:12:49 AM:
Really Great control. Very good work ! Thank for us. (If this comment was disrespectful, please report it.)
Not all the scrolling styles work in Vertical orientation. I got only Standard , Smooth and Search style to work in Vertical Orientation of progress bar.
Any work around ? (If this comment was disrespectful, please report it.)
"The 5 New Styles are Limited to horizontal Orientation as I don’t use vertical very often , but if you like using it just code it your self, the code is very easy to follow and very understandable"
Sorry ... I missed out this text from your project descruption. Just saw the screen-shot and downloaded it. Worked fine except the known issue of scrolling styles in Vertical orientation.
Thanks for sharing this useful control with us. (If this comment was disrespectful, please report it.)
This is my first time I use PlanetSourceCode and I am very impressed with the quality and robustness of the control and the code. Really excellent and great control. I appreciate it a lot. No hesitation you deserve 5 globes.
Thank you so much! (If this comment was disrespectful, please report it.)
This is very nice work! I might use this in a published product. Thanks for the great contribution. (If this comment was disrespectful, please report it.)
5 from me! I cant thank you enough, this gave my project the look I was after even though it is in vb! (If this comment was disrespectful, please report it.)
Just an addition: If you use this control on MDI child forms, it exposes a fatal failure on control termination. I'm just looking over and if I can find a solution gonna post it soon. I used 6 controls on each MDI child, opening about >6 forms, no problem on the run but as I try to exit the program it gives out a fatal error and terminates. I tracked the error till pdestroy subroutine called form UserControl_Terminate(), may be many recursive calls might be making the stack to run over the heap or similar.. (If this comment was disrespectful, please report it.)
I couldnt paste the whole page, 1000 chars limitation, I dont know links to other sites are allowed or not, but you can find a official fix to this problem and a workaround; disabling windows crash dialog to your app as it means nothing as it occurs at termination. here is the link: http://www.vbaccelerator.com/home/VB/Code/Libraries/XP_Visual_Styles/Preventing_Crashes_ at_Shutdown/article.asp (If this comment was disrespectful, please report it.)
Someone else is using this code as their own. http://www.srisource.com/content/view/12/28/ Although they are offering the ocx as freeware the ocx still has "Dananjaya Madushanka" as the creator.
(If this comment was disrespectful, please report it.)
I like this sooooooooooo much but i have vb 2008 and it doesn't accept it please i'm beggin' this would be awsome if it's compactible with 2008 thanks for your time
love it 5 globes (without even testing it :p) (If this comment was disrespectful, please report it.)
really gr8 (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 102 Users
Download code
9/13/2004 12:36:52 AM: 
