• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make a Marquee with alternating behavior

Make a Marquee with alternating behavior

Make a Marquee with alternating behavior

API Declarations


Dim slide as Integer



Rate Make a Marquee with alternating behavior

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 'Add a shape control "Shape1" (a long skinny rectangle)
 'This serves as a track for the words. Set the visible 
 'property to False
 'Put a Label "Label1" inside the shape with the same 
 'height (top and bottom but not the same width)
 'Set the label1 alignment property to "1- right justify"
 'set the backstyle on the label1 "1-opaque"
 'Add the code to the form load and timer event

 Private Sub Form_Load()
 Timer1.Interval = 70
 slide = 70
 End Sub
 
 Private Sub Timer1_Timer()
 If Label1.Left < Shape1.Left Then
 slide = 70
 ElseIf Label1.Left + Label1.Width > Shape1.Left + 
 Shape1.Width Then
 slide = -70
 End If
 Label1.Left = Label1.Left + slide
 End Sub