.NET Tutorials, Forums, Interview Questions And Answers
Welcome :Guest
 
Sign In
Register
 
Win Surprise Gifts!!!
Congratulations!!!


Top 5 Contributors of the Month
david stephan

Home >> Code Snippets >> Windows Form Controls >> Post New Resource Bookmark and Share   

 Subscribe to Code Snippets

Scroll text using timer

Posted By:satyapriyanayak       Posted Date: March 11, 2013    Points: 40    Category: Windows Form Controls    URL: http://www.dotnetspark.com  

Scroll text using timer
 

Here I will show you how to scroll text message in both the directions from left to right and from right to left.

 

Program

Public Class Form1


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = Mid(Label1.Text, Len(Label1.Text)) & Mid(Label1.Text, 1, Len(Label1.Text) - 1)

        Label1.ForeColor = Color.White

        Label1.BackColor = Color.Red

    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Label2.Text = Mid(Label2.Text, 2, Len(Label2.Text)) & Mid(Label2.Text, 1, 1)

        Label2.ForeColor = Color.White

        Label2.BackColor = Color.Red

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = True

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer2.Enabled = True

    End Sub

End Class

     

Further Readings:

Responses

No response found. Be the first to respond this post

Post Comment

You must Sign In To post reply
Find More code samples in C#, ASP.Net, Vb.Net and more Here

Hall of Fame    Twitter   Terms of Service    Privacy Policy    Contact Us    Archives   Tell A Friend