Cara Mudah Membuat Media Player Sendiri

Posted by Radkenz Networkz On Thursday, March 28, 2013 0 comments
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..

Labels: , , , , , ,

0 comments:

Post a Comment