易语言卷帘式菜单的问题,卷帘式菜单添加进去的图标怎么保存呢?
在网上看了一个网友的空间,有一个卷帘式菜单的程序,我下载来看了看,没法保存,删除还是我研究了好一阵子研究的,呵呵,声明一点,我刚开始学,看看哪个高手给解答这个问题。把放进...
在网上看了一个网友的空间,有一个卷帘式菜单的程序,我下载来看了看,没法保存,删除还是我研究了好一阵子研究的,呵呵,声明一点,我刚开始学,看看哪个高手给解答这个问题。把放进去的图标能保存,并且双击能打开。其实这个程序,把图标拖进去之后能双击打开,就是关闭之后再打开就是一个空白的,什么也没有。主要是根据这个源码,再添加几条命令,让它在关闭之后再打开还有拖进去的图标,并且双击打开。啰嗦了半天不知道说明白了吗。知道的高手给说一下好吗?
源码如下:
.版本 2
.支持库 edroptarget
.支持库 iext3
.支持库 iext2
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (卷帘式菜单1.取窗口句柄 ())
卷帘式菜单1.项目图标图片组 = 建空图片组 (32, 32)
卷帘式菜单1.XP风格 = 3
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 图片组数据变量, 字节集
.局部变量 文本路径, 文本型, , "0"
.如果真 (取文本右边 (接收到的文件路径, 4) = “.lnk”)
接收到的文件路径 = 取快捷方式目标 (接收到的文件路径, , , , , , , )
.如果真结束
图片组数据变量 = 建空图片组 (32, 32)
.如果真 (提取加入图片 (图片组数据变量, 接收到的文件路径, , ) ≠ -1)
卷帘式菜单1.项目图标图片组 = 合并图片组 (卷帘式菜单1.项目图标图片组, 图片组数据变量)
.如果真结束
' 将路径分割文本
文本路径 = 分割文本 (接收到的文件路径, “\”, )
' 取最后一个文本路径数组,将文本加入
卷帘式菜单1.加入项目 (取文本中间 (文本路径 [取数组成员数 (文本路径)], 1, 取文本长度 (文本路径 [取数组成员数 (文本路径)])), , , 取图片组图片数 (卷帘式菜单1.项目图标图片组) - 1, )
卷帘式菜单1.置项目提示文本 (卷帘式菜单1.现行选中菜单, 卷帘式菜单1.取项目数 (卷帘式菜单1.现行选中菜单) - 1, 接收到的文件路径)
.子程序 _卷帘式菜单1_项目被双击
.参数 菜单索引, 整数型
.参数 项目索引, 整数型
.局部变量 文件路径, 文本型
文件路径 = 卷帘式菜单1.取项目提示文本 (菜单索引, 项目索引)
运行 (文件路径, 假, )
.子程序 _卷帘式菜单1_项目被右击
.参数 菜单索引, 整数型
.参数 项目索引, 整数型
弹出菜单 (文件, , )
.子程序 _删除_被选择
卷帘式菜单1.删除项目 (卷帘式菜单1.现行选中项目, 卷帘式菜单1.现行选中菜单)
我在天都吧论坛,和时光易友论坛发帖了两天了没有人给解答
神啊 ,给个答案吧! 展开
源码如下:
.版本 2
.支持库 edroptarget
.支持库 iext3
.支持库 iext2
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (卷帘式菜单1.取窗口句柄 ())
卷帘式菜单1.项目图标图片组 = 建空图片组 (32, 32)
卷帘式菜单1.XP风格 = 3
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 图片组数据变量, 字节集
.局部变量 文本路径, 文本型, , "0"
.如果真 (取文本右边 (接收到的文件路径, 4) = “.lnk”)
接收到的文件路径 = 取快捷方式目标 (接收到的文件路径, , , , , , , )
.如果真结束
图片组数据变量 = 建空图片组 (32, 32)
.如果真 (提取加入图片 (图片组数据变量, 接收到的文件路径, , ) ≠ -1)
卷帘式菜单1.项目图标图片组 = 合并图片组 (卷帘式菜单1.项目图标图片组, 图片组数据变量)
.如果真结束
' 将路径分割文本
文本路径 = 分割文本 (接收到的文件路径, “\”, )
' 取最后一个文本路径数组,将文本加入
卷帘式菜单1.加入项目 (取文本中间 (文本路径 [取数组成员数 (文本路径)], 1, 取文本长度 (文本路径 [取数组成员数 (文本路径)])), , , 取图片组图片数 (卷帘式菜单1.项目图标图片组) - 1, )
卷帘式菜单1.置项目提示文本 (卷帘式菜单1.现行选中菜单, 卷帘式菜单1.取项目数 (卷帘式菜单1.现行选中菜单) - 1, 接收到的文件路径)
.子程序 _卷帘式菜单1_项目被双击
.参数 菜单索引, 整数型
.参数 项目索引, 整数型
.局部变量 文件路径, 文本型
文件路径 = 卷帘式菜单1.取项目提示文本 (菜单索引, 项目索引)
运行 (文件路径, 假, )
.子程序 _卷帘式菜单1_项目被右击
.参数 菜单索引, 整数型
.参数 项目索引, 整数型
弹出菜单 (文件, , )
.子程序 _删除_被选择
卷帘式菜单1.删除项目 (卷帘式菜单1.现行选中项目, 卷帘式菜单1.现行选中菜单)
我在天都吧论坛,和时光易友论坛发帖了两天了没有人给解答
神啊 ,给个答案吧! 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询