Thursday, November 22, 2012

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



Newer Post Older Post

1 komentar:

Post a Comment

Blog ini Blog Dofollow,Silakan tinggalkan komentar Anda..
Cara Berkomentar:
1.Jangan Menggunakan kalimat kasar
2.Jangan Memberikan Link hidup pada komentar
3.Jangan berkomentar sejenis SARA/PO*N