Berikut adalah Cara Membuat Media Player Dengan VBnet 2008 :
- Buka Microsoft Visual Studio 2008 Anda
- Buatlah satu form default.
- Jika Sudah, buka menu Toolbox pilih tab components lalu klik kanan kemudian pilih choose items untuk menambahkan item atau komponen.
- Jika sudah muncul tampilan menu maka pilih tab Com Components kemudian pilih Windows Media Player dan beri Centang setelah itu klik Oke. maka otomatis komponen windows media player telah ditambahkan di menu toolbox.
- Jika Komponen Windows media playernya sudah ditambahkan maka akan terlihat di menu toolbox seperti dibawah ini :
- Jika sudah, klik Windows Media Playernya dan atur bentuk dan ukurannya di form1 tadi.
- Tambahkan beberapa komponen ke form1 seperti : 6 buah button, 1 buah checkbox, 1 textbox, dan 1 open dialog. Ganti masih2 nama dari komponen trsebut.
- Lalu masukkan kode masing2 komponen dibawah ini :
Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
If dialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
txtopen.Text = dialog1.FileName
Else
txtopen.Text = ""
End If
End Sub
Private Sub btnplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplay.Click
media1.URL = txtopen.Text
End Sub
Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click
media1.close()
End Sub
Private Sub prev1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prev1.Click
media1.settings.volume = media1.settings.volume - 1
End Sub
Private Sub prev2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prev2.Click
media1.settings.volume = media1.settings.volume + 1
End Sub
Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click
Close()
End Sub
Private Sub cmute_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmute.CheckedChanged
media1.settings.mute = cmute.Checked
End Sub
- Jika sudah, tes program dengan cara di runkan atau tekan f5. jika berhasil maka program akan dapat memutar video layaknya media player buatan windows.
Sekian Dari Saya, jika ada yg kurang di mengerti silahkan komen.. terima kasih..
