5. Buat Windows Media Player dengan VB Net 2010

1.    Buka VB 2010 kemudian beri nama Media Player
2.    Masukkan kontrol Media Player dengan cara , Klik kanan di Components ----- > Choose Item.

Akan Muncul sebuah kotak dialog, COM Components -------> dan Beri tanda centang di Windows Media Player , Klik OK

3.    Akan muncul sebuah kontrol Windows Media Player di ToolBox. Masukkan Kontrol Media Player tersebut ke dalam Form dan atur seperti di bawah ini :

4.    Masukkan lagi 1 buah kontrol  Open FileDialog

5.    Atur Propertiesnya sebagai berikut :
       •    Windows Media Player
            Name    =    mp
       •   OpenFileDialog
           Name    =    ms

6.    Masukkan lagi 1 buah Tombol dan atur posisinya seperti ini:

7.    Dobel klik di tombol Open yang baru kita masukkan dan ketik kode di bawah ini:

Public Class Form1

    Dim S As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ms.ShowDialog()

        S = ms.FileName

        wm.URL = S

    End Sub

End Class

8.    Nah sampai di sini selesai deh…. Silahkan mencoba file-file video koleksi anda. Oh iya player yang dibuat ini dapat memutar file yang sama dengan media player aslinya ^_^