Cara membuat animasi menggunakan VB.6 dengan beberapa image, cocok untuk digubakan sebagai pemanis tampilan proram yang kita buat.
Berikut adalah tampilannya :
Persiapan:
Buat desain form seperti pada gambar:
1 form
1 image
1 ImageList
1 Timer (rubah interval = 500)
Source code :
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
Download Source lengkapnya Disini 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
Selamat mencoba...
Berbagi itu indah... :)
0 komentar:
Posting Komentar