添加部件---mircosoft common dialog control 6.0 和WindowsMediaPlayer
Private Sub Command1_Click()''添加音乐文件
On Error Resume Next
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()'''播放音乐文件
WindowsMediaPlayer1.URL = CommonDialog1.FileName
WindowsMediaPlayer1.Controls.play
End Sub