• Home
 · 
• String Manipulation
 · 
• Animation Status bar

Animation Status bar

Easy! without API. Only a few lines of code.You can scroll your Status bar panel's text and You can modify suit to you.I hope you enjoy & your correctons,comments,Ideas are very gratefully.
G.B.R.Nilantha Athurupana.
Wattarama,Imbulgasdeniya,Sri Lanka.(94-03744479, E-Mail: [email protected])

Assumes
'Create a new form (Any Name you can use). Add a Timer control (Timer1)Required 'follwing ActiveX OCX to create a Status Bar Control(It name must be (SB) 'Microsoft Windows Common controls 5.0(SP2)

Rate Animation Status bar

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

'General Deciarations
Dim C As String 'to store panel's text
Dim CO As Integer 'to store text length
Dim FS As Long 'to store Panels Width
Private Sub MDIForm_Load()
 Timer1.Interval = 100
 SB.Panels(1).Text = "Nilantha Athurupana"
 C = SB.Panels(1).Text
 CO = Len(C) + 1
 SB.Panels(1).Text = ""
 FS = SB.Panels(1).Width
End Sub
Private Sub Timer1_Timer()
On Error GoTo ATH
 Static C01 As Integer ' Counter 1
 Static CO2 As Integer ' Counter 2
 Static A As String 'To move text
 
 Dim R As String 'Restore text
 Dim T As String 'Restore text
 
XX:
 If CO > 0 Then
  C01 = CO
  T = Mid(C, C01, 1)
  CO = CO - 1
  R = " "
  Mid(R, 1) = T
  SB.Panels(1).Text = R & SB.Panels(1).Text
 Else
  A = A & " "
  R = " "
  Mid(R, 1) = A
  SB.Panels(1).Text = R & SB.Panels(1).Text
 End If
 
 If CO2 >= FS Then
  CO2 = 0
  CO = Len(C)
  SB.Panels(1).Text = ""
  GoTo XX
 Else
  CO2 = CO2 + 35 'please edit this value according to your text length.
 End If
 Exit Sub
ATH:
End Sub