Karena malas menyelesaikan tugas rancang, daripada nganggur mending buat post deh, udah lama juga ga nulis di blog :D
Kali ini saya mau share gimana sih bikin media player di windows form, nah saat kita instal microsoft windows, sudah ada player yang namanya windows media player yang dapat digunakan untuk memutar file video (ya iyalah namanya juga media player -__- ).
Oke kayaknya terlalu banyak basa-basi ngga jelas, langsung aja kita buat project baru seperti biasa, windows application yaa. Nah karena kita disini akan memanfaatkan wmp (windows media player) kita harus tambahkan dulu kontrol media player ke toolbox, caranya klik kanan di tab general di toolbox sebelah kiri layar. Sebenarnya tidak harus di tab general, tapi saya lebih suka meletakkan kontrol media player di tab general agar tidak bercampur dengan kontrol yang memang sudah disediakan oleh .net. Oke setelah klik kanan pilih choose items.
Muncul jendela baru, mungkin tampilannya berbeda
dengan visual stidio 2005, ngga masalah, nah pilih saja tab COM components cari
windows media player, beri tanda centang pada kotak disebelah kirinya, lalu
tekan ok.
Setelah klik ok, maka control windows media player akan
ditambahkan ke tab general.
Oke, selanjutnya kira tambahkan kontrol
ini ke desain windows form kita, posisikan sesuka kalian, saya akan posisikan
dia sebesar ukuran form (Dock = fill). Hingga terlihat seperti berikut:
Oke tampilan untuk sementara seperti ini
dulu aja, nah sekarang bagian yang paling seru dalam membangun suatu aplikasi,
coding-mengoding :D
Masuk ke event form_load, kita akan buat
player ini memutar video saat
dijalankan.
Public Class FormPlayer1
Private Sub FormPlayer1_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) _
Handles
Me.Load
Try
'
definisikan url tempat file video berada, sertakan juga ekstensinya
Dim
lokasi As String
= "C:\Users\HendryKang\Downloads\Video\"
& _
"Kelly
Clarkson\Kelly Clarkson - My Life Would Suck Without You.flv"
'
tambahkan url tersebut ke media player
AxWindowsMediaPlayer1.URL = lokasi
' putar
videonya
AxWindowsMediaPlayer1.settings.autoStart = True
Catch
ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
End Try
End Sub
End Class
Sampai disini kita sudah bisa jalankan
aplikasinya, tekan F5.
Oke, sukses kan?? Hahaha…
Cukup mudah bukan??
Pilih tab resources