Important alert: (current site time 7/16/2013 3:38:44 AM EDT)
 

winzip icon

Flicker Free Gradient Credits

Email
Submitted on: 6/28/2000 8:51:40 AM
By: Mark Robert Strange 
Level: Intermediate
User Rating: By 16 Users
Compatibility: VB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0, VB Script, ASP (Active Server Pages)
Views: 23506
(About the author)
 
     Allows flicker-free, gradient scrolling credits to be added to your program.

 

Windows API/Global Declarations:

Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
'**************************************
'Windows API/Global Declarations for :Flicker Free Gradient Credits
'**************************************
BitBlt
winzip iconDownload code

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:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. 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...   
  1. 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.
  2. 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.   
  3. You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
  4. You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


Other 1 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments

6/28/2000 11:04:22 AMAtilla Duran

Very, very nice...

Atilla.
(If this comment was disrespectful, please report it.)

 
6/28/2000 6:07:29 PMUlli

Maybe it is less heavy on resources if the gradient is created only once and then repeatedly blitted into the visible pic-box and the text printed in the visible pic box instead of recreating the gradient all the time, printing the text and then blitting ;-)
(If this comment was disrespectful, please report it.)

 
6/29/2000 2:15:41 AMsmiffe927563

how come when the text gets near the top it turns black and then white? how do you make it just disapear.
(If this comment was disrespectful, please report it.)

 
6/29/2000 3:23:14 AMRJ Soft of West Tennessee

Under Private Sub RedrawTimer_Timer() chage "If picBuffer.CurrentY > 15 Then" to "If picBuffer.CurrentY > 45 Then"
Change "picBuffer.ForeColor = vbBlack" to "picBuffer.ForeColor = RGB(0, 0, 255)" The text will fade out at the top. Great code!

(If this comment was disrespectful, please report it.)

 
6/30/2000 10:45:12 PMRJ Soft of West Tennessee

Turning the text black when it hits the top makes no since to me. My above message changes it so it fades out when the text reaches the top.
(If this comment was disrespectful, please report it.)

 
7/19/2000 5:03:37 AMJoakim

Really amazing! It looks great and scrolls smooth and everything. Is it possible to make it fade in at the bottom and fade out at the top? This would look cool too. Maybe 100 pixels fading out/in, nothing more.
Anyway, good code!
(If this comment was disrespectful, please report it.)

 
7/20/2000 4:01:00 PMDuane

Great code.. This is some fine work. I had a simmilar idea for a while and you did the dirtywork and proved it wasn't that hard. I used some of this and created a new flicker-free about/splash box and have posted it. Take a look at it, it uses only one pb-no gradient bg right now :( But it fades in and out, shows use of InvalidateRect too.

Search for:
Flickerfree Scrolling Credit About box
(If this comment was disrespectful, please report it.)

 
7/30/2000 2:15:34 PMBrandon

hello, im having a problem.. im kinda new with vb and well i cut and copyed the code and made the nessary forms and what not...but for some reason there is no text scrolling, i made sure the credits file was in place and everything please help!
(If this comment was disrespectful, please report it.)

 
9/4/2000 4:06:39 PMJose M. Lopez

I got a somewhat unrelated question to this fine project.
I've noticed that this, and other projects, are dated months
before even though they are yesterdays code. This one is
even code of the day. Even the comments are outdated.
I am confused!
Can someone please explain this peculiarity?]
Thanks,
Great code!
(If this comment was disrespectful, please report it.)

 
9/4/2000 8:56:42 PMWayne Hartell

Yeah - Jose, I noticed the same thing. This IS AN OLD POSTING. I don't know how it got code of the day again... Its good code though, but definately not new.
(If this comment was disrespectful, please report it.)

 
9/5/2000 10:32:06 AMJim

Great job. I like the suggestion from Ulli! as well.
Keep up the good work
(If this comment was disrespectful, please report it.)

 
9/8/2000 3:03:18 PMStephen Glauser

it doesn't have to be new to win, has to be popular.
(If this comment was disrespectful, please report it.)

 
9/1/2001 10:03:14 PMEric

I made a program that scrolled credits on a background picture. Like yourself, I used off-screen bitmaps to get rid of the flicker. However I do not re-create the background each time, just once. Please let me know what you think and how to implement you gradient code

http://www.planet-source-code.com/xq/ASP/txtCodeId.22844/lngWId.1/qx/vb/scri pts/ShowCode.htm

(If this comment was disrespectful, please report it.)

 
12/12/2001 4:31:36 PMJeff D

I end each of my programs with this marvelous gradiant scroll. I suppose I can also launch my program (similar to a splash screen) so users can see latest notes on training, updates, scheduled backups, etc. Thanks so much. Best one I could have found.
(If this comment was disrespectful, please report it.)

 
6/15/2002 11:45:03 AMPeter Hebels

Its really good!!
(If this comment was disrespectful, please report it.)

 
7/6/2005 12:50:40 AMCapaomegA

anything like this for vb.net?
(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.)
 

To post feedback, first please login.