• Home
 · 
• Miscellaneous
 · 
• Scrolling text in the status bar on your app. Really just a modification to the code snippet by Tho

Scrolling text in the status bar on your app. Really just a modification to the code snippet by Tho

Scrolling text in the status bar on your app. Really just a modification to the code snippet by Thorin on 9/9/03, but looks pretty slick in

Rate Scrolling text in the status bar on your app. Really just a modification to the code snippet by Tho

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'set it's style to simpletext
'put a timer on the form, interval at 200 looks nice
'set whatever simpletext you like on the statusbar, and replicate it
'in the credits string

Private Sub Timer1_Timer()

Dim credits As String
credits = "                    This snippet is brought to you by [email protected]  Looks really good if you put enough spacing in front so it starts scrolling off the screen......."

Dim j As Integer
j = Len(Status.SimpleText) - 1

Status.SimpleText = Right$(Status.SimpleText, j)
If Len(Status.SimpleText) = 0 Then Status.SimpleText = credits

End Sub