Question

易语言卷帘式菜单拖上去的文件怎么保存？

我是菜鸟，代码是别人的，代码发到下面回答的一楼了·但是有个问题希望高手来解下，就是我拖文件进去，当时有，关掉就会变成以前那样空空，要怎么才能把拖上去的文件保存下来··会的发下代码过来·发我QQ邮箱也行：419144230@QQ.com 也可以告诉我那种在代码里就事先把文件加进去的笨方法。

Answer 1

我的代码是：

.版本 2
.支持库 iext3
.支持库 shell
.支持库 xplib
.支持库 edroptarget

.程序集 窗口程序集1

.子程序 _卷帘式菜单1_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (弹出式菜单, , )

.子程序 _添加新菜单_被选择
.局部变量 菜单名称, 文本型

输入框 (“请输入菜单名称！”, “输入：”, , 菜单名称, )
卷帘式菜单1.加入菜单 (菜单名称, , )

.子程序 _添加新项目_被选择
.局部变量 项目名称, 文本型
.局部变量 项目数量, 整数型

项目名称 ＝ 取文本左边 (取文本右边 (全路径, 取文本长度 (全路径) － 倒找文本 (全路径, “\”, , 假)), 寻找文本 (取文本右边 (全路径, 取文本长度 (全路径) － 倒找文本 (全路径, “\”, , 假)), “.”, , 假) － 1)
卷帘式菜单1.加入项目 (项目名称, , , 取随机数 (0, 39), )
项目数量 ＝ 卷帘式菜单1.取项目数 () － 1
写配置项 (取运行目录 () ＋ “\菜单项目.ini”, 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单), “项目” ＋ 到文本 (项目数量), 项目名称)
写配置项 (取运行目录 () ＋ “\菜单项目.ini”, 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单), “路径” ＋ 到文本 (项目数量), 全路径)

.子程序 _修改项目_被选择
.局部变量 项目名称, 文本型
.局部变量 项目数量, 整数型

通用对话框1.打开 ()
项目名称 ＝ 取文本左边 (取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假)), 寻找文本 (取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假)), “.”, , 假) － 1)
卷帘式菜单1.置项目名称 (卷帘式菜单1.现行选中项目, 项目名称, 卷帘式菜单1.现行选中菜单)
项目数量 ＝ 卷帘式菜单1.现行选中项目
写配置项 (取运行目录 () ＋ “\菜单项目.ini”, 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单), “项目” ＋ 到文本 (项目数量), 项目名称)
写配置项 (取运行目录 () ＋ “\菜单项目.ini”, 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单), “路径” ＋ 到文本 (项目数量), 通用对话框1.文件名)

.子程序 _修改菜单名称_被选择
.局部变量 菜单名称, 文本型

输入框 (“请您重新输入菜单名称！”, “输入：”, , 菜单名称, )
卷帘式菜单1.置菜单名称 (卷帘式菜单1.现行选中菜单, 菜单名称)

.子程序 _修改项目名称_被选择
.局部变量 项目名称, 文本型

输入框 (“请您重新输入项目名称！”, “输入：”, , 项目名称, )
卷帘式菜单1.置项目名称 (卷帘式菜单1.现行选中项目, 项目名称, 卷帘式菜单1.现行选中菜单)

.子程序 _卷帘式菜单1_项目被选择
.参数 菜单索引, 整数型
.参数 项目索引, 整数型
.局部变量 目录, 文本型

目录 ＝ 读配置项 (取运行目录 () ＋ “\菜单项目.ini”, 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单), “路径” ＋ 到文本 (卷帘式菜单1.现行选中项目), )
执行 (, 目录, , , )

.子程序 __启动窗口_创建完毕
.局部变量 配置节名, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 a, 整数型
.局部变量 变量, 文本型

XP风格 (3)
拖放对象1.注册拖放控件 (卷帘式菜单1.取窗口句柄 ())
拖放对象1.接收文件 ＝ 真
热键键盘_安装处理 (_启动窗口.取窗口句柄 ())
热键键盘_注册热键 (, #Home键, 到整数 (&热键处理))
时钟1.时钟周期 ＝ 1000
配置节名 ＝ 取配置节名 (取运行目录 () ＋ “\菜单项目.ini”)
.变量循环首 (1, 取数组成员数 (配置节名), 1, i)
卷帘式菜单1.加入菜单 (配置节名 [i], i － 1, i － 1)
.循环判断首 ()
变量 ＝ 读配置项 (取运行目录 () ＋ “\菜单项目.ini”, 配置节名 [i], “项目” ＋ 到文本 (a), )
.如果 (变量 ＝ “”)

.否则
卷帘式菜单1.加入项目 (变量, i － 1, a, 取随机数 (0, 39), )
a ＝ a ＋ 1
.如果结束

.循环判断尾 (变量 ≠ “”)
a ＝ 0
.变量循环尾 ()

.子程序 热键处理

.如果 (_启动窗口.可视 ＝ 真)
_启动窗口.可视 ＝ 假
.否则
_启动窗口.可视 ＝ 真
.如果结束

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

全路径 ＝ 接收到的文件路径
_添加新项目_被选择 ()