Cara Membuat Animasi di VB

Cara Membuat Animasi Bergerak Di Visual Basic

1.       Siapkan gambar yang akan di gerakkan di visual basic (gambar terdiri dri beberapa gambar yang tersusun secara rapi dan sesuai dengan pergerakan gambar)

Ex:

2.       Buka Program Visual Basic

3.       Pilih standar.exe lalu kilk open

4.       Siakan Form 

5.       Tambahkan objek TIMERdan IMAGE yang ada di TOOLBOX. Letakkan dimana saja.

6.       Tambahkan IMAGELIST yang dapat ditambahkan melalui ctrl+t  atau melalui menu PROJECT lalu pilih KOMPONENTS lalu centang   Microsoft Windows Common Controls 6.0 (SP2) kemudian klik APPLY 

7.       Taruhkan IMAGELIST dimana saja

Tampilan akan tampak seperti diatas

8.       Ubah data masing-masing komponen menjadi seperti dibwah ini:

a.         Kompone Form ubah data  Name menjadi FmGo

Kompone Form ubah data  Caption menjadi Terserah Anda

b.         KomponeImage ubah data Name menjadiImg

c.          KomponeTimer ubah dataName menjadiTimer1

Kompone Timer ubah dataInterval menjadi190 (makin kecil interval makin cepat gerak gambar)

a.         KomponeImageList ubah dataNamemenjadi Imgl

9.       Klik kanan pada objek IMAGELIST, kemudian pilih menu PROPERTIES

Klik tab IMAGES lalu INSERT PICTURE (Untuk menambahkan gambar yang telah dipersiaapkan tadi)

10.   setelah itu masukkan kode program berikut kedalam halaman kode ddengan melalui menu VIEW kumudian pilih CODE secara benar fan lengkap

 Option Explicit
Private m_Index As Integer

Private m_NumImages As Integer

Private Sub Form_Load()

m_NumImages = Imgl.ListImages.Count

m_Index = 0

End Sub

Private Sub Timer1_Timer()

m_Index = ((m_Index + 1) Mod m_NumImages) + 1

Image1.Picture=Imgl.ListImages(m_Index) _

.Picture

End Sub

11.   hasilnya akan seperti ini