添加一个WindowsMediaPlayer控件放到窗体里,然后写代码: Private Sub Command1_Click() WindowsMediaPlayer1.URL = "123.mp3" '这句代码的意思是播放程序所在文件夹中的123.mp3 'URL后面添地址,可以是网址
第一种Private Sub Form_Load()
Set a = CreateObject("wmplayer.ocx")a.url = "E:\mp3\花好月圆.mp3" '你可在此改成你的乐曲
a.settings.playCount = 99999
End Sub
Private Sub Form_Unload(Cancel As Integer)
a.Controls.stop
a.Close
Set a = Nothing
End Sub
第二种 加个Windows Media Player控件