|
楼主 |
发表于 2011-11-28 16:00:34
|
显示全部楼层
美国
[e].版本 2
.支持库 edroptarget
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
_资源皮肤 (#_Skin_半边天)
拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
位置 = 2
.子程序 _透明标签2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
销毁 ()
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 as, 文本型
.局部变量 a, 文本型, , "0"
.局部变量 数组, 整数型
.局部变量 aaa, 文本型
.局部变量 ads, 文本型
.局部变量 运行目录, 文本型
.局部变量 多文件, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计次1, 整数型
.局部变量 几多个, 整数型
.局部变量 ooo, 整数型
.局部变量 计次2, 整数型
多文件 = 分割文本 (接收到的文件路径, #换行符, )
.计次循环首 (取数组成员数 (多文件), 计次)
ads = 多文件 [计次]
ads = 文本_取右边 (ads, “.”)
aaa = 多文件 [计次]
运行目录 = 多文件 [计次]
.判断开始 (ads = “mp3”)
a = 分割文本 (aaa, “\”, )
数组 = 取数组成员数 (a)
as = a [数组]
as = 文本_取左边 (as, “.mp3”)
ooo = 超级列表框1.取表项数 ()
.判断开始 (ooo = 0)
ooo = 1
.默认
.判断结束
.计次循环首 (ooo, 计次2)
计次2 = 计次2 - 1
.判断开始 (as = 超级列表框1.取标题 (计次2, 计次2))
信息框 (“歌曲已经存在”, 0, )
.默认
超级列表框1.插入表项 (0, as, , , , )
.判断结束
.计次循环尾 ()
几多个 = 超级列表框1.取表项数 ()
.计次循环首 (几多个, 计次1)
计次1 = 计次1 - 1
写配置项 (“F:\1.ini”, 超级列表框1.取标题 (计次1, ), “名字”, 超级列表框1.取标题 (计次1, ))
写配置项 (“F:\1.ini”, 列表框1.取项目文本 (计次1), “目录”, 运行目录)
.计次循环尾 ()
.默认
.判断结束
.计次循环尾 ()
.子程序 播放歌曲
.局部变量 a, 文本型
a = 读配置项 (“F:\1.ini”, 列表框1.取项目文本 (列表框1.取焦点项目 ()), “目录”, )
播放MP3 (1, a)
.子程序 _列表框1_列表项被选择
播放歌曲 ()
.子程序 _列表框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
弹出菜单 (删除, , )
.子程序 _移除歌曲_被选择
.局部变量 几多个, 整数型
.局部变量 计次1, 整数型
.局部变量 运行目录, 文本型
列表框1.删除项目 (列表框1.取焦点项目 ())
.子程序 _透明标签3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 a, 文本型
a = 读配置项 (“F:\1.ini”, 列表框1.取项目文本 (列表框1.取焦点项目 () - 1), “目录”, )
播放MP3 (1, a)
.子程序 _透明标签5_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 a, 文本型
a = 读配置项 (“F:\1.ini”, 列表框1.取项目文本 (列表框1.取焦点项目 () + 1), “目录”, )
播放MP3 (1, a)
[/e]
未写完
就好像这个 运行会出现错误的 |
|