Cara Membuat Animasi Gambar

        Kali ini Saya akan sharing bagaimana caranya membuat Animasi di Visual Basic 6.0. Langsung saja ya :) Tapi sebelumnya siapkanlah 2 buah gambar berformat .bmp. Buatlah project baru (Standard Exe), setelah itu tambahkan ImageList (pilih Project > Components, lalu pilih Microsoft Windows Common Controls).

 

• Berilah PictureBox, CommandButton, Timer dan ImageList pada Form.

• Pada properties Timer, ubahlah nilai Enabled menjadi False.

• Klik kanan pada komponen ImageList, lalu pilih properties dan pilih tab Images. Masukkan gambar dengan mengklik button Insert Picture.

• Selanjutnya, pada properties Timer ubahlah Interval menjadi 1000.

• Pada properties PictureBox, ubahlah nilai AutoSize menjadi True.

• Nah, sekarang saatnya menulis kode :D Double Click pada CommandButton dan ketikkan kode berikut:

          Private Sub Command1_Click()
          Timer1.Enabled = True
          End Sub

• Klik ganda pada Timer, lalu ketikkanlah kode-kode ini:

          Private Sub Timer1_Timer()
          Static gambar As Boolean
          If gambar Then
            Picture1.Picture = ImageList1.ListImages(1).Picture
          Else
            Picture1.Picture = ImageList1.ListImages(2).Picture
          End If
          gambar = Not gambar
          End Sub

• Setelah itu, coba jalankan programnya (dengan menekan F5). Jika tak terjadi kesalahan, hasilnya akan seperti ini:

• Klik CommandButton, maka gambar pun akan berubah-ubah.

       

• Selesai sudah.

                Begitulah caranya membuat animasi. Klik di sini untuk download contoh program. Sekian.... Thanks!! :)