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 963 korisnika na forumu :: 94 registrovanih, 10 sakrivenih i 859 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: 2gavrana, _Sale, aBobban, acasm94, aljosa7, Arhiv, AV Gurus, Blue, BRATORIII, chica, dacanaldo, damirZR, darko-markovic, dejoglina, dekao, der, Dimitrije Paunovic, djboj, Djordje Colovic, Dorcolac2, dozorni, dr_Bora, dradex2105, Dragan Mačak Damljanović, Dusko Nikolin, filiphr, Fuma, GavriloBg, Georgius, GrobarRomanticar, gsb, haris-74, i.senica, ikan, ILGromovnik, Ivan_KS, justkidding74, kairos, kljift, klodovik, kobaja EL grande, KUZMAR, ljubasav, LonelyWolf2, lopov drpiga, maiden6657, Marko Marković, marko1908, markus2, meinkampf, micoboj, Mile Plavljanic, milenko crazy north, milimoj, MILO-VAN, Milovan1111, mislimdaimamnesto, mongolac, nebkv, ozzy, pavle_pzs, pele66, piksi.golub, Recce, Reljic2, robertino, rovac, royst33, ruseskij, S2M, sakota79, sezan, shaja1, Singidunumac, snovakovic50, Somali, spasa, Sr.Stat., Trpe Grozni, trutcina, uros2, uruk, vasa.93, Viceroy2, vladimir035, Voja1978, voja64, vojnik švejk, vranjanac29, vukovi, Wiesel092, zgoljo, zoran-ruma, 223223
Siguran hosting