• Home
 · 
• Miscellaneous
 · 
• This code allows continous rolling of text msg in statusbar and you can start and stop it. I have u

This code allows continous rolling of text msg in statusbar and you can start and stop it. I have u

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 ***



Rate This code allows continous rolling of text msg in statusbar and you can start and stop it. I have u

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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