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]
Registrovani: 89 ( saki1983, srki021, nmilojevic, Nebojsa Milanovic, Dexter, jorganwd, lukaigane, Horvat, Nugatino, .gille, R2D22, sdusan2002, vukic_pa, superbaka, zvrki, milstanyu, maxxex, xzxz, puljco, igorpet, morihei ueshiba, loooooool, plan, djolepiv, agardasevic, vikator, 666_devil, pegasus, peromalosutra, guslac, meto manev, varga, taksistaZR, pingvin44, harasti, suse103, smars, component, mmm121, dusevan_covek, tomkeus, synn, brenas, umberto, SASA M., niceness, RADE M., flylord, mokelet, shibi81, Jazzic, sorrow, 101010, Flash411, P1ksi, dusanissimus, Dejan Milic, Milan Ogrizovic, kelja, abu simbel, twiddle, lumyy010, Emil Ranc, FORD_TRANZIT, Beltrammi, burex, mister no, lm741, ABAS1, Slobodan Milivojevic, Dragan Cvetkovic, ele, bobanjovanovic, vladabajic, cvrlle, grozda, Zoran Rodic, pera_KOYOT, braker, Buum, shiva, mower from ..., Stefan Markic, Mio_1, svetiduje, Ubleha, R A V E N, Boki4u, jooly )
simulacija slanja podataka!