|
|
|
| Title | Animate a series of bitmaps stored in an ImageList |
|---|
| Keywords | animation, bitmap, animate, multimedia |
|---|
| Categories | Multimedia, Graphics |
|---|
|
|
|
Store the frame images in an ImageList control. When a Timer fires, copy the next frame's image into a visible PictureBox. This program loops forward and backward through images 1 to 11.
|
|
Private Sub tmrNextFrame_Timer()
Static next_frame As Integer
Static d_frame As Integer
If d_frame = 0 Then d_frame = 1
next_frame = next_frame + d_frame
If next_frame > imlFrames.ListImages.Count Then
next_frame = imlFrames.ListImages.Count
d_frame = -1
ElseIf next_frame < 1 Then
next_frame = 1
d_frame = 1
End If
picScreen.Picture = _
imlFrames.ListImages(next_frame).Picture
DoEvents
End Sub
|
| |
 |
| |
|
