Media Player Sederhana Dari Visual Basic

Copas Code Di bawha ini Ke Dalam Visual Basic

Private Sub cmdbrowser_Click()
dialog.ShowOpen
List1.AddItem (dialog.FileName)
End Sub

Private Sub cmdpause_Click()
Me.WindowsMediaPlayer1.Controls.pause
End Sub

Private Sub cmdplay_Click()
Me.WindowsMediaPlayer1.Controls.play
End Sub

Private Sub cmdstop_Click()
Me.WindowsMediaPlayer1.Controls.stop
End Sub

Private Sub Command1_Click()
List1.Clear
End Sub
Private Sub List1_DblClick()
Me.WindowsMediaPlayer1.URL = (List1.Text)
End Sub

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
txtstatus.Text = (Me.WindowsMediaPlayer1.Status)
End Sub

Atau Project Download Now

Terima Kasih Sudah Membaca Artikel Media Player Sederhana Dari Visual Basic

NANTIKAN ARTIKEL DARI ROIS PEDIA SECARA GRATIS

Kang Rois - 08.54