vb播放声音

来源：百度知道 编辑：UC知道 时间：2024/05/29 10:56:25
窗体上有5个按钮，分别是“播放”，“暂停”，“停止”，“上一首”，“下一首”；

当前目录下有很多mp3文件，当程序运行的时候，自动播放第一首歌，按“暂停”时，暂停播放

按“播放”时，继续已经暂停的播放，按“停止”则停止播放歌曲，按“下一首”播放下一首歌，“上一

首”则播放上一首歌，如果已经是第一首，则“上一首”按钮不可用，如果已经是最后一首，则“下一首

”钮不可用。要求用windows media player控件做，拜托各位了！

如果你用的是mp3单个文件播放的话，可以用list列表保存列表
首先导入目录下的mp3文件到列表框中，程序运行
url=****指定播放文件，可以为list1.list(list1.listindex) 即列表框中的第一个文件

另外，可通过WindowsMediaPlayer.controls对播放器进行控制
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
上一曲和下一曲可以通过list控件来操作，除非你用m3u文件来制作播放列表，那么就可以用其它方式操作，关于m3u后面再说

如果还是url用的mp3文件，那么可以用一个timer判断是否播放结束，用下面两个属性
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"

结束后url再度赋值

第二种方法是m3u文件
把当前目录所有mp3文件保存到一个文件里，后缀为m3u，每一行一个mp3文件，包括完整的路径和文件名

操作基本类似
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
controls.next; 下一曲
controls.previous; 上一曲

而且m3u文件播放完成自动跳转到下一曲