关于播放器的一点小问题，求解

炼金师

目前播放器可以正常播放了，当然要感谢各位道友的帮助，  目前还有一个小问题，就是进度标签。在播放的时候，不显示进度信息，就是有一段代码应该是有问题，但是又找不到问题在哪，所以请道友指点一下。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
计次变量	整数型
文件号	整数型

子程序名	返回值类型	公开	备 注
_添加_被单击

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

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

子程序名	返回值类型	公开	备 注
_删除_被单击

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

子程序名	返回值类型	公开	备 注
_保存_被单击

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

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

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

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

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

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

暂停播放MP3 ()

子程序名	返回值类型	公开	备 注
_继续_被单击

继续播放MP3 ()

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

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

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

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 计次变量, 整数型<br /> .程序集变量 文件号, 整数型<br /> <br /> .子程序 _添加_被单击<br /> .局部变量 文本组变量, 文本型, , "0"<br /> <br /> 文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真, )<br /> .如果真 (取数组成员数 (文本组变量) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (文本组变量), 计次变量)<br />     播放列表框.加入项目 (文本组变量 [计次变量], )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _删除_被单击<br /> <br /> 播放列表框.删除项目 (播放列表框.现行选中项)<br /> <br /> <br /> .子程序 _保存_被单击<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “mp3.txt”, #重写, )<br /> .计次循环首 (播放列表框.取项目数 (), 计次变量)<br />     写文本行 (文件号, 播放列表框.取项目文本 (计次变量 － 1))<br /> .计次循环尾 ()<br /> 关闭文件 (文件号)<br /> <br /> <br /> .子程序 _播放_被单击<br /> <br /> .如果真 (播放列表框.现行选中项 ＝ -1)<br />     播放列表框.现行选中项 ＝ 0<br />     同步播放MP3 (播放列表框.取项目文本 (播放列表框.现行选中项), , 进度标签, )<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _进度标签_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 播放进度条.位置 ＝ 参数一<br /> .如果真 (参数一 ＝ 100)<br />     .如果 (播放列表框.现行选中项 ＝ 播放列表框.取项目数 () － 1)<br />         播放列表框.选择项目 (0, )<br />         播放列表框.选择项目 (播放列表框.现行选中项 ＋ 1, )<br />         _播放_被单击 ()<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _暂停_被单击<br /> <br /> 暂停播放MP3 ()<br /> <br /> <br /> .子程序 _继续_被单击<br /> <br /> 继续播放MP3 ()<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本变量, 文本型<br /> <br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\mp3.txt”) ＝ 假)<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #重写, )<br />     关闭文件 (文件号)<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #读写, )<br />     移到文件首 (文件号)<br />     .判断循环首 (是否在文件尾 (文件号, 真) ＝ 假)<br />         文本变量 ＝ 读入一行 (文件号)<br />         播放列表框.加入项目 (文本变量, )<br />     .判断循环尾 ()<br /> .如果真结束<br /> 关闭文件 (文件号)

是永乐哟

https://wwbnj.lanzoul.com/ilaAc3swmiyd
下载看看，我给重写了

炼金师

程序名        返回值类型        公开        备 注
_进度标签_反馈事件        整数型                
参数名        类 型        参考        可空        数组        备 注
参数一        整数型                               
参数二        整数型                               
播放进度条.位置 ＝ 参数一
如果真 (参数一 ＝ 100)
如果 (播放列表框.现行选中项 ＝ 播放列表框.取项目数 () － 1)
播放列表框.选择项目 (0, )
播放列表框.选择项目 (播放列表框.现行选中项 ＋ 1, )
_播放_被单击 ()  我怀疑是这一段有问题

是永乐哟

你写的这个看的我头晕

补充内容 (2026-6-25 09:57):
我感觉改这个代码跟重新写差不多

炼金师

是永乐哟 发表于 2026-6-25 09:57
你写的这个看的我头晕

补充内容 (2026-6-25 09:57):

看着很乱吗

Marvin

下载还要精币，我去。。。试下吧

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
计次变量	整数型
文件号	整数型

子程序名	返回值类型	公开	备 注
_添加_被单击

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

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

子程序名	返回值类型	公开	备 注
_删除_被单击

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

子程序名	返回值类型	公开	备 注
_保存_被单击

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

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

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

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

播放进度条.位置 ＝ 参数一
进度标签.标题 ＝ 到文本 (参数一) ＋ “%”   ' 显示播放进度百分比
如果真 (参数一 ＝ 100)
如果 (播放列表框.现行选中项 ＝ 播放列表框.取项目数 () － 1)
播放列表框.现行选中项 ＝ 0
播放列表框.现行选中项 ＝ 播放列表框.现行选中项 ＋ 1
_播放_被单击 ()

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

暂停播放MP3 ()

子程序名	返回值类型	公开	备 注
_继续_被单击

继续播放MP3 ()

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

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

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

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 计次变量, 整数型<br /> .程序集变量 文件号, 整数型<br /> <br /> .子程序 _添加_被单击<br /> .局部变量 文本组变量, 文本型, , "0"<br /> 文本组变量 ＝ 多文件对话框 (“添加mp3文件”, “mp3文件（*.mp3)|*.mp3”, , , 真)<br /> .如果真 (取数组成员数 (文本组变量) ＝ 0)<br />     返回<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (文本组变量), 计次变量)<br />     播放列表框.加入项目 (文本组变量 [计次变量], )<br /> .计次循环尾 ()<br /> <br /> .子程序 _删除_被单击<br /> 播放列表框.删除项目 (播放列表框.现行选中项)<br /> <br /> .子程序 _保存_被单击<br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #重写, )<br /> .计次循环首 (播放列表框.取项目数 (), 计次变量)<br />     写文本行 (文件号, 播放列表框.取项目文本 (计次变量 － 1))<br /> .计次循环尾 ()<br /> 关闭文件 (文件号)<br /> <br /> .子程序 _播放_被单击<br /> .如果真 (播放列表框.现行选中项 ＝ -1)<br />     播放列表框.现行选中项 ＝ 0<br /> .如果真结束<br /> 同步播放MP3 (播放列表框.取项目文本 (播放列表框.现行选中项), , 进度标签, )<br /> <br /> .子程序 _进度标签_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> 播放进度条.位置 ＝ 参数一<br /> 进度标签.标题 ＝ 到文本 (参数一) ＋ “%”   ' 显示播放进度百分比<br /> .如果真 (参数一 ＝ 100)<br />     .如果 (播放列表框.现行选中项 ＝ 播放列表框.取项目数 () － 1)<br />         播放列表框.现行选中项 ＝ 0<br />     .否则<br />         播放列表框.现行选中项 ＝ 播放列表框.现行选中项 ＋ 1<br />     .如果结束<br />     _播放_被单击 ()<br /> .如果真结束<br /> <br /> .子程序 _暂停_被单击<br /> 暂停播放MP3 ()<br /> <br /> .子程序 _继续_被单击<br /> 继续播放MP3 ()<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本变量, 文本型<br /> 进度标签.可视 ＝ 真   ' 确保进度标签可见<br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\mp3.txt”) ＝ 假)<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #重写, )<br />     关闭文件 (文件号)<br /> .如果真结束<br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\mp3.txt”, #读写, )<br /> 移到文件首 (文件号)<br /> .判断循环首 (是否在文件尾 (文件号, 真) ＝ 假)<br />     文本变量 ＝ 读入一行 (文件号)<br />     播放列表框.加入项目 (文本变量, )<br /> .判断循环尾 ()<br /> 关闭文件 (文件号)

是永乐哟

炼金师 发表于 2026-6-25 10:03
看着很乱吗

不能说很乱，我个人问题吧，你那个全局变量弄的和组件名一样我不知道是干什么用的，删除也没发现bug，

wtflxk

不要用自带的支持库写播放器 这玩意给我感觉还不如wmp