Cara Mudah Membuat Media Player Sendiri

Di sini saya cuma memanfaatkan komponen media player pada vb6, sedikit coding dan beberapa modifikasi agar terlihat lebih menarik.
lanjut, buka Visual Basic 6..
buat file exe standar

Atur ukuran form sesuka agan
kemudian tekan CTRL+T untuk menambahkan komponen media player


tambahkan komponen tsb ke Form, lalu atur ukuran..
contoh punya ane gan:



Buat 1 modul dan beri nama modBhc, dan masukan kode ini

Code:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As Long, _
                ByVal lpOperation As String, _
                ByVal lpFile As String, _
                ByVal lpParameters As String, _
                ByVal lpDirectory As String, _
                ByVal nShowCmd As Long) As Long

Public Sub OpenURL(situs As String, sourceHWND As Long)
     Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
End Sub

tambahkan komponen Microsoft Commond Dialog 6
masukan ke dalam form, (taro di mana aja)
kemudian buatlah 1 command button ubah caption menjadi Open, dan masukan kode ini

Code:

CommonDialog1.ShowOpen
    WindowsMediaPlayer1.URL = CommonDialog1.FileName

selesai..

nah ini contoh jadi nya kira" sperti ini..