• Home
 · 
• Graphics
 · 
• Tired of nasty Progressbars that you wished looked better and had more options? Just use this snipp

Tired of nasty Progressbars that you wished looked better and had more options? Just use this snipp

Tired of nasty Progressbars that you wished looked better and had more options? Just use this snippet to transform a simple Shape into your

API Declarations


'By Colin Kemege [email protected]
'Add a Form, name your form: frmProgress
'Make a shape: Shape1
'Make a Timer: Timer1
Dim p As Integer



Rate Tired of nasty Progressbars that you wished looked better and had more options? Just use this snipp

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

frmprogress.Width = 7000
Timer1.Interval = 50 'you can change this to manipulate how fast/slow the shape goes
Shape1.BorderColor = vbWhite 'change this to whatever color you want
Shape1.Width = 0 'customize this if you change the timer code
Shape1.FillStyle = 0 'so vblack shows up
Shape1.FillColor = vbBlack 'change this to whatever color you want
End Sub

Private Sub Timer1_Timer()
'this timer is the key to when our shape moves and how much
Randomize
p = Int((5 - 2 + 1) * Rnd + 2) 'it moves randomly now(to an extent), but you can customize it
If p = 2 Or p = 3 Then
Shape1.Width = Shape1.Width + 65 'customize by changing the "shape.width + x", the Rnd numbers, and by changing how far the shape goes until an event occurs
End If
If p = 4 Or p = 5 Then
Shape1.Width = Shape1.Width + 22
End If
If Shape1.Width >= 4335 Then 'right now it ends the program and displays a msgbox
MsgBox "Data has been loaded" 'change this event to your likings
Unload Me
End
End If
End Sub