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: 236
  • 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 428 korisnika na forumu :: 43 registrovanih, 3 sakrivenih i 382 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: alimpije, Bane san, Barkman, bayonetman, Bogoslov, cedaveljas, CheefCoach, Cigi, deks2, Dukelander, frenk, Futurama, goxin, haris-74, hawkeye, helen1, ivica976, Kožedub, krauterbox, lakiluciano, lakiviki9, Leptir100, ljuba, ljuba.b, lolovoz, mikrimaus, MilosKop, mongolac, mpman, ostoja, pustinjski_tolstolobik, Radovan Vinčić, radoznao, raskoljnikov, ray ban11, ruma, sasa_stole, simaris, SKORPION, SlobaBgd, TitovPionir, Wisdomseeker, Zerajic