第一种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 ...
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024