SWF Player

Dalam contoh yang ditampilkan ini dibuat dengan model yang lebih kecil.Player ini dari namanya sudah dapat diketahui bahwa fungsinya hanya untuk memutar file-file yang berekstensi *SWF termasuk file-file presentasi. Ikuti langkah-langkah berikut:
1. Buka program VB6
2. Pilih Standart.EXE
3. Masukkan kontrol Shockwave Flash:


4. Masukan 4 buah CommandButton :



5. Masukan 1 buah commondialog


6. Masukan kode dibawah ini :

Private Sub Command1_Click()
Me.CommonDialog1.Filter = ".swf Files|*.swf|"
Me.CommonDialog1.ShowOpen
Me.ShockwaveFlash1.Movie = Me.CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
Me.ShockwaveFlash1.Play
End Sub

Private Sub Command3_Click()
Me.ShockwaveFlash1.StopPlay
End Sub

Private Sub Command4_Click()
Me.ShockwaveFlash1.Stop
End Sub

Private Sub Command5_Click()
MsgBox "Created by. (nama anda)"
End Sub

Private Sub Command6_Click()
End
End Sub

7. Tekan F5 untuk menjalankan program ini.
Selamat mencoba !!!

Senang sekali jika anda mau berbagi dengan aku di kolom komentar atau dalam buku tamu blog ini....