易语言 MP3播放问题

来源：百度知道 编辑：UC知道 时间：2024/06/19 19:53:57
http://tieba.baidu.com/f?kz=577356513 望高手讲解一下 100分送上
谢谢你 不过还是放不了

.版本 2
.支持库 iext
.支持库 shell

.程序集 窗口程序集1
.程序集变量 音乐目录, 文本型
.程序集变量 文件, 文本型
.程序集变量 列表, 文本型
.程序集变量 名称, 文本型
.程序集变量 子目录, 逻辑型
.程序集变量 插入位置, 整数型

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

.子程序 浏览MP3目录
.参数 目录, 文本型

名称 ＝ “*.mp3”
子目录 ＝ 真
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件 ＝ 寻找文件 (目录 ＋ 名称, )
.判断循环首 (文件 ≠ “”)
插入位置 ＝ 超级列表框1.插入表项 (, 文件, , , , )
超级列表框1.置标题 (插入位置, 1, 音乐目录 ＋ “\” ＋ 文件)
文件 ＝ 寻找文件 (, )
.判断循环尾 ()
.子程序 _打开_被单击
音乐目录 ＝ 浏览文件夹 (“MP3文件夹”, )
浏览MP3目录 (音乐目录)
.子程序 _超级列表框1_右键单击表项
播放MP3（1，（浏览MP3目录.文件+超级列表框1.取标题（超级列表框1.现行选中项，0) ） ）

语法： 无返回值 播放MP3 （〔播放次数〕，欲播放的 MP3 文件名，… ）

播放MP3 (1, 超级列表框1.现行选中项) 这句话是错的
因为 超级列表框1.现行选中项 返回的是整数，不是文本型
正确的语句是：播放MP3 (1, 超级列表框1.取项目文本 （超级列表框1.取焦点项目（） ））

判断循环首 (“” ≠ 文件)

你把这句换一下 文件≠ “”

定义不能反向定义

播放MP3（1，（浏览文件夹.文件+超级列表框.取标题（超级列表框1.现行选中项，0) ） ）

播放MP3 (1, 超级列表框.取标题（超级列表框1.现行选中项，0) ）