分享一个学习过程中练习的MP3播放器的教程，特别简单适.....

K`HOST

代码和源文件都放上去了，还有一个上一曲的功能没做，要做的话也简单，和下一曲相反就可以了，代码也有很多地方可以提出来弄成子程序进行复用，标签页可以用来展示歌曲名字的

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_清理所有_被选择

停止播放 ()
超级列表框_音乐列表.全部删除 ()
按钮_播放暂停.标题 ＝ “播放”
当前选中歌曲 ＝ -1

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

变量名	类 型	静态	数组	备 注
文件组	文本型		0
索引	整数型
标题组	文本型		0
i	整数型

' 通用对话框_打开文件.打开 ()
文件组 ＝ 多文件对话框 (“选择一个或对个音频文件”, “歌曲（*.mp3) |*.mp3”, , “D:\E”, , )
如果真 (取数组成员数 (文件组) ≠ 0)
计次循环首 (取数组成员数 (文件组), i)
索引 ＝ 超级列表框_音乐列表.插入表项 (, , , , , )
标题组 ＝ 分割文本 (文件组 [i], “\”, )
超级列表框_音乐列表.置标题 (索引, 0, 标题组 [取数组成员数 (标题组)])
' 调试输出 (标题组)
超级列表框_音乐列表.置标题 (索引, 1, 到文本 (文件组 [i]))
计次循环尾 ()
超级列表框_音乐列表.现行选中项 ＝ 0

' 超级列表框_音乐列表.置标题 (, , )
' 调试输出 (文件组)

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

XP风格 (2)
当前选中歌曲 ＝ -1

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

' MP3音乐的播放状态： 0：已经被停止或未播放； -1：正在播放但被暂停； 1：正在播放
如果 (超级列表框_音乐列表.现行选中项 ≠ -1)
如果真 (超级列表框_音乐列表.现行选中项 ≠ 当前选中歌曲)
同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )
按钮_播放暂停.标题 ＝ “暂停”
当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项
调试输出 (“播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))
返回 ()

如果真 (取MP3播放状态 () ＝ 0)
同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )
按钮_播放暂停.标题 ＝ “暂停”
当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项
调试输出 (“播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))
返回 ()
如果真 (取MP3播放状态 () ＝ 1)
暂停播放MP3 ()
按钮_播放暂停.标题 ＝ “播放”
调试输出 (“暂停-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))
返回 ()
如果真 (取MP3播放状态 () ＝ -1)
继续播放MP3 ()
按钮_播放暂停.标题 ＝ “暂停”
调试输出 (“继续播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))
返回 ()

信息框 (“请选择一个歌曲进行播放！”, 0, , )

' 调试输出 (超级列表框_音乐列表.现行选中项)
' 调试输出 ()

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

变量名	类 型	静态	数组	备 注
文件目录	文本型
文件名	文本型
索引	整数型

文件目录 ＝ 浏览文件夹 (“添加MP3文件夹”, )
文件名 ＝ 寻找文件 (文件目录 ＋ “\*.mp3”, )
判断循环首 (文件名 ≠ “”)
索引 ＝ 超级列表框_音乐列表.插入表项 (, , , , , )
' 标题组 ＝ 分割文本 (文件组 [i], “\”, )
超级列表框_音乐列表.置标题 (索引, 0, 文件名)
' 调试输出 (标题组)
超级列表框_音乐列表.置标题 (索引, 1, 文件目录 ＋ “\” ＋ 文件名)
文件名 ＝ 寻找文件 (, )
判断循环尾 ()
调试输出 (文件名)

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

下一首播放 ()

子程序名	返回值类型	公开	备 注
_时钟_播放状态_周期事件

如果真 (取MP3播放状态 () ＝ 0 且 超级列表框_音乐列表.取表项数 () ≠ 0 且 当前选中歌曲 ≠ -1)
下一首播放 ()
' 调试输出 (取MP3播放状态 ())
' 调试输出 (超级列表框_音乐列表.取表项数 ())
' 调试输出 (当前选中歌曲)

子程序名	返回值类型	公开	备 注
下一首播放

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

如果真 (单选框_列表循环.选中 ＝ 真 且 单选框_随机播放.选中 ＝ 假 且 单选框_顺序播放.选中 ＝ 假)
如果 (超级列表框_音乐列表.现行选中项 ＝ 超级列表框_音乐列表.取表项数 () － 1)
超级列表框_音乐列表.选择表项 (0)

超级列表框_音乐列表.选择表项 (超级列表框_音乐列表.现行选中项 ＋ 1)

同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )
按钮_播放暂停.标题 ＝ “暂停”
当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项
调试输出 (“播放模式-列表循环-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))
返回 ()
如果真 (单选框_列表循环.选中 ＝ 假 且 单选框_随机播放.选中 ＝ 真 且 单选框_顺序播放.选中 ＝ 假)
置随机数种子 ()
随机数 ＝ 取随机数 (0, 超级列表框_音乐列表.取表项数 ())
超级列表框_音乐列表.选择表项 (随机数)
同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )
按钮_播放暂停.标题 ＝ “暂停”
当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项
调试输出 (“播放模式-随机播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))
返回 ()
如果真 (单选框_列表循环.选中 ＝ 假 且 单选框_随机播放.选中 ＝ 假 且 单选框_顺序播放.选中 ＝ 真)
如果真 (超级列表框_音乐列表.现行选中项 ≠ 超级列表框_音乐列表.取表项数 ())
超级列表框_音乐列表.选择表项 (超级列表框_音乐列表.现行选中项 ＋ 1)
同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )
按钮_播放暂停.标题 ＝ “暂停”
当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项
调试输出 (“播放模式-顺序播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))
返回 ()

子程序名	返回值类型	公开	备 注
_标签_歌曲名_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

hk条_MP3进度条.位置 ＝ 参数一
' 调试输出 (hk条_MP3进度条.位置)

子程序名	返回值类型	公开	备 注
_hk条_MP3进度条_位置被改变

同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), hk条_MP3进度条.位置, 标签_歌曲名, )

i支持库列表	支持库注释
iext	扩展界面支持库一
xplib	XP风格界面库
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 xplib<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _清理所有_被选择<br /> <br /> 停止播放 ()<br /> 超级列表框_音乐列表.全部删除 ()<br /> 按钮_播放暂停.标题 ＝ “播放”<br /> 当前选中歌曲 ＝ -1<br /> <br /> .子程序 _打开文件_被选择<br /> .局部变量 文件组, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> .局部变量 标题组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> <br /> ' 通用对话框_打开文件.打开 ()<br /> 文件组 ＝ 多文件对话框 (“选择一个或对个音频文件”, “歌曲（*.mp3) |*.mp3”, , “D:\E”, , )<br /> .如果真 (取数组成员数 (文件组) ≠ 0)<br />     .计次循环首 (取数组成员数 (文件组), i)<br />         索引 ＝ 超级列表框_音乐列表.插入表项 (, , , , , )<br />         标题组 ＝ 分割文本 (文件组 <i>, “\”, )<br />         超级列表框_音乐列表.置标题 (索引, 0, 标题组 [取数组成员数 (标题组)])<br />         ' 调试输出 (标题组)<br />         超级列表框_音乐列表.置标题 (索引, 1, 到文本 (文件组 <i>))<br />     .计次循环尾 ()<br />     超级列表框_音乐列表.现行选中项 ＝ 0<br /> .如果真结束<br /> <br /> ' 超级列表框_音乐列表.置标题 (, , )<br /> <br /> ' 调试输出 (文件组)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> XP风格 (2)<br /> 当前选中歌曲 ＝ -1<br /> <br /> .子程序 _按钮_播放暂停_被单击<br /> <br /> ' MP3音乐的播放状态： 0：已经被停止或未播放； -1：正在播放但被暂停； 1：正在播放<br /> .如果 (超级列表框_音乐列表.现行选中项 ≠ -1)<br />     .如果真 (超级列表框_音乐列表.现行选中项 ≠ 当前选中歌曲)<br />         同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )<br />         按钮_播放暂停.标题 ＝ “暂停”<br />         当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项<br /> <br />         调试输出 (“播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))<br />         返回 ()<br />     .如果真结束<br /> <br />     .如果真 (取MP3播放状态 () ＝ 0)<br />         同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )<br />         按钮_播放暂停.标题 ＝ “暂停”<br />         当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项<br />         调试输出 (“播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))<br />         返回 ()<br />     .如果真结束<br />     .如果真 (取MP3播放状态 () ＝ 1)<br />         暂停播放MP3 ()<br />         按钮_播放暂停.标题 ＝ “播放”<br />         调试输出 (“暂停-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))<br />         返回 ()<br />     .如果真结束<br />     .如果真 (取MP3播放状态 () ＝ -1)<br />         继续播放MP3 ()<br />         按钮_播放暂停.标题 ＝ “暂停”<br />         调试输出 (“继续播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))<br />         返回 ()<br />     .如果真结束<br /> <br /> .否则<br />     信息框 (“请选择一个歌曲进行播放！”, 0, , )<br /> .如果结束<br /> <br /> ' 调试输出 (超级列表框_音乐列表.现行选中项)<br /> ' 调试输出 ()<br /> <br /> <br /> .子程序 _打开文件夹_被选择<br /> .局部变量 文件目录, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> 文件目录 ＝ 浏览文件夹 (“添加MP3文件夹”, )<br /> 文件名 ＝ 寻找文件 (文件目录 ＋ “\*.mp3”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     索引 ＝ 超级列表框_音乐列表.插入表项 (, , , , , )<br />     ' 标题组 ＝ 分割文本 (文件组 <i>, “\”, )<br />     超级列表框_音乐列表.置标题 (索引, 0, 文件名)<br />     ' 调试输出 (标题组)<br />     超级列表框_音乐列表.置标题 (索引, 1, 文件目录 ＋ “\” ＋ 文件名)<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 调试输出 (文件名)<br /> <br /> <br /> <br /> <br /> .子程序 _按钮_下一曲_被单击<br /> <br /> 下一首播放 ()<br /> <br /> .子程序 _时钟_播放状态_周期事件<br /> <br /> .如果真 (取MP3播放状态 () ＝ 0 且 超级列表框_音乐列表.取表项数 () ≠ 0 且 当前选中歌曲 ≠ -1)<br />     下一首播放 ()<br /> <br /> .如果真结束<br /> ' 调试输出 (取MP3播放状态 ())<br /> ' 调试输出 (超级列表框_音乐列表.取表项数 ())<br /> ' 调试输出 (当前选中歌曲)<br /> <br /> .子程序 下一首播放<br /> .局部变量 随机数, 整数型<br /> <br /> <br /> .如果真 (单选框_列表循环.选中 ＝ 真 且 单选框_随机播放.选中 ＝ 假 且 单选框_顺序播放.选中 ＝ 假)<br />     .如果 (超级列表框_音乐列表.现行选中项 ＝ 超级列表框_音乐列表.取表项数 () － 1)<br />         超级列表框_音乐列表.选择表项 (0)<br /> <br />     .否则<br />         超级列表框_音乐列表.选择表项 (超级列表框_音乐列表.现行选中项 ＋ 1)<br />     .如果结束<br /> <br />     同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )<br />     按钮_播放暂停.标题 ＝ “暂停”<br />     当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项<br />     调试输出 (“播放模式-列表循环-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))<br />     返回 ()<br /> .如果真结束<br /> .如果真 (单选框_列表循环.选中 ＝ 假 且 单选框_随机播放.选中 ＝ 真 且 单选框_顺序播放.选中 ＝ 假)<br />     置随机数种子 ()<br />     随机数 ＝ 取随机数 (0, 超级列表框_音乐列表.取表项数 ())<br />     超级列表框_音乐列表.选择表项 (随机数)<br />     同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )<br />     按钮_播放暂停.标题 ＝ “暂停”<br />     当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项<br />     调试输出 (“播放模式-随机播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))<br />     返回 ()<br /> <br /> .如果真结束<br /> .如果真 (单选框_列表循环.选中 ＝ 假 且 单选框_随机播放.选中 ＝ 假 且 单选框_顺序播放.选中 ＝ 真)<br />     .如果真 (超级列表框_音乐列表.现行选中项 ≠ 超级列表框_音乐列表.取表项数 ())<br />         超级列表框_音乐列表.选择表项 (超级列表框_音乐列表.现行选中项 ＋ 1)<br />         同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), , 标签_歌曲名, )<br />         按钮_播放暂停.标题 ＝ “暂停”<br />         当前选中歌曲 ＝ 超级列表框_音乐列表.现行选中项<br />         调试输出 (“播放模式-顺序播放-” ＋ 到文本 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1)))<br />         返回 ()<br /> <br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 _标签_歌曲名_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> <br /> hk条_MP3进度条.位置 ＝ 参数一<br /> ' 调试输出 (hk条_MP3进度条.位置)<br /> <br /> <br /> .子程序 _hk条_MP3进度条_位置被改变<br /> <br /> 同步播放MP3 (超级列表框_音乐列表.取标题 (超级列表框_音乐列表.现行选中项, 1), hk条_MP3进度条.位置, 标签_歌曲名, )

我非平凡

嘻嘻   谢谢   好心人

huoshanlangzhe

感觉很不错,支持一下

王摇摆

很经典的例子，非常好的教程

王摇摆

感谢分享

yujiandong

支持开源~！感谢分享

paulz2022

感谢分享~~~

oiowwk

666 多谢开源

l3777

感谢分享~~~

Azumarill

继续加油~

温暖的舌骨

谢谢楼主分享