by Rishav Sinha (INDIA) (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 21st April 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This code allows continous rolling of text msg in statusbar and you can start and stop it. I have used it in one of my applications where in,
API Declarations
'Author: Jason van Domburgh
'Date Submitted: 9/18/2003
'Category: Other
'Compatibility: VB 6
'*** KEEP SHARING & THANK YOU ***
VBcoders
'StatusBar1.Panels(1).Text at MDIFORM_LOAD()
'on design time keep timer.enabled = false and interval as 100
'countx id to be declared in the form as public and
'initialize countx and set timer.enable=true in MDIFORM_LOAD
'when u load any mdichild form in that form's
'load event set MDIFORM.TIMER.ENABLE=FALSE
'and in unload event set MDIFORM.TIMER.ENABLE=TRUE
Private Sub Timer1_timer()
Dim i As Integer
Dim credits As String
credits = " *** Welcome to ROLLING TEXT in STATUSBAR *** Submitted By: RISHAV SINHA"
i = Len(StatusBar1.Panels(1).Text)
If countx > 101 Then countx = 1 Else countx = countx + 1
StatusBar1.Panels(1).Text = Mid(credits, countx) + Mid(credits, 1, countx)
End Sub
No comments have been posted about This code allows continous rolling of text msg in statusbar and you can start and stop it. I have u. Why not be the first to post a comment about This code allows continous rolling of text msg in statusbar and you can start and stop it. I have u.