|
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
|
