lzy音乐播放器-1.0.0.7-开源-最后一个版本-功能全面-退坑了。

李泽勇2

lzy音乐播放器-1.0.0.7，这是最后一个版本，因为我要退坑了。所有代码都重写了，干净、整洁，对新手十分友好。

这个播放器UI有点丑，喜欢搞UI的可以自己美化。


图片有点大，加载可能费时久些。




所有的模块有源码的全部发出来给需要的人，具体清单看图。
任务栏操作功能没有写，本地文件关联没有写，你们拿到源码自己改造。


音色库附件里面没有带，附件压缩包里面有百d网盘下载地址，不喜欢MID音乐的可以不要音色库。
附件： lzy音乐播放器-1.0.0.7-开源.7z (1.34 MB, 下载次数: 1577)

2021-9-15 14:54 上传

点击文件名下载附件



补充内容 (2021-10-18 11:53):
发现一个BUG
1、在多个目录下有相同歌曲属性的，会出现播放识别不准。
解决方法
1、在播放子程序把 取文件路径_sql（）修改成 取文件路径2_sql（）

补充内容 (2024-1-28 20:43):
已更新新版：https://bbs.125.la/forum.php?mod ... rtype=1#pid27466254

补充内容 (2024-1-28 20:43):
已更新新版：https://bbs.125.la/forum.php?mod=viewthread&tid=14807464

李泽勇2

再修复一处BUG
1、修复添加歌曲时浏览文件夹返回空数组的问题。


解决方法：
1、在_添加文件夹_被选择下面把 文件_枚举()修改一下，如下图

  

子程序名	返回值类型	公开	备 注
_添加文件夹_被选择

变量名	类 型	静态	数组	备 注
文件夹	文本型
文件名	文本型		0

文件夹 ＝ 目录_浏览 (取窗口句柄 (), “打开支持的文件”, 假, )
如果真 (文件夹 ≠ “”)
文件_枚举 (文件夹, 分割文本 ( #扩展名, “|”, ), 文件名, 真, 真, 真)
添加文件子程序 (文件名)

.版本 2<br /> <br /> .子程序 _添加文件夹_被选择<br /> .局部变量 文件夹, 文本型<br /> .局部变量 文件名, 文本型, , "0"<br /> <br /> 文件夹 ＝ 目录_浏览 (取窗口句柄 (), “打开支持的文件”, 假, )<br /> .如果真 (文件夹 ≠ “”)<br />     文件_枚举 (文件夹, 分割文本 (#扩展名, “|”, ), 文件名, 真, 真, 真)<br />     添加文件子程序 (文件名)

需要修改的 文件_枚举 子程序：

  

子程序名	返回值类型	公开	备 注
文件_枚举	整数型		枚举某个目录下的指定类型文件；成功返回文件数量；（李勇修改）
参数名	类 型	参考	可空	数组	备 注
欲寻找的目录	文本型				文件目录
欲寻找的文件名	文本型				如果寻找全部文件可以填入{“*.*”}，或{“*.txt”}只找txt文件，过滤多个扩展名的用 分割文本() 例如：分割文本 (“*.txt|*.rar”, “|”, )
文件数组	文本型				用于装载文件数组的变量；把寻找到的文件都放在这个数组里，并返回；
是否带路径	逻辑型				默认为假； 真=带目录路径，如C:\012.txt； 假=不带，如 012.txt；
是否按字母排序	逻辑型				默认为假；真=按字母a-z排序  假=不排序
是否遍历子目录	逻辑型				留空默认为假；为真时文件数组不主动清空

变量名	类 型	静态	数组	备 注
局_文件名	文本型
局_目录	文本型
i	整数型

如果真 (是否遍历子目录 ＝ 假)
清除数组 (文件数组)
局_目录 ＝ 欲寻找的目录
如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录 ＝ 局_目录 ＋ “\”
计次循环首 (取数组成员数 (欲寻找的文件名), i)
局_文件名 ＝ 寻找文件 (局_目录 ＋ 欲寻找的文件名 [i], )
判断循环首 (局_文件名 ≠ “”)
如果真 (是否带路径)
局_文件名 ＝ 局_目录 ＋ 局_文件名
加入成员 (文件数组, 局_文件名)
处理事件 ()
局_文件名 ＝ 寻找文件 (, )
判断循环尾 ()
如果真 (是否按字母排序)
数组_排序 (文件数组, 0, )

计次循环尾 ()
如果真 (是否遍历子目录)
局_文件名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
判断循环首 (局_文件名 ≠ “”)
如果真 (局_文件名 ≠ “.” 且 局_文件名 ≠ “..”)
文件_枚举 (局_目录 ＋ 局_文件名, 欲寻找的文件名, 文件数组, 是否带路径, 是否按字母排序, 是否遍历子目录)
处理事件 ()
局_文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
返回 (取数组成员数 (文件数组))

.版本 2<br /> <br /> .子程序 文件_枚举, 整数型, 公开, 枚举某个目录下的指定类型文件；成功返回文件数量；（李勇修改）<br /> .参数 欲寻找的目录, 文本型, , 文件目录<br /> .参数 欲寻找的文件名, 文本型, 数组, 如果寻找全部文件可以填入{“*.*”}，或{“*.txt”}只找txt文件，过滤多个扩展名的用 分割文本() 例如：分割文本 (“*.txt|*.rar”, “|”, )<br /> .参数 文件数组, 文本型, 参考 可空 数组, 用于装载文件数组的变量；把寻找到的文件都放在这个数组里，并返回；<br /> .参数 是否带路径, 逻辑型, 可空, 默认为假； 真=带目录路径，如C:\012.txt； 假=不带，如 012.txt；<br /> .参数 是否按字母排序, 逻辑型, 可空, 默认为假；真=按字母a-z排序  假=不排序<br /> .参数 是否遍历子目录, 逻辑型, 可空, 留空默认为假；为真时文件数组不主动清空<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_目录, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (是否遍历子目录 ＝ 假)<br />     清除数组 (文件数组)<br /> .如果真结束<br /> 局_目录 ＝ 欲寻找的目录<br /> .如果真 (取文本右边 (局_目录, 1) ≠ “\”)<br />     局_目录 ＝ 局_目录 ＋ “\”<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (欲寻找的文件名), i)<br />     局_文件名 ＝ 寻找文件 (局_目录 ＋ 欲寻找的文件名 <i>, )<br />     .判断循环首 (局_文件名 ≠ “”)<br />         .如果真 (是否带路径)<br />             局_文件名 ＝ 局_目录 ＋ 局_文件名<br />         .如果真结束<br />         加入成员 (文件数组, 局_文件名)<br />         处理事件 ()<br />         局_文件名 ＝ 寻找文件 (, )<br />     .判断循环尾 ()<br />     .如果真 (是否按字母排序)<br />         数组_排序 (文件数组, 0, )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (是否遍历子目录)<br />     局_文件名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br />     .判断循环首 (局_文件名 ≠ “”)<br />         .如果真 (局_文件名 ≠ “.” 且 局_文件名 ≠ “..”)<br />             文件_枚举 (局_目录 ＋ 局_文件名, 欲寻找的文件名, 文件数组, 是否带路径, 是否按字母排序, 是否遍历子目录)<br />             处理事件 ()<br />         .如果真结束<br />         局_文件名 ＝ 寻找文件 (, #子目录)<br />     .判断循环尾 ()<br /> .如果真结束<br /> 返回 (取数组成员数 (文件数组))

BQXR

牛鼻克拉斯

qzmylove

66666666666666

1300886755

感谢分享

woaity123

        支持开源~！感谢分享

k18556

xxxxxxxxxxxxxxxxxxxxxxxx

Ahdbh

666666666666666666666666666666666

ytbihay

6666666666666665

吃猫的小鱼

刚好需要。

jyc0185

写的很不错

轻描淡写zzz

感谢