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.




Potreban je samo minut da se registrujete - da biste učestvovali u diskusiji:
Izaberite vaše korisničko ime [username] :
Vaša email adresa je [email] : Email adresa mora biti tačna!
Ukucajte željenu šifru [password] :
Ukucajte šifru ponovo [password again] :
Jezik [language] :




Ili se jednostavno uloguj preko Facebook-a:
Ko je trenutno na forumu
 

Ukupno su 643 korisnika na forumu :: 73 registrovanih, 6 sakrivenih i 564 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, _Sale, Acid_Burn, aleksmajstor, argus, Arhiv, Bobo123, bocke, Boris90, Bov, brankob1, cetka, Chuck Norris, CyberWarrior, Davor Kerezovic, Detective, Dicus, djboj, djolew, dobri covek, dragan jna, duxhm, Dušan Silni, faris.orman, gagidjuric, Georgius2, higuy, ikan, jazbar, jeremic, justkidding74, kdor ma cajta, klodovik, knell, KUZMAR, lidija2011, Ljilja Hnovi, Lunar Module, madza2, Manojlo, MB120mm, mikrimaus, miroslavrakita, mislimdaimamnesto, Momcilo Guberinic, nada.avramov, Nebojsha Trajkovich, Njemac, Plav Medved, rapha, sakota79, sasa76, Shomy2, SlobaBgd, snik, sosko, Spiritwalker, Srecica Sreca, stefan_vekic, stringer bell, SVEVID2, Toni, USSVoyager, vasa.93, vathra, victoria, Vitez2, VJ, Vlada78, Vojkan Petrovic, zoidbergs, zziko, Žan Klod vam dam
Siguran hosting