by Jason van Domburgh (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 18th September 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
'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
No comments have been posted about Scrolling text in the status bar on your app. Really just a modification to the code snippet by Tho. Why not be the first to post a comment about Scrolling text in the status bar on your app. Really just a modification to the code snippet by Tho.