Cara membuat media player sendiri di VB6

assalamualaikum gan, lagi ada materi buat bikin trid di forum
kita coba buat media player dari vb6, dengan cara yang mudah dan gak terlalu rumit untuk newbie yang lagi belajar ..

disini 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..

Posted in: Triks PC