This code will easily let any user create simple, yet effective credit scroller. This is so effectively easy, that any novice can create it. I created this code because I tried the other source code on this site, and I found it difficult to follow.
code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
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.
'**************************************
' Name: The Most Simple Credit - Scroller
' Description:This code will easily let any user create simple, yet effective credit scroller. This is so effectively easy, that any novice can create it. I created this code because I tried the other source code on this site, and I found it difficult to follow.
' By: silverx10
'
' Inputs:N/A
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1229&lngWId=1'for details.'**************************************
1) Create a new project (Standard EXE).
2) Place a label on the form at the bottom with whichever BackColor you set the form's BackColor to, and leave all the other properties alone except these:
A) Alignment: 2 - Center
B) Caption: This is a sample scroller.
3) On the form, place two picture boxes (one on top of the form, and one on the bottom) with these properties set. (Leave all others alone.)
A) BackColor: &H80000012&
B) BorderStyle: 0 - None
NOTE: Be sure that the picture box is covering the label.
4) Place a timer on the form, and set the interval to '1'. And inside the timer, copy and paste this code:
Label1.Top = (Label1.Top - 20)
If Label1.Top = 0 Then '0 is the location topmost form coordinate
Label1.Top = Me.Height
End If
5) Run and test the program. Viola! You now have created the most simple scroller program available! If you have any problems with this code, which you shouldn't, please e-mail me at: madcat47@hotmail.com
Hi, The above program did not work for me as the label1.top may become negative So I changed the statement to: If Label1.Top <= 0 Then '0 is the location topmost form coordinate Label1.Top = Me.Top + Me.Height 'Set the 1800 to what the coordinate is For the forms bottom End If Thanks for the nice code.
Cheerie (If this comment was disrespectful, please report it.)
Hey, this code is almost like mine, but it isn't the easiest code to follow, but it looks to me like i submitted sorta the same thing. Hmmm, i didn't see this code before i submitted it. But, i am gonna leave mine up, it already has over 3400 hitz, and i put it up 2 dayz ago.... (If this comment was disrespectful, please report it.)
If you mean that you want for the text to come from the very bottom of the form, then all you have to do is make the form high, and then put the label at the bottom of the form, and then shrink the form's height. If you mean something else, I don't know. (If this comment was disrespectful, please report it.)
Everyone, I would like to thank all of you who gave my source code a rating of six!!! I am so happy, I wish I could give each of you something, but I'm broke. :o( But I will try to give contests for free stuff whenever I can (i.e. modems, software, etc). Thanks again! (If this comment was disrespectful, please report it.)
I just submitted my version of this a little bit ago. It's a remake of this that scrolls a collection of Label1's. You can make them any height. When the form loads, it automatically positions and moves them all in line with each other. I am now adding other features. (i.e. customizable colors) (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 101 Users
5/19/1999 12:56:00 AM: 
