申明:(CommonDialog控件的name改为cmd 把WindowsMediaPlayer的name改成WMP)你也可以不修改... Private Sub Command1_Click() End End Sub Private Sub Command2_Click(Index As Integer) cmd.FileName = "" cmd.DialogTitle = "请选择您要播放的MP3格式的文件 " cmd.Filter = "MP3|*.mp3|" Rem随便什么格式自己去添加就ok了 cmd.ShowOpen If Trim(cmd.FileName) = "" Then Exit Sub Else WMP.URL = Trim(cmd.FileName) End If End Sub Private Sub Form_Load() If App.PrevInstance Then End End If End Sub 貌似书上都有这个的做法啊？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024