求助各位大佬，如何在播放器添加顺序播放的功能？

炼金师

我想在播放器里添加1个顺序播放的功能，目前运行时当前音乐播放结束后不再继续播放下一首，只能手动操作，我想设置自动播放下一首。技术难题被卡脖子了。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
MP3文件列表	文本型	0
当前播放索引	整数型
下一首索引	整数型
随机播放索引	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

当前播放索引 ＝ 0  ' 初始化为0，表示没有播放任何文件
' 初始化超级列表框：清空现有内容，并添加一列用于显示曲目名称
超级列表框1.全部删除 ()
超级列表框1.插入列 (0, “曲目名称”, 150, , , )  ' 插入列，标题为“曲目名称”，宽度150像素

子程序名	返回值类型	公开	备 注
_播放按钮_被单击

变量名	类 型	静态	数组	备 注
文件组	文本型		0
i	整数型
文件名	文本型
反斜杠位置	整数型
路径数组	文本型		0

文件组 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )
如果真 (取数组成员数 (文件组) ＝ 0)
返回 ()

' 将选择的文件添加到程序集变量中
MP3文件列表 ＝ 文件组
当前播放索引 ＝ 1  ' 从第一首开始播放
' 清空超级列表框，然后遍历文件列表，将文件名添加到超级列表框
超级列表框1.全部删除 ()
计次循环首 (取数组成员数 (MP3文件列表), i)
' 使用字符串处理提取文件名
反斜杠位置 ＝ 倒找文本 (MP3文件列表 [i], “\”, , 假)
如果真 (反斜杠位置 ≠ -1)
文件名 ＝ 取文本右边 (MP3文件列表 [i], 取文本长度 (MP3文件列表 [i]) － 反斜杠位置)

' 插入到超级列表框
超级列表框1.插入表项 (-1, 文件名, , , , )
计次循环尾 ()
播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])

子程序名	返回值类型	公开	备 注
_暂停按钮_被单击

暂停播放MP3 ()

子程序名	返回值类型	公开	备 注
_继续按钮_被单击

继续播放MP3 ()

子程序名	返回值类型	公开	备 注
_下一首按钮_被单击

如果真 (取数组成员数 (MP3文件列表) ＝ 0)
返回 ()
' 计算下一首索引
下一首索引 ＝ 当前播放索引 ＋ 1
如果真 (下一首索引 ＞ 取数组成员数 (MP3文件列表))
下一首索引 ＝ 1

' 更新当前播放索引
当前播放索引 ＝ 下一首索引
' 停止当前播放并播放下一首
暂停播放MP3 ()
播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])

子程序名	返回值类型	公开	备 注
_随机播放_被单击

变量名	类 型	静态	数组	备 注
随机数	整数型

如果真 (取数组成员数 (MP3文件列表) ＝ 0)
返回 ()
' 生成一个随机索引（不同于当前播放索引）
置随机数种子 ()
随机数 ＝ 取随机数 (1, 取数组成员数 (MP3文件列表))
循环判断首 ()
随机数 ＝ 取随机数 (1, 取数组成员数 (MP3文件列表))
循环判断尾 (随机数 ＝ 当前播放索引)
' 更新当前播放索引
当前播放索引 ＝ 随机数
暂停播放MP3 ()
播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 MP3文件列表, 文本型, , "0"<br /> .程序集变量 当前播放索引, 整数型<br /> .程序集变量 下一首索引, 整数型<br /> .程序集变量 随机播放索引, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 当前播放索引 ＝ 0  ' 初始化为0，表示没有播放任何文件<br /> ' 初始化超级列表框：清空现有内容，并添加一列用于显示曲目名称<br /> 超级列表框1.全部删除 ()<br /> 超级列表框1.插入列 (0, “曲目名称”, 150, , , )  ' 插入列，标题为“曲目名称”，宽度150像素<br /> <br /> <br /> .子程序 _播放按钮_被单击<br /> .局部变量 文件组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 反斜杠位置, 整数型<br /> .局部变量 路径数组, 文本型, , "0"<br /> <br /> 文件组 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )<br /> .如果真 (取数组成员数 (文件组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> ' 将选择的文件添加到程序集变量中<br /> MP3文件列表 ＝ 文件组<br /> 当前播放索引 ＝ 1  ' 从第一首开始播放<br /> ' 清空超级列表框，然后遍历文件列表，将文件名添加到超级列表框<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取数组成员数 (MP3文件列表), i)<br />     ' 使用字符串处理提取文件名<br />     反斜杠位置 ＝ 倒找文本 (MP3文件列表 <i>, “\”, , 假)<br />     .如果真 (反斜杠位置 ≠ -1)<br />         文件名 ＝ 取文本右边 (MP3文件列表 <i>, 取文本长度 (MP3文件列表 <i>) － 反斜杠位置)<br />     .如果真结束<br /> <br />     ' 插入到超级列表框<br />     超级列表框1.插入表项 (-1, 文件名, , , , )<br /> .计次循环尾 ()<br /> <br /> 播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])<br /> <br /> .子程序 _暂停按钮_被单击<br /> <br /> 暂停播放MP3 ()<br /> <br /> .子程序 _继续按钮_被单击<br /> <br /> 继续播放MP3 ()<br /> <br /> .子程序 _下一首按钮_被单击<br /> <br /> .如果真 (取数组成员数 (MP3文件列表) ＝ 0)<br /> <br />     返回 ()<br /> .如果真结束<br /> ' 计算下一首索引<br /> 下一首索引 ＝ 当前播放索引 ＋ 1<br /> .如果真 (下一首索引 ＞ 取数组成员数 (MP3文件列表))<br />     下一首索引 ＝ 1<br /> .如果真结束<br /> <br /> ' 更新当前播放索引<br /> 当前播放索引 ＝ 下一首索引<br /> <br /> ' 停止当前播放并播放下一首<br /> 暂停播放MP3 ()<br /> 播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])<br /> <br /> <br /> .子程序 _随机播放_被单击<br /> .局部变量 随机数, 整数型<br /> <br /> <br /> .如果真 (取数组成员数 (MP3文件列表) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> ' 生成一个随机索引（不同于当前播放索引）<br /> 置随机数种子 ()<br /> 随机数 ＝ 取随机数 (1, 取数组成员数 (MP3文件列表))<br /> .循环判断首 ()<br />     随机数 ＝ 取随机数 (1, 取数组成员数 (MP3文件列表))<br /> .循环判断尾 (随机数 ＝ 当前播放索引)<br /> <br /> ' 更新当前播放索引<br /> 当前播放索引 ＝ 随机数<br /> 暂停播放MP3 ()<br /> 播放MP3 (当前播放索引, MP3文件列表 [当前播放索引])

baitso

改用精易模块的 音乐_播放(, , , )
添加时钟，获取 音乐_时长() 定时获取 音乐_进度() 判断 时长与进度，相等说明播放完成，就进入下一首播放

baitso

或者用线程播放音乐，第三个参数填写真，等待播完后，有返回了，再进入下一首

没事瞎琢磨

播放要在循环里才能持续播放

炼金师

没事瞎琢磨 发表于 2025-10-28 08:40
播放要在循环里才能持续播放

我试过好多个方法，但是都不行，

炼金师

baitso 发表于 2025-10-28 08:38
或者用线程播放音乐，第三个参数填写真，等待播完后，有返回了，再进入下一首 ...

非常感谢，我但会试试

憨憨问号

BASS音效基础模块(坏少爷模块源码)
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14683301
(出处: 精易论坛)
你看一下这个，他虽然是宣传模块的，但是写了个播放器例子，我记得是有自动播放的，如果没有的话，只需要判断音乐结束时，执行一次“下一首”按钮就行了