(Updated - Even Faster Now) This class will fill any Form or PictureBox with a Gradient fill starting from Color1 and blending to Color2. Sure, I know you've seen that plenty of times, but this code allows you to select any angle 0º to 359.99999º and it does a perfect blend at all angles. Use any colors, even system colors. Create multiple special effects by setting PictureBoxes next to each other and filling them in different directions. Includes full source code and sample program. PLEASE VOTE FOR ME!
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.
This IS the best code I've seen in a long time. Thanks for posting it. It is very fast and the colors are perfect. NICE WORK! (If this comment was disrespectful, please report it.)
I have to say it, this code is fantastic! I can see where you could make a few optimisations (I mean, the code you use to separate the colour values from the RGB long works, however it could be a LOT smaller).
Well anyway, great stuff and keep it coming! (If this comment was disrespectful, please report it.)
2/26/2000 - Optimized the code for even greater speed. Can now fill a 1280 x 1024 screen in less than 50 milliseconds (1/20th of a second). PLEASE VOTE! (If this comment was disrespectful, please report it.)
This is exceptionally nice code. Well commented, nicely formatted and easy to follow. I had started my own code to do the same thing, but I've replaced it with yours. I give this code an excellent rating. (If this comment was disrespectful, please report it.)
This will work perfect for my latest installation program. The beta testers said the plain blue wash gradient was boring, so this outta blow them away! (If this comment was disrespectful, please report it.)
Just as a suggestion, I have read that the TimeGetTime API is more accurate than GetTickCount for precise timing operations. (If this comment was disrespectful, please report it.)
Very fine code. Is there a way to specify a certain rectangle of the object to draw the gradient in? (If this comment was disrespectful, please report it.)
I wanted to use it for something progressbar like. So I only needed a new lower right point. I simply added an optional parameter in the draw method specifying the percents of the box to fill which standard value is 100. A new right end is calculated after the dimensions of the box are ftched with GetWindowRect. Rect.right=parameter*Rect.right/100 If the parameter is omitted or set to 100 it fills to the vey right, otherwise not. (If this comment was disrespectful, please report it.)
Finally learned how to use the CLS in any project to draw gradients on any picturebox or form. My main question is this, Most of my VB programs are based on many frames. I like the look and i have many seperate option buttons that belong in different frames. But if I paint the main form with a gradient it wont show thru the frames. Is there a way to make the frames color transparent so that the gradient shows thru, yet the frame borders are still visible. thanx. (If this comment was disrespectful, please report it.)
Great stuff! But I implemented this in a project for which I need to transfer the gradient to another form. I'm stuck. How is this accomplished? (If this comment was disrespectful, please report it.)
Hello it's me again. Do you know a way how to implement conic or elliptic gradients such like in Corel Draw? (If this comment was disrespectful, please report it.)
VERY VERY Nice code. Your one of the few people who actually free up memory when doing grapical work (which we all know can be a memory hog). Well comment and clearly thought out. I plaed with this a little and added the ability to pick where the gradient went to on the edge of the box (I think this is a type of conical gradient mentioned above). Anyway keep up the great work. (If this comment was disrespectful, please report it.)
haaaaayy...that's good. i have been working on grads myself these days (circle grads, multiple circle grads, boxed grads till now). yo, how bout a gradient class that makes grads from 1 color to another till the middle, then back to the first color? like in ppt. AT ANY ANGLE? i was able to do this only hor + ver but not diagonally or any other angle. but lets c, i'm still experimenting... (If this comment was disrespectful, please report it.)
The code works very well, but if you modify it to use doubles instead of singles and remove the unnecessary cdbl commands (considering you're already working with doubles after the change) you'll actually get greater accuracy and about a 33% increase in speed.
[Speed increase measured on a p-3 700 running the demo full screen 1280x1024]
Average time using original class: 75 ms Average time using modified class: 50 ms (If this comment was disrespectful, please report it.)
I wish all free code was written and commented as well! Thanks for the extremely useful function. (If this comment was disrespectful, please report it.)
Amazing. Some time ago I thought how to mix the colors and adjust the gradient, in order to produce a atractive install shield and here I found it. Just beautifull. Thank you. (If this comment was disrespectful, please report it.)
AHHHH help me when i try to set anything in the class or try to use a function in the class it tells me "Object Required" ps i have vb4 (If this comment was disrespectful, please report it.)
Well better late than never. Vote of Excellent. This really is most excellent. Contest Winner (I should think so) and before I voted 110 Votes. I just now came across this, and almost two years later.. it's still fantastic! Thanks for sharing this. (If this comment was disrespectful, please report it.)
Ha, you're the first who has my real name on a post, what a honour (NOT). Great code!!! It's perfect. (If this comment was disrespectful, please report it.)
no offense... But I can not get this to work right. THe demo works great and looks awesome, but I need it to work on a form background rather then a pic. Any suggestions? (If this comment was disrespectful, please report it.)
Hi Rocky. I'm use your code in my MP3 Player please look my project andevaluate-me. You can view my code searching DReY MP3. Thanks for your time. [\DReY\] (If this comment was disrespectful, please report it.)
Very nice. Small problem, fix: Edit vbp file Class=clsGradient; ..\..\Develop\Programming Libraries\Gradient.cls TO Class=clsGradient;Gradient.cls (If this comment was disrespectful, please report it.)
8/8/2003 1:55:10 AM:
This piece of code is great yaar.... Awesome n cool.. and makes for great backgorund containers of objects! (If this comment was disrespectful, please report it.)
10/27/2003 10:29:02 AM:
Like everyone else has said...
Ronnie likes! (If this comment was disrespectful, please report it.)
1/19/2004 3:41:47 PM:
i only gave this a 4 because it is very complicated to extract and use in normal ways. but the code itself is very cool. (If this comment was disrespectful, please report it.)
Hi, the code is great, but it doesnt work on MDI forms :-( (If this comment was disrespectful, please report it.)
5/15/2005 7:44:43 PM:
This is really good code. I'm finding it rather useful. (If this comment was disrespectful, please report it.)
5/15/2005 8:50:45 PM:
Any thoughts on how to have the gradient effect saved to a file? I've tried using the SavePicture() function, but the methods isn't being sent to the picDraw control's picture property, and I'm out of ideas. Any solution or idea how to continue? (and I wonder why my user name isn't appearing in the posts) Thanks in advanced! (If this comment was disrespectful, please report it.)
Saved me lots of work, thanks for sharing. Good app, well done! 5 (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 69 Users
Download code
2/19/2000 4:58:50 PM: 
