Membuat Animasi Sederhana Menggunakan Timer

Membuat animasi gambar bergerak menggunakan Vb6? apakah bisa? tentu saja bisa. Lalu bagaimana caranya? untuk mengetahui lebih lanjut langsung saja ke langkah-langkahnya sebagai berikut:

• Buka VB6 nya kemudian piih standard exe
• Pilih Project >> Component dan centang “Microsoft Windows Common Controls 6.0 (SP6)”.
• Kemudian Masukan 1 Picturebox, 1 command button, 1 timer dan 1 imagelist.

• Pada Imagelist klik kanan lalu pilih Properties, maka akan muncul jendela Property Pages".
• Pilih tab Images lalu klik Insert Picture masukan gambar yang kita inginkan

• Sedangkan pada Timer ubah intervalnya menjadi 1000 dan Enabled=False.
• Kemudian masukan Sintak berikut untuk command1:

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

• dan untuk timer1:

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

• Setelah itu jalankan programnya dan klik command1nya, maka bisa kita lihat gambar akan bergerak.

Sekian tutorialnya semoga bermanfaat.