I have a progressbar with timer1, which is running from 1 to 100 with 15 point interval time of timer1.
i want to play the progress bar in reverse order i.e. from 100 to 1, how can i do it, plz help. thanks........
Printable View
I have a progressbar with timer1, which is running from 1 to 100 with 15 point interval time of timer1.
i want to play the progress bar in reverse order i.e. from 100 to 1, how can i do it, plz help. thanks........
Something like this may work for you:
Code:Option Explicit
Private Sub Command1_Click()
ProgressBar1.Value = ProgressBar1.Max
ProgressBar1.Visible = True
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
ProgressBar1.Max = 100
ProgressBar1.Min = 1
ProgressBar1.Scrolling = ccScrollingSmooth
ProgressBar1.Visible = False
Timer1.Enabled = False
Timer1.Interval = 15
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value - ProgressBar1.Min
If ProgressBar1.Value <= ProgressBar1.Min Then
Timer1.Enabled = False
ProgressBar1.Visible = False
End If
End Sub
Hey thanks a lot........... code is working fine.......... thanks again......