Question

易语言卷帘式菜单项目图标

本来是要做一个类似于音速启动的软键，一切都弄得差不多了，就是被一个小小的图标给我难住了，无论我使尽混生解数，也无济于事。主要就是在卷帘式菜单的项目上面加入图标。具体情况是这样的：(编译好的情况下)在卷帘式菜单里面新建一个项目，先是寻找路径，然后给这个项目取个名字，最后点确定加入到卷帘式菜单中，但是图标无论如何也不能跟进去。不知哪位大侠可以告诉我如何将图标一同加入？我一定会重重的感谢他的！谢谢！

Answer 1

这是加入程序名称和图标的代码，你可以参考图标的加入：

.程序集 窗口程序集1
.程序集变量 软件名称, 文本型, , "0"
.程序集变量 软件名称1, 文本型, , "0"
.程序集变量 软件图标, 字节集
.程序集变量 软件图标1, 字节集
.程序集变量 软件图标2, 字节集

.版本 2
.支持库 iext2
.支持库 iext3

.子程序 _添加_被选择
.局部变量 计次变量, 整数型

.如果 (通用对话框1.打开 () ＝ 真)
软件图标 ＝ 建空图片组 (32, 32)
软件图标1 ＝ 建空图片组 (32, 32)

.如果 (取文件内图标数 (通用对话框1.文件名) ＞ 0)
.计次循环首 (取文件内图标数 (通用对话框1.文件名), 计次变量)
提取加入图片 (软件图标, 通用对话框1.文件名, 计次变量 － 1)
.计次循环尾 ()
.否则

.如果结束

.计次循环首 (取图片组图片数 (软件图标), 计次变量)
加入图片 (软件图标1, 取图片组图片 (软件图标, 计次变量 － 1, ), )
.计次循环尾 ()

加入图片 (软件图标2, 取图片组图片 (软件图标, 0, ), )
软件名称 ＝ 分割文本 (通用对话框1.文件名, “\”, )
软件名称1 ＝ 分割文本 (软件名称 [取数组成员数 (软件名称)], “.”, )

卷帘式菜单1.项目图标图片组 ＝ 软件图标2
全部关闭 ()
打开 (取运行目录 () ＋ “\软件管理.edb”, “软件管理”, , , , , )
加空记录 ()
写 (#软件名称, 软件名称1 [1])
写 (#软件路径, 通用对话框1.文件名)
写 (#软件图标, 取图片组图片 (软件图标, 0, ))
写 (#软件分类, 卷帘式菜单1.取菜单名称 (卷帘式菜单1.现行选中菜单))
卷帘式菜单1.加入项目 (读 (#软件名称), 菜单现行选中项, , 取图片组图片数 (软件图标2) － 1, )
.否则

.如果结束
全部关闭 ()

追问

把源码发给我，谢谢！
QQ：867649643

追答

我把别的功能去除，留下比较简单的代码，应该比较容易看懂。
已经发到你的QQ邮箱了，注意查收。

追问

谢谢，但是为什么我加入的所有的程序都是“添加失败”？

追答

哦，非常对不起，我刚才查看了源码，需要加入一句代码：

.如果 (文件是否存在 (取运行目录 () ＋ “\分类文本.txt”) ＝ 真)

.否则
写到文件 (取运行目录 () ＋ “\分类文本.txt”, 到字节集 (“”))

因为程序需要读取分类文本，我发给你的源码没有把分类文本打包，所以程序无法存档。你在__启动窗口_创建完毕的下面，菜单现行选中项 ＝ 0的上面加入 ：

.如果 (文件是否存在 (取运行目录 () ＋ “\分类文本.txt”) ＝ 真)

.否则
写到文件 (取运行目录 () ＋ “\分类文本.txt”, 到字节集 (“”))

这句代码的意思是首先判断程序所在的文件夹里是否有分类文本.txt，如果没有就写入一个内容为空的分类文本.txt。我把源码发给你了。

唉 我发给你的源码里有两句写到文件 (取运行目录 () ＋ “\分类文本.txt”, 到字节集 (“”))

多了一句 写到文件 (取运行目录 () ＋ “\分类文本.txt”, 到字节集 (“”))

你要把下面多的那句写到文件 (取运行目录 () ＋ “\分类文本.txt”, 到字节集 (“”))删除。

Answer 2

能不能把源码发给我看看 ，我借鉴下谢谢
743372740