|
|
| |
|
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...
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. |
'**************************************
' Name: The Most Simple Credit - Scrolle
' r
' Description:This code will easily let
' any user create simple, yet effective cr
' edit scroller. This is so effectively ea
' sy, that any novice can create it. I cre
' ated 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://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.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 | |
Other 24 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
5/19/1999 12:56:00 AM:okie_rick
works great!!
|
5/19/1999 2:02:00 PM:cheerie
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
|
5/19/1999 2:56:00 PM:David Halter
Oh but it can go negative if you put
everything in another picture box. just
thought you might like to know.
CYA
|
5/19/1999 3:28:00 PM:NocTurN
Looks great!
|
5/20/1999 12:07:00 AM:Terrance Henry Shaw
Rick:
Thank you for your
positive feedback!
|
7/20/1999 1:29:00 PM:Hyrax
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....
|
9/7/1999 2:00:00 AM:Muhammed Zeeshan
Hi,
Tell me one thing how can we set
the coordinates.
Coz i want the text
to come from the bottom of the
screen.
i hope you got my
point.
Thanx.
please do reply.
|
9/7/1999 2:46:00 AM:Terrance Henry Shaw
Muhammed Zeeshan:
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.
|
12/14/1999 1:13:28 AM:Terrance Henry Shaw
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!
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
