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 236 korisnika na forumu :: 20 registrovanih, 0 sakrivenih i 216 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: Apok, bulltony, Chuck Norris, dekao, jazbar, maCvele, mpman, Plav Medved, Protivpozarac Pula 83 84, raketaš, Recce, royst33, strucnjak96, t.mile, versus, WS2, zaratusta, zixo, Zorge, Žan Klod vam dam
Siguran hosting