Cara membuat media player dengan visual basic

Nama Component	Nama	Caption / Text
Form1	Form1	VMplayer
CommandButton1	cmdadd	&Add
CommandButton2	cmdplay	&Play
CommandButton3	cmdpause	&Pause
CommandButton4	cmdstop	&Stop
CommandButton5	cmdexit	&Exit
Text1	txtadd	“kosongkan”
CommonDialog1	CD	“kosongkan”
WindowsMediaPlayer1	vmplayer	“kosongkan”

Cara untuk mendapatkan CommonDialog n WindowsMediaPlayer adalah: -Pencet keyboard Ctrl+T

                                                                                                             -Cek list  pada “Microsoft                                                                                                       Common Dialog Control                                                                                                          6.0 (SP6)” dan “Windows                                                                                                   Media Player”

                                                                                                              -Lalu klik ok

3.  Lalu tata semua componentnya seperti gambar berikut: 

4.  Setelah Selesai mengatur letak sekarang masukkan kode berikut caranya klik menu “View >     Code”

Ini kodenya:

 

Private Sub cmdadd_Click()

On Error GoTo akhir

Dim Filename As String

cd.Filter = "Semua File|*.*" 'kamu bisa merubah kode ini sesuai dengan kebutuhan misal Image|*.jpg

cd.ShowOpen

Filename = cd.Filename

akhir:

If Len(Filename) > 0 Then

txtadd.Text = Filename

vmplayer.URL = txtadd.Text

Timer1.Enabled = True

End If

End Sub

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub cmdpause_Click()
vmplayer.Controls.pause
Timer1.Interval = 0
End Sub

Private Sub cmdplay_Click()
vmplayer.Controls.play
Timer1.Enabled = True
End Sub

Private Sub cmdstop_Click()
vmplayer.Controls.stop
Timer1.Enabled = False
End Sub

Private Sub form_load()
txtadd.Visible = False
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Form1.Caption = vmplayer.currentMedia.Name
End Sub

DIBAWAH INI APILIKASINYA BISA DIDOWNLOAD :

<a
href="http://downloads.ziddu.com/download/24136043/Vmplayer.exe.html " target="_blank"><img alt="Download Button" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiK-A-OlYXSEEGSdfc1vO1vYCCVmzu0QJbXIT27S5SJZOYtDBC-hBB-ieOxb3TJn0fwXrjvck-xebLt4NhH5FdCCN5CeMFoUpRJXpvsg7hYS7QzDwY5d6iSlhw5-hC4KtWG_J2oKBVkYUfE/s1600/download-button.jpg" /></a>