A simple loading bar

by Tyrel (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 10^th September 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
just ***Create a label named label1 and 20 timers named timer1....timer20**

Rate A simple loading bar



Timer1.Enabled = False
Label1.Caption = "||           1"
Timer2.Enabled = True
End Sub

Private Sub Timer10_Timer()
Timer10.Enabled = False
Label1.Caption = "|||||||||||10"
Timer11.Enabled = True
End Sub

Private Sub Timer11_Timer()
Timer11.Enabled = False
Label1.Caption = "|||||||||||11|"
Timer12.Enabled = True
End Sub

Private Sub Timer12_Timer()
Timer12.Enabled = False
Label1.Caption = "|||||||||||12||"
Timer13.Enabled = True
End Sub

Private Sub Timer13_Timer()
Timer13.Enabled = False
Label1.Caption = "|||||||||||13|||"
Timer14.Enabled = True
End Sub

Private Sub Timer14_Timer()
Timer14.Enabled = False
Label1.Caption = "|||||||||||14||||"
Timer15.Enabled = True
End Sub

Private Sub Timer15_Timer()
Timer15.Enabled = False
Label1.Caption = "|||||||||||15|||||"
Timer16.Enabled = True
End Sub

Private Sub Timer16_Timer()
Timer16.Enabled = False
Label1.Caption = "|||||||||||16||||||"
Timer17.Enabled = True
End Sub

Private Sub Timer17_Timer()
Timer17.Enabled = False
Label1.Caption = "|||||||||||17|||||||"
Timer18.Enabled = True
End Sub

Private Sub Timer18_Timer()
Timer18.Enabled = False
Label1.Caption = "|||||||||||18||||||||"

Timer19.Enabled = True
End Sub

Private Sub Timer19_Timer()
Timer19.Enabled = False
Label1.Caption = "|||||||||||19|||||||||"
Timer20.Enabled = True
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
Label1.Caption = "|||          2"
Timer3.Enabled = True
End Sub

Private Sub Timer20_Timer()
Timer20.Enabled = False
Label1.Caption = "|||||||||||20||||||||||"
Timer1.Enabled = True
End Sub

Private Sub Timer3_Timer()
Timer3.Enabled = False
Label1.Caption = "||||         3"
Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer()
Timer4.Enabled = False
Label1.Caption = "|||||        4"
Timer5.Enabled = True

End Sub

Private Sub Timer5_Timer()
Timer5.Enabled = False
Label1.Caption = "||||||       5"
Timer6.Enabled = True
End Sub

Private Sub Timer6_Timer()
Timer6.Enabled = False
Label1.Caption = "|||||||      6"
Timer7.Enabled = True
End Sub

Private Sub Timer7_Timer()
Timer7.Enabled = False
Label1.Caption = "||||||||     7"
Timer8.Enabled = True
End Sub

Private Sub Timer8_Timer()
Timer8.Enabled = False
Label1.Caption = "|||||||||    8"
Timer9.Enabled = True
End Sub

Private Sub Timer9_Timer()
Timer9.Enabled = False
Label1.Caption = "||||||||||   9"
Timer10.Enabled = True
End Sub

Download this snippet Add to My Saved Code

A simple loading bar Comments

No comments have been posted about A simple loading bar. Why not be the first to post a comment about A simple loading bar.

A simple loading bar

A simple loading bar Comments

Post your comment

Difficulty