易语言MP3问题 现在有一个超级列表框,把音乐都加进去了,如何能双击表项就直接播放音乐
例如我选这个超级列表框里的第5个歌,双击他就可以直接播放音乐,这个应该怎么写,源码更好,另外我这个列表框里的MP3,如何能做到自动保存,就是下次打开的时候列表框里的歌还在...
例如我选这个超级列表框里的第5个歌,双击他就可以直接播放音乐,这个应该怎么写,源码更好,
另外我这个列表框里的MP3,如何能做到自动保存,就是下次打开的时候列表框里的歌还在里面 展开
另外我这个列表框里的MP3,如何能做到自动保存,就是下次打开的时候列表框里的歌还在里面 展开
1个回答
展开全部
需要一个超级列表框 一个按钮
==================================================================
.版本 2
.支持库 iext
.支持库 shell
.子程序 __启动窗口_创建完毕
超级列表框1.插入列 (0, “MP3文件”, 100, , , )
超级列表框1.插入列 (0, “文件地址”, 150, , , )
按钮1.标题 = “读入文件”
.子程序 _按钮1_被单击
.局部变量 寻, 文本型
.局部变量 目录, 文本型
目录 = 浏览文件夹 (“请选择MP3文件目录”, )
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
寻 = 寻找文件 (目录 + “*.mp3”, #存档文件)
.判断循环首 (寻 ≠ “”)
.如果真 (寻 ≠ “.” 且 寻 ≠ “..”)
超级列表框1.插入表项 (0, 寻, , , , )
超级列表框1.置标题 (0, 1, 目录 + 寻)
.如果真结束
寻 = 寻找文件 (, #存档文件)
.判断循环尾 ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
播放MP3 (1, 超级列表框1.取标题 (超级列表框1.现行选中项, 1))
==================================================================
.版本 2
.支持库 iext
.支持库 shell
.子程序 __启动窗口_创建完毕
超级列表框1.插入列 (0, “MP3文件”, 100, , , )
超级列表框1.插入列 (0, “文件地址”, 150, , , )
按钮1.标题 = “读入文件”
.子程序 _按钮1_被单击
.局部变量 寻, 文本型
.局部变量 目录, 文本型
目录 = 浏览文件夹 (“请选择MP3文件目录”, )
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
寻 = 寻找文件 (目录 + “*.mp3”, #存档文件)
.判断循环首 (寻 ≠ “”)
.如果真 (寻 ≠ “.” 且 寻 ≠ “..”)
超级列表框1.插入表项 (0, 寻, , , , )
超级列表框1.置标题 (0, 1, 目录 + 寻)
.如果真结束
寻 = 寻找文件 (, #存档文件)
.判断循环尾 ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
播放MP3 (1, 超级列表框1.取标题 (超级列表框1.现行选中项, 1))
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询