İlgilendiğiniz için teşekkür ederim arkadaşlar. Revlis üstad'ın dediği gibi ImageList Kullandım. Konuyu kitaptan inceleyip uygulamaya başladım. ... Fakat uygulamada sorunlar yaşadım ... ImageListe 11 adet .bmp resim yükledim. Kodlar aşağıda ve ek olarak bir resimle açıklamaya çalıştım. İlgilenen arkadaşlara teşekkürlerimi sunuyorum.
Private Sub Form_Load()
Dim i
For i = 1 To 11
Call ImageList1.ListImages.Add(LoadPicture("anim" & i & ".bmp"))
Next
End Sub
Private Sub Timer1_Timer()
Static i
Dim j
i = i Mod 11
i = i + 1
j = i + 1
j = (i Mod 11) + 1
Image1.Picture = ImageList1.Overlay(i, j)
Image2.Picture = ImageList1.ListImages(i).Picture
End Sub
|