|
[ A1 Code ] Simple Scroll Text
|
Email
|
| Submitted on: |
5/18/2002 1:47:20 AM |
| By: |
Sachin Mehra (Delhi)
|
| Level: |
Beginner |
| User Rating: |
By 29 Users |
| Compatibility: |
VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0 |
| Views: |
58736 |
|
(About the author) |
|
|
|
This code is the simplest form of Scrolling Text. It uses a Timer controle to make a label scroll. No consideration is required for screen cordinates or size or any other thing. Have a look at this simple scroll text application and Please do rate it :) I am watching from sachinweb@hotmail.com
|
| |
|
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: [ A1 Code ] Simple Scroll Text
' Description:This code is the simplest form of Scrolling Text. It uses a Timer controle to make a label scroll. No consideration is required for screen cordinates or size or any other thing. Have a look at this simple scroll text application and Please do rate it :) I am watching from sachinweb@hotmail.com
' By: Sachin Mehra (Delhi)
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=34901&lngWId=1'for details.'**************************************
Form1 (starts)
======================
Private Sub Form_Load()
Label1.Caption = "Hi all, I am Sachin "
Timer1.Enabled = True
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
Dim str As String
str = Form1.Label1.Caption
str = Mid$(str, 2, Len(str)) + Left(str, 1)
Form1.Label1.Caption = str
End Sub
=================================
Form1 (Ends)
|
|
Other 1 submission(s) by this author
|
|
Report Bad Submission
|
Your Vote
|
| |
Other User Comments
|
 5/19/2002 10:16:19 AM: Cristina Rios
Hi Sachin, good !
(If this comment was disrespectful, please report it.)
|
6/12/2002 8:52:52 PM: Jamie K
Great Code!! Good for just about every program immagineable!
(If this comment was disrespectful, please report it.)
|
6/24/2002 8:11:23 AM: ~Taz...
Great! Excellent code - very small + very useful! Well Done!
(If this comment was disrespectful, please report it.)
|
6/24/2002 8:45:57 AM: Roberto F
yea, good code... was looking for this right now!
(If this comment was disrespectful, please report it.)
|
7/9/2002 5:33:15 PM: boondox
great code i tried to vote for it but pscodes vote script is no good..lol i entered the correct code it asked me to then told me i was wrong...but great code bro..
(If this comment was disrespectful, please report it.)
|
7/9/2002 5:35:12 PM: boondox
i hope you don't mind i'm borrowing the code for a mp3 player im writing..i will give you credit.
(If this comment was disrespectful, please report it.)
|
11/17/2002 2:42:02 AM:
great code one of the very uncommon codes on the net
(If this comment was disrespectful, please report it.)
|
12/6/2002 7:28:09 AM:
Its a Fantastic code & so small & Helpfullll.
(If this comment was disrespectful, please report it.)
|
12/22/2002 1:46:54 PM: Cerver Appz
Great code but the word wrap effect is a little annoying but I can take it for this excellent code. This little problem isnt nearly as bad as the one the 3,172 character code's problem. Its text goes to multple lines very noticibly.
(If this comment was disrespectful, please report it.)
|
3/13/2003 12:12:05 AM: DaVodkaL33T
Sweeeeeeeet. 5/5
(If this comment was disrespectful, please report it.)
|
3/25/2003 8:13:46 PM:
your site is cool. u teaching us beginners to understang VB in such a simple way.. thnx I hope i can learn more & some way i can give it back the favor to others.. tnx & God Bless
(If this comment was disrespectful, please report it.)
|
3/26/2003 11:00:54 PM:
Nice Work...
about me : www.goecities.com/vivek_patel9
email : vivek_patel9@rediffmail.com
(If this comment was disrespectful, please report it.)
|
7/24/2003 3:21:53 AM:
Cool! As everyone has already mentioned.
Really easy!
(If this comment was disrespectful, please report it.)
|
7/28/2003 5:01:52 AM:
Cool! Tnx.....
(If this comment was disrespectful, please report it.)
|
3/5/2004 8:22:29 PM:
Nice code. Simple and short
(If this comment was disrespectful, please report it.)
|
4/12/2004 12:36:07 PM: none
hello Sachin,
I found your code very usefull. I however Prefer to scroll text up in a form and have great code for this.
I modified your code so now you can scroll the forms caption
Private Sub Form_Load()
Form1.Caption = "Hi all, I am Sachin "
Timer1.Enabled = True
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
Dim str As String
str = Form1.Caption
str = Mid$(str, 2, Len(str)) + Left(str, 1)
Form1.Caption = str
End Sub
(If this comment was disrespectful, please report it.)
|
6/16/2004 9:09:58 PM:
man, this is so helpful, i just randomly sumbled upon it, and all i can say is, wow. and SWEET. thanks :D
(If this comment was disrespectful, please report it.)
|
9/25/2004 11:35:45 PM:
This is a kind0 of 0code0 that 0I0 WAS0 LOOKING 0FOR 0THANKS
(If this comment was disrespectful, please report it.)
|
8/8/2005 2:53:53 AM: ayaz
great
(If this comment was disrespectful, please report it.)
|
12/10/2005 7:15:20 PM: Dave
for some reason this code causes an error that causes vb to close.. every1 else managed to use it but for some reason not on mine. im using vb 6 if that helps. any advice is appreciated.
(If this comment was disrespectful, please report it.)
|
4/4/2006 5:13:00 AM: joko
6034114
(If this comment was disrespectful, please report it.)
|
7/17/2008 7:19:48 AM: Murat Selvi
Very cool. tnks
(If this comment was disrespectful, please report it.)
|
1/12/2009 6:30:13 AM:
wow I was Wondernig if I Could make a Youtube vid of how this is done
if so I Would put a Link to this webpage
Email me a Undead504@yahoo.com
(If this comment was disrespectful, please report it.)
|
4/2/2012 12:00:29 AM:
ITS SO NICE PROGRAM
(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.
|
