cara memasukan animasi flash pada visual basic 6.0

sekarang saya dapat ilmu baru cara memasukan animasi flash pada visual basic 6.0 silahkan lihat tutorial di bawah ini =D

Persiapan Komponen

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

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


Beri centang pada komponen ShockwaveFlash kemudian klik tombol OK.

Selain itu tambahkan juga CommonDialog dengan memberi tanda centang pada Microsoft Common Dialog Control 6.0.
Jika Component tidak ada, anda dapat menginstal FlashPlayer terlebih dahulu dan mencari file Flash9b.ocx.

Penyusunan Objek dan Layout

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


Selanjutnya tambahkan kode berikut :

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

Tes Program

jalankan program dengan menekan tombol F5