Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Marque Text
Author:
santosh shelar
E-mail:
Click to e-mail author
Submitted:
5/12/2010
Version:
VB 2008
Compatibility:
VB 2008
Category:
Forms
Views:
12442
Moving text from right to left.
Declarations:
'use 1 label, 1 timer and 1 numericupdown for controling speed
Code:
Public Class Form6 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = NumericUpDown1.Value Label1.Left = Label1.Left - 10 If Label1.Left < 0 - Label1.Width Then Label1.Left = Me.Width End If End Sub Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True End Sub End Class
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement