Scrolling Text [TUT]

Welcome to my Scrolling text tutorial!

You will need:

A label
A timer

First add this:

Code:

 Dim i As Integer
    Dim strmessage As String

and this code to the timer and make it enabled!

Code:

Try

~THIS writes the text~
            i += 1 'Increase message
            Label1.Text += strmessage.Substring(i - 1, 1) 
        Catch ex As Exception
~THIS will reset the message to 0~

            i = 0 
            Label1.Text = ""
            strmessage = "MESSAGE HERE" 
        End Try

Why use try, because if use it you will get a error!

why do you need a timer? looks like the timer doesn't do anything

Originally Posted by stevethehacker

why do you need a timer? looks like the timer doesn't do anything

Try it out

It will write a scrolling message! very cool!

k i'll try it out

edit

cool I got it to work.Now I see why you need a timer. You didn't give much instructions

here is video proof. thnks for this

[YOUTUBE]http://www.youtube.com/watch?v=zsn3RaonrgI[/YOUTUBE]

Hmm, thanks i guess

Originally Posted by stevethehacker

k i'll try it out

edit

cool I got it to work.Now I see why you need a timer. You didn't give much instructions

here is video proof. thnks for this

[YOUTUBE]http://www.youtube.com/watch?v=zsn3RaonrgI[/YOUTUBE]

And I edited a bit!

wow o.o i already made scrolling text on the project im currently working on lmao, but i used a code thats easier

Originally Posted by guza44_44

wow o.o i already made scrolling text on the project im currently working on lmao, but i used a code thats easier

U wanna share it?

okay this one goes across the size of your application

just set your timer to enabled and set the interval to however fast u want and put this code inside the timer

seems longer cus i added an explanation next to each

this one is around the same size just more user friendly for newbies lol

Code:

If Label1.Left = 180 Then ' 180 is the size of your width (change it to your size)
            Label1.Left = -155 '-155 where it starts (you can change that)
            Label1.Left += 5 'makes it move its width by 5 every interval
        Else
            Label1.Left += 5 'makes it move its width by 5 every interval

        End If

Scrolling Text [TUT]

Post a Reply

Similar Threads

Tags for this Thread