持续完善“我的播放器”第四篇之超级列表框的使用

炼金师

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
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文件列表 [当前播放索引])

炼金师

炼金师 发表于 2025-10-27 11:15
好的，等我完善好就发

哈哈，确实有点喜欢

炼金师

kyo9766 发表于 2025-10-27 13:13
打开程序，起始页，新建，里面有很多教程，下面这个是 音乐播放器 的

非常感谢，我回头打开看看

kyo9766

炼金师 发表于 2025-10-27 11:15
从哪里可以看得到？

打开程序，起始页，新建，里面有很多教程，下面这个是 音乐播放器 的

炼金师

kyo9766 发表于 2025-10-27 10:22
易语言 自带的 例子  MP3播放器，已经很完整了，可以参考学习一下

从哪里可以看得到？

炼金师

RainCharm 发表于 2025-10-27 10:08
好好写完，写完再发出来，大家都会给你点赞，别这样乐高都不带这么玩的，心脏有点受不了 ...

好的，等我完善好就发

kyo9766

易语言 自带的 例子  MP3播放器，已经很完整了，可以参考学习一下

RainCharm

好好写完，写完再发出来，大家都会给你点赞，别这样乐高都不带这么玩的，心脏有点受不了