Media Player dengan VB6

Membuat media player dengan menggunakan VB6 kita memerlukan library  wmp.dll yang ada di folder ..windows\system32\wmp.dll ada pun cara add component seperti ini :

Maka kita perlu mencari control Windows Media Player :

Tampak pada toolbox kita sudah ada control Windows Media Player, kemudian kita tambahkan control Commond Dialog yang nantinya berguna untuk kita mencari file-file multimedia seperti .mp3, .avi, .dat, .wmv juga .mpg yang nantinya kita siap untuk play di control Windows Media Player.

Maka untuk script commandnya adalah :

Private Sub cmdOpen_Click()

dlg.ShowOpen

Label1.Caption = dlg.FileName

wdp.URL = Label1.Caption

End Sub

Private Sub cmdVolMin_Click()

wdp.settings.volume = wdp.settings.volume - 1

End Sub

Private Sub cmdVolPlus_Click()

wdp.settings.volume = wdp.settings.volume + 1

End Sub

Private Sub Form_Load()

wdp.settings.autoStart = False

End Sub

Maka jika setelah kita Run (F5) form yang sudah kita buat akan tampaklah seperti berikut 

Anda juga bisa mengembangkan program ini sesuai tampilan yang anda inginkan tampak pada tampilan script command : “wdp.settings.volume = wdp.settings.volume + 1 ” ini adalah seting volume control, tampak gambar dibawah adalah kita akan memilih peoperties dari control Windows Media Player :

Dengan mengolah dari properties yang ada maka program anda akan tampak lebih mewah.

Untuk anda yang memerlukan Sourcecode nanti bisa saya kirim ke email anda.

Posted in: Vb