我想用易语言编写一个可以添加歌曲到超级列表框并且双击歌曲能直接播放，要怎样写？求图～～带上播放代码
.版本 2
.支持库 shell
.支持库 spec
.支持库 eMMedia
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 文件号, 整数型
自绘开始 (_启动窗口, #图片1, 0)
菜单.可视 ＝ 假
SetWindowLong (_启动窗口.取窗口句柄 (), -20, 位或 (GetWindowLong (_启动窗口.取窗口句柄 (), -20), 524288))
SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), #品红, 200, 1)
文件号 ＝ 打开文件 (“C:\adress.ini”, 1, 1)
编辑框1.内容 ＝ 读入文本 (文件号, )
标签1.可视 ＝ 真
标签1.标题 ＝ 编辑框1.内容
关闭文件 (文件号)
列表框_读入配置文件 (“C:\list”, 列表框1, )
.子程序 _按钮2_被单击
编辑框1.内容 ＝ 浏览文件夹 (“我的电脑”, 真)
标签1.可视 ＝ 真
标签1.标题 ＝ 编辑框1.内容
.子程序 _按钮1_被单击
结束 ()
.子程序 _按钮3_被单击
.局部变量 i, 整数型
写到文件 (“C:\adress.ini”, 到字节集 (编辑框1.内容))
.判断开始 (编辑框1.内容 ＝ “”)
信息框 (“请先选择歌曲文件夹！”, 0, )
列表框1.背景颜色 ＝ _启动窗口.底色
.默认
文件_搜索 (编辑框1.内容, “*.mp3”, , , 列表框1, 真)
文件_搜索 (编辑框1.内容, “*.wav”, , , 列表框1, 真)
延迟 (1000)
.判断开始 (列表框1.取项目数 () ＝ 0)
信息框 (“没有找到歌曲”, 0, )
.默认
.判断结束
.判断结束
.子程序 _按钮5_被单击
.判断开始 (按钮5.标题 ＝ “暂停”)
按钮5.标题 ＝ “继续”
时钟1.时钟周期 ＝ 0
媒体播放1.暂停 ()
.判断 (按钮5.标题 ＝ “继续”)
媒体播放1.播放 (-1, )
按钮5.标题 ＝ “暂停”
.默认
.判断结束
.子程序 _按钮9_被单击
列表框_保存为配置文件 (“C:\list”, 列表框1)
.子程序 _按钮8_被单击
列表框1.清空 ()
媒体播放1.停止 ()
滑块条1.位置 ＝ 1
列表框_保存为配置文件 (“C:\list”, 列表框1)
.子程序 _列表框1_双击选择
图形按钮2.可视 ＝ 真
图形按钮4.可视 ＝ 假
媒体播放1.打开 (列表框1.取项目文本 (播放位置))
滑块条1.最大位置 ＝ 媒体播放1.取总时间 ()
媒体播放1.播放 (-1, _启动窗口.取窗口句柄 ())
滑块条1.位置 ＝ 1
时钟1.时钟周期 ＝ 1000
.子程序 _时钟1_周期事件
滑块条1.位置 ＝ 滑块条1.位置 ＋ 1
.子程序 _滑块条1_位置被改变
媒体播放1.播放 (滑块条1.位置 × 1000, )
图形按钮4.可视 ＝ 假
图形按钮2.可视 ＝ 真
.子程序 _按钮6_被单击
.子程序 _列表框1_列表项被选择
播放位置 ＝ 列表框1.取焦点项目 ()
.子程序 _滑块条2_位置被改变
媒体播放1.置音量 (滑块条2.位置, 滑块条2.位置)
.子程序 __启动窗口_可否被关闭, 逻辑型
置托盘图标 (#图标, ) ' 点关闭时创建托盘图标
_启动窗口.可视 ＝ 假
返回 (假)
.子程序 _图形按钮1_被单击
播放位置 ＝ 播放位置 － 1
_列表框1_双击选择 ()
.子程序 _图形按钮2_被单击
_按钮5_被单击 ()
图形按钮2.可视 ＝ 假
图形按钮4.可视 ＝ 真
.子程序 _图形按钮3_被单击
播放位置 ＝ 播放位置 ＋ 1
列表框1.选择项目 (播放位置, )
列表框1.刷新显示 ()
_列表框1_双击选择 ()
.子程序 _图形按钮4_被单击
图形按钮2.可视 ＝ 真
图形按钮4.可视 ＝ 假
_按钮5_被单击 ()
.子程序 _时钟2_周期事件
.判断开始 (滑块条1.位置 ＝ 媒体播放1.取总时间 ())
_图形按钮3_被单击 ()
.默认
.判断结束
.子程序 _退出_被选择
结束 ()
.子程序 _扫描音乐_被选择
_启动窗口.可视 ＝ 真
_按钮2_被单击 ()
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.判断开始 (操作类型 ＝ #双击)
_启动窗口.可视 ＝ 真
.默认
.判断结束
.判断开始 (操作类型 ＝ #单击右键)
弹出菜单 (菜单, , )
.默认
.判断结束
.子程序 查找歌曲
.局部变量 i, 整数型
.计次循环首 (列表框1.取项目数 (), i)
.判断开始 (寻找文本 (列表框1.取项目文本 (i － 1), 欲查找的歌曲, , 假) ≠ -1)
列表框1.选择项目 (i － 1, )
信息框 (“已找到歌曲”, 0, )
跳出循环 ()
.判断 (i ＝ 列表框1.取项目数 ())
信息框 (“没有找到歌曲！”, 0, )
.默认
.判断结束
.计次循环尾 ()
.子程序 _按钮4_被单击
载入 (窗口1, , 真)
DLL命令如下：
.版本 2
.DLL命令 SetLayeredWindowAttributes, 逻辑型, , "SetLayeredWindowAttributes", , 成功返回真，否则返回假
.参数 hwnd, 整数型, , 透明窗体的句柄
.参数 crKey, 整数型, , 颜色值
.参数 bAlpha, 字节型, , 透明度，取值范围是[0,255]
.参数 dwFlags, 整数型, , 透明方式：LWA_ALPHA(2)时，crKey参数无效，bAlpha参数有效 || LWA_COLORKEY(1)时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明
.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
.参数 hWnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong, 整数型
.DLL命令 setkongjian
使用了精易模块跟一键超简单自绘模块。因为之前我想优化窗口效果不知道API跟超简单自绘模块哪个好 测试的时候两个都放上去了。自行选择。
源码网盘地址：http://pan.baidu.com/s/1pJLlqJL
代码给你了，采纳吧！
可是我现在不在电脑上没法拍代码给等晚上发给你
代码加入
有什么也可以Q我1138600098我也是新手一起议论记得写明来自知道的哦
播放音乐
