by Tijmie (1 Submission)
Category: Sound/MP3
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 23rd October 2001
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Play music with media player
'microsoft common dialog6.0 : name : cd
'command button : name : open
'command button : name : play
Private Sub Command1_Click()
cd.Filter = "Mp3|*.mp3|midi|*.mid|wav|*.wav"
cd.ShowOpen
End Sub
Private Sub Command2_Click()
md.FileName = cd.FileName
md.Play
End Sub