易语言怎样弄MP3播放器

源码如下：

这是我做的多歌曲MP3播放器。全自动的。
.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

菜单1.可视 ＝ 假
加载皮肤 (1)
置托盘图标 (#图片1, “专属我的MP3播放器”)
标签1.可视 ＝ 真
标签1.标题 ＝ “等待播放...”
菜单.可视 ＝ 假

.子程序 _选歌2_被单击
.局部变量 时间

' 通用对话框1.打开 ()
' 标签2.标题 ＝ 通用对话框1.文件名
' 标签1.可视 ＝ 假
.如果真 (列表框1.现行选中项 ＝ -1)
通用对话框1.打开 ()
列表框1.加入项目 (通用对话框1.文件名, )
' 标签1.可视 ＝ 假
返回 ()
.如果真结束
通用对话框1.打开 ()
列表框1.加入项目 (通用对话框1.文件名, )
' 标签1.可视 ＝ 假

.子程序 _播放2_被单击

标签1.可视 ＝ 假
标签2.可视 ＝ 真
列表框1.现行选中项 ＝ 0
' _列表框1_双击选择 ()
.判断开始 (列表框1.现行选中项 ＝ 0)
.判断开始 (标签1.标题 ＝ “等待播放...”)
_列表框1_双击选择 ()
.判断 (标签1.标题 ＝ “已暂停播放”)
继续播放MP3 ()
.判断 (标签1.标题 ＝ “已停止播放”)
_列表框1_双击选择 ()
.默认
列表框1.现行选中项 ＝ 0
_列表框1_双击选择 ()
.判断结束

.默认

.判断结束

.子程序 _暂停2_被单击

暂停播放MP3 ()
标签1.可视 ＝ 真
标签1.标题 ＝ “已暂停播放”
标签2.可视 ＝ 假

.子程序 _停止2_被单击

停止播放 ()
标签1.标题 ＝ “已停止播放”
标签1.可视 ＝ 真

.子程序 _列表框1_双击选择

同步播放MP3 (列表框1.取项目文本 (列表框1.现行选中项), 0, 标签1, )
标签2.标题 ＝ 列表框1.取项目文本 (列表框1.现行选中项)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 100 且 列表框1.现行选中项 ＜ 列表框1.取项目数 () － 1) ' 播放结束
列表框1.现行选中项 ＝ 列表框1.现行选中项 ＋ 1
_列表框1_双击选择 ()
.如果真结束

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.判断开始 (操作类型 ＝ #单击左键)
_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 0

.默认
操作类型 ＝ #单击右键
弹出托盘菜单 (菜单)
.判断结束

.子程序 __启动窗口_位置被改变

.如果真 (_启动窗口.位置 ＝ 2)
_启动窗口.可视 ＝ 假
返回 ()

.如果真结束

.子程序 _窗口_被选择

_启动窗口.可视 ＝ 真
_启动窗口.位置 ＝ 0

.子程序 _最小化_被选择

_启动窗口.可视 ＝ 假
_启动窗口.位置 ＝ 2

.子程序 _播放_被选择

_播放2_被单击 ()

.子程序 _暂停_被选择

_暂停2_被单击 ()

.子程序 _停止_被选择

_停止2_被单击 ()

.子程序 _退出_被选择

_启动窗口.销毁 ()

.子程序 _删除歌曲_被选择

.如果真 (列表框1.现行选中项 ≠ -1)
列表框1.删除项目 (列表框1.现行选中项)
.如果真结束

.子程序 _取消_被选择

返回 ()