请教高手------MP3问题

若相守卟离

请问进度条能不能个歌曲同步-----请教一下代码--

jk007666

书上的一段源码，希望对你有用
.版本 2

.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.程序集变量 计次变量, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 文本变量, 文本型

.如果真 (文件是否存在 (取运行目录 () ＋ “\mp3.txt”) ＝ 假)
    文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #重写, )
    关闭文件 (文件号)
.如果真结束
文件号 ＝ 打开文件 (取运行目录 () ＋ “mp3.txt”, #重写, )
移到文件首 (文件号)
.判断循环首 (是否在文件尾 (文件号, 真) ＝ 假)
    文本变量 ＝ 读入一行 (文件号)
    播放列表框.加入项目 (文本变量, )
.判断循环尾 ()

关闭文件 (文件号)

.子程序 _添加按钮_被单击
.局部变量 文本组变量, 文本型, , "0"

文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3）|*.mp3”, , , 真)
.如果真 (取数组成员数 (文本组变量) ＝ 0)
    返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本组变量), 计次变量)
    播放列表框.加入项目 (文本组变量 [计次变量], )
.计次循环尾 ()


.子程序 _删除按钮_被单击

播放列表框.删除项目 (播放列表框.现行选中项)

.子程序 _保存按钮_被单击

文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #重写, )
.计次循环首 (播放列表框.取项目数 (), 计次变量)
    写文本行 (文件号, 播放列表框.取项目文本 (计次变量 － 1))
.计次循环尾 ()
关闭文件 (文件号)

.子程序 _播放按钮_被单击

.如果真 (播放列表框.现行选中项 ＝ -1)
    播放列表框.现行选中项 ＝ 0
.如果真结束
同步播放MP3 (播放列表框.取项目文本 (播放列表框.现行选中项), , 进度标签, )


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

播放进度条.位置 ＝ 参数一
.如果真 (参数一 ＝ 100)
    .如果 (播放列表框.现行选中项 ＝ 播放列表框.取项目数 () － 1)
        播放列表框.选择项目 (0, )
    .否则
        播放列表框.选择项目 (播放列表框.现行选中项 ＋ 1, )
    .如果结束
    _播放按钮_被单击 ()
.如果真结束


.子程序 _暂停按钮_被单击

暂停播放MP3 ()

.子程序 _继续按钮_被单击

继续播放MP3 ()

朱正江

晕,,人家真会想!!!

若相守卟离

朱正江 发表于 2011-5-30 11:54
晕,,人家真会想!!!

对啊!!他的答案--一点都没有提到进度条-------

zhangzhum

给你一个带进度条的MP3播放器

avatar007

都是答非所问，人家要的是每首歌的播放进度，和列表的播放进度无关

avatar007

用媒体播放控件，然后可以
进度条1.位置 ＝ 100 ÷ 媒体播放1.取长度 () × 媒体播放1.取位置 ()
希望对你有帮助

乱感觉