Membuat Pemutar Film dengan Visual Basic 6

Kali ini saya akan share cara "Membuat pemutar film dengan visual basic 6.0".sebenarnya software ini di implementasi dari pemutar film yang ada di OS anda(windows media player,jadi untuk layar-nya kita tidak bisa edit.
namun untuk tombol,playlist dll kita bisa buat sedemikian rupa.Langsung saja !!!

1.Sebelum membuat projek kita harus menambahkan komponen "Windows Media Player dan Microsoft common dialog control 6.0" dengan cara 
Project > Commponents atau bisa juga dengan Ctrl + T
(Lihat gambar di bawah)

2.Setelah itu kita masukan 1 windows media player,1 commondialog,3 command button.1 listbox ke form,dan desain seperti berikut :

3.Setelah semua selesai sa'at nya kita bekerja :
double klik pada tombol Open file,lalu masukan script ini ke dalamnya:

CommonDialog1.ShowOpen

If play = "" Then

player1.URL = CommonDialog1.FileName

play = CommonDialog1.FileName

List1.AddItem (CommonDialog1.FileName)

Else

List1.AddItem (CommonDialog1.FileName)

End If

4.Double klik pada tombol fullscreen lalu masukan ini :

player1.fullScreen = True

5.Double klik lagi pada tombol exit lalu masukan ini :

End

6.Saat nya untuk uji coba.caranya pada saat Run.klik tombol "open file" > pilih film yang sekiranya bisa di putar oleh windows media player > putar

*Catatan

1.Jika anda ingin membuat tombol reset agar daftar di list box bersih kembali anda tinggal membuat tombol "Reset" lalu masukan ini ke dalamnya

List1.List = ""

player1.URL = Nothing

2.Pada saat proses Run,commondialog control tidak akan tampil karena sifatnya yang hanya untuk membuat file External !!!