Mengakali Gambar Animasi Untuk Program VB

Animasi flash adalah gambar animasi bergerak berekstensi *.swf dan biasanya dijalankan dengan menggunakan flash player. Animasi flash banyak digunakan untuk membuat banner pada website, game dan bahkan banyak aplikasi yang dibuat dengan Flash. Selain itu kita juga bisa memainkan animasi flash melalui Visual Basic yaitu dengan menggunakan komponen ShockwaveFlash

Langkah – langkah memainkan animasi flash di VB:

1. Buat project baru pada Visual Basic 6.0 kemudian pilih Standard.exe

2. Tambahkan komponen ShockwaveFlash , pilih menu project -> components, maka akan muncul kotak dialog sebagai berikut :

Beri centang pada komponen ShockwaveFlash kemudian klik tombol Apply kemudian OK. Selain itu tambahkan juga CommonDialog dengan memberi tanda centang pada Microsoft Common Dialog Control 6.0

1. Kemudian tambahkan ke Form, 1 buah object ShockwaveFlah, 4 buah CommandButton, dan 1 buah CommonDialog sehingga tampilannya menjadi seperti ini :

# Selanjutnya Copy Paste Source Code Berikut ini :

Private Sub Command1_Click()

Me.CommonDialog1.Filter = "Flash File (*.swf) | *.swf"

Me.CommonDialog1.ShowOpen

End Sub

Private Sub Command2_Click()

Me.ShockwaveFlash1.Movie = Me.CommonDialog1.FileName

Me.ShockwaveFlash1.Play

End Sub

Private Sub Command3_Click()

Me.ShockwaveFlash1.StopPlay

End Sub

Private Sub Command4_Click()

End

End Sub

2. Jalankan program yang telah dibuat, klik tombol Open File kemudian cari file flash yang ingin dimainkan, kemudian klik tombol Play.

gaSumber