evo komsija ovako je meni palo na pamet,ja bih to postavio 2 progress bar-a jedan da ima vrednost 100,a drugi 0 i onda vremenom jedan se smanjuje a drugi povecava,evo ti kod koji sam ja koristio,okacio bi projekat ali ne znam kako :D
potrebno:
2 x ProgressBar
1 x Command Button
3 x Timer
Code:
Public n As Integer
Public i As Integer
Private Sub Command1_Click()
i = 100
n = 0
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
End Sub
Private Sub Timer1_Timer()
i = i - 1
End Sub
Private Sub Timer2_Timer()
n = n + 1
End Sub
Private Sub Timer3_Timer()
ProgressBar1.Value = i
ProgressBar2.Value = n
If i = 0 Then
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
MsgBox "Zavrsheno"
End If
End Sub
intervali sva 3 tajmera su 250
[Ovu poruku je menjao The_End_is_close dana 03.02.2008. u 12:07 GMT+1]