by Renato Gesulga (Hindang, Leyte) (2 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 25th July 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Marquee text from left to right and vice versa.
Address: Brgy. San Vicente,Hindang,Leyte,Philippines
Email: [email protected]
Mobile #: +639104534819
Course: BS Information Technology
School Add: Brgy. Atabay,Hilongos,Leyte
Decated to myBhe2...Rugelyn Labajo
Plss..do email me if you like my code snippets..thank you
****************************************************
First have 1 timer control and label.. name it lblTrace.caption
Copy the code and see what happens...
it is 100% sure code...try it now..snippets it..!!!
this is my response to the some code that was submitted here and
i found out that it wont do what they are stated...
so i made a sure code for everyone and to all students..
hi..to all students of MLG COLLEGE OF LEARNING.. and to Programmer to be..
******************************************
this code is for text moving to right
note: assign text to lblTrace control. that you want to marquee on the lblTrace
type this to Form_load ()
lblTrace.caption= "text"
Private Sub Timer1_Timer()
Dim a As Integer, b As String, c As Integer
lblTrace.Left = 1 'asign control to lowest value.the starting point.
b = 4000 ' this code is the end value of where and how the text marque from left to right...
For c = 1 To b Step 1
' increment the control movement property
lblTrace.Left = lblTrace.Left + 1
Next
Timer1.Enabled = False
End Sub
***********************************************
this code is for marquee of text from left to right
Private Sub Timer2_Timer()
Dim a As Integer, b As String,c as integer
a = 1
b = 1
For c = 4000 To b Step -1
lblTrace.Left = lblTrace.Left - b
Next
Timer2.Enabled = False
End Sub