|
发表于 2011-3-18 21:38:43
|
显示全部楼层
湖南省娄底市
利用标签与同步播放MP3 命令即可实现!
.版本 2
.程序集 窗口程序集1
.程序集变量 当前播放记录号, 整数型
.程序集变量 播放列表, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.计次循环首 (列表框1.取项目数 (), i)
.如果真 (列表框1.是否被选择 (i - 1))
加入成员 (播放列表, 列表框1.取项目文本 (i - 1))
输出调试文本 (列表框1.取项目文本 (i - 1))
当前播放记录号 = 1
.如果真结束
.计次循环尾 ()
.如果真 (取数组成员数 (播放列表) > 0)
播放音乐 (播放列表 [当前播放记录号], )
.如果真结束
.子程序 _下一首_被单击
播放下一首 ()
.子程序 播放下一首
当前播放记录号 = 当前播放记录号 + 1
.判断开始 (当前播放记录号 ≤ 取数组成员数 (播放列表))
同步播放MP3 (播放列表[记录号], 99, 标签1, )
.默认
返回 ()
.判断结束
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
进度条1.位置 = 参数一
.判断开始 (参数一 = 100)
播放下一首 () |
|