Membuat Animasi Gambar Menggunakan Visual Basic 6.0.

Langkah1
Siapkan gambar yang akan dijadikan animasi, pada tutorial ini saya menggunakan gambar kelelawar sperti dibawah ini.

Langkah 2
Bukalah proyek baru menggunakan Standard EXE.

Langkah 3
Tambahkan objek Timer dan Image ke dalam form.

Langkah 4
Tambahkan juga objek ImageList yang berasal dari komponen, caranya klik kanan pada toolbox > pilih component > pilih Microsoft Windows Common Control 6.0 (SP2) > OK.


Membuat Animasi Gambar Menggunakan Visual Basic 6.0.

Langkah1
Siapkan gambar yang akan dijadikan animasi, pada tutorial ini saya menggunakan gambar kelelawar sperti dibawah ini.

Langkah 2
Bukalah proyek baru menggunakan Standard EXE.

Langkah 3
Tambahkan objek Timer dan Image ke dalam form.

Langkah 4
Tambahkan juga objek ImageList yang berasal dari komponen, caranya klik kanan pada toolbox > pilih component > pilih Microsoft Windows Common Control 6.0 (SP2) > OK.

Langkah 5
Desainlah tata letak susunan form menggunakan tabel pengaturan, sehingga tampak seperti gambar berikut.

Komponen Properti Nilai
Form Name FrmPlay
Caption Play Image
Image Name Image1
Timer Name Timer1
Interval 200
ImageList Name ImageList1

Langkah 6
Klik kanan padaobjek ImageList, keudian pilih properties untuk memasukan daftar gambar.

Langkah 7
Aktivkan Tab Image, kemudian tambahkan gambar kelelawar 1 s/d 10 secara berturut, caranya klik tombol Insert picture. Sehingga tampak seperti gambar dibawah ini.

Langkah 8
Setelah selesaimengatur form dan memasukan gambar pada ImageList, sekarang masukan kode dan tuliskan program lengkap berikut:

Option Explicit
Private m_Index As Integer
Private m_NumImages As Integer

Private Sub Form_Load()
m_NumImages = ImageList1.ListImages.Count
m_Index = 0
End Sub

Private Sub Timer1_Timer()
m_Index = ((m_Index + 1) Mod m_NumImages) + 1
Image1.Picture = ImageList1.ListImages(m_Index) _
.Picture
End Sub

Langkah 9
Nah setelah memasukan kode sekarang jalankan programnya, caranya pencet F5 kalo berhasil maka akan terlihat seperti gambar animasi.