• Home
 · 
• String Manipulation
 · 
• Caption Scroller IMPROVED

Caption Scroller IMPROVED

This Code will Scroll the title
of your window(s) like Winamp
To the left OR to the right.

Assumes
Just create a Timer called TIMER1 and plaste this code in the TIMER1_TIMER sub. The Variable "Direction" needs to contain one of two values:"Right" or "Left" You May need to change the INTERVAL Property of the timer as it defaults to Zero.

Rate Caption Scroller IMPROVED

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

'Code provided by Alpha Media Inc.
'http://www.alphamedia.net
'Makers of Pink Notes Plus!
'http://www.pinknotesplus.com
Private Sub Timer1_Timer()
 Dim String2 As String
 Dim String1 As String
 If Direction = "Left" Then
  String2 = Left$(Caption, 1)
  String1 = Right$(Caption, Len(Caption) - 1)
 ElseIf Direction = "Right" Then
  String1 = Right$(Caption, 1)
  String2 = Left$(Caption, Len(Caption) - 1)
 End If
 
 Caption = String1 & String2
End Sub