gif animacija

gif animacija

offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Da li neko moze da mi pomogne da resim sledeci problem:
Na List1 je spisak gif animacija. Potrebno je da se 3 gif animacije, iz tog spiska, pokrecu sukcesivno - kad jedna zavrsi da krene druga pa treca, ali sve to jednim pritiskom na cmdKreni.
U labele se upisuju nazivi izabranih animacija.
Pokusao sam ovako, ali izvrsi se samo prva animacija do kraja, pa se pokrene samo prvi frejm druge a zatim i prvi frejm trece animacije i tu je kraj.
Code: Private Sub Timer1_Timer()         If FrameCount < TotalFrames Then         Image1(FrameCount).Visible = False         FrameCount = FrameCount + 1         Image1(FrameCount).Visible = True     Else          For i = 0 To Image1.Count - 1            Image1(i).Visible = False         Next i         Image1(FrameCount).Visible = True         Timer1.Enabled = False     End If End Sub Private Sub Timer2_Timer() If FrameCount < TotalFrames Then         Image2(FrameCount).Visible = False         FrameCount = FrameCount + 1         Image2(FrameCount).Visible = True Else      For i = 0 To Image2.Count - 1         Image2(i).Visible = False      Next i         Image2(FrameCount).Visible = True         Timer2.Enabled = False     End If End Sub Private Sub Timer3_Timer() If FrameCount < TotalFrames Then         Image3(FrameCount).Visible = False         FrameCount = FrameCount + 1         Image3(FrameCount).Visible = True Else         FrameCount = Image3.Count - 1     For i = 0 To Image3.Count - 1         Image3(i).Visible = False     Next i         Image3(FrameCount).Visible = True         Timer3.Enabled = False End If End Sub Private Sub cmdKreni_Click() List1.Selected(Label1.Caption ) = True If LoadGif(List1, Image1) Then     FrameCount = 0     Timer1.Interval = CLng(Image1(0).Tag)     Timer1.Enabled = True End If List1.Selected(Label2.Caption ) = True If LoadGif(List1, Image2) Then     FrameCount = 0     Timer2.Interval = CLng(Image2(0).Tag)     Timer2.Enabled = True End If List1.Selected(Label3.Caption ) = True If LoadGif(List1, Image3) Then     FrameCount = 0     Timer3.Interval = CLng(Image3(0).Tag)     Timer3.Enabled = True End If End Sub



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 232
  • Gde živiš: Beograd

Da bi nesto moglo da se vidi i ispravi, mora da se ima ceo izvorni kod sa svim objektima(formama, modulima klasama...) ukljucenim u taj kod. Znaci zipuj ceo taj folder i postavi ga ovde.



Ko je trenutno na forumu
 

Ukupno su 705 korisnika na forumu :: 59 registrovanih, 10 sakrivenih i 636 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1383 - dana 19 Okt 2014 22:26

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 11neco11, AcaNik, Acid_Burn, amaterSRB, ante mpt, At - Pui, BlekMen, Boris902, Brat Dragan, CheefCoach, comi991, CyberWarrior, dejnik978, dozorni, eleutheros, foxy, gold_digger, gorigoran, goxin, GTA, Hussar, idekius, igorsr, inskk, ivica976, knell, Kristian_KG, KUZMAR, laki_bb, lakiluciano, Marko Marković, markus2, mickie, milanka.marincic, milekNS, mpman, Mr. Majevica, nemanja034, nikoladim, proka89, Revolucion, roach, S-lash, Sall, Skywhaler, Sonyboy, stankovic, Stipe2, stringer bell, Sunderland06, tamburski, victoria, Vitez2, vladetije, zgoljo, zlaya011, zox-ni, 119, 223223
Siguran hosting