易语言各位老师 请帮忙看看改改怎么才能把图标显示到超级列表框里并且用EDB读出软件地址运行起来
各位老师小弟请教请帮忙看看改改怎么才能把图标显示到超级列表框里并且用EDB读出软件地址运行起来。小弟感激不尽谢谢各位老师了我付段源码上来帮忙看看.版本2.支持库iext....
各位老师小弟请教 请帮忙看看改改怎么才能把图标显示到超级列表框里并且用EDB读出软件地址运行起来。小弟感激不尽 谢谢各位老师了 我付段源码上来帮忙看看
.版本 2
.支持库 iext
.支持库 iext2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 已读取, 整数型
.局部变量 图片组, 字节集
.局部变量 图标索引, 整数型
.局部变量 目标, 文本型
打开 (“tiwen.edb”, , , , , , )
超级列表框1.调整层次 (#顶层)
.计次循环首 (取记录数 (), )
.如果 (取记录号 () = 已读取)
跳过 (1)
图片组 = 超级列表框1.图片组
目标 = 读 (“软件地址”)
图标索引 = 提取加入图片 (图片组, 目标, , 假)
超级列表框1.图片组 = 图片组
超级列表框1.插入表项 (-1, 读 (“软件名称”), 图标索引, , , )
已读取 = 取记录号 ()
.否则
图片组 = 超级列表框1.图片组
目标 = 读 (“软件地址”)
图标索引 = 提取加入图片 (图片组, 目标, , 假)
超级列表框1.图片组 = 图片组
超级列表框1.插入表项 (-1, 读 (“软件名称”), 图标索引, , , )
.如果结束
已读取 = 取记录号 ()
.计次循环尾 ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (超级列表框1.现行选中项 = -1)
返回 ()
.否则
_执行程序_被选择 ()
.如果结束
.子程序 _超级列表框1_右键单击表项
.如果 (超级列表框1.现行选中项 = -1)
返回 ()
.否则
弹出菜单 (右键菜单, , )
.如果结束
.子程序 _执行程序_被选择
.局部变量 记录号, 整数型, , "0"
.局部变量 想要找的软件名称, 文本型
' 模糊查询 (超级列表框1.取标题 (超级列表框1.现行选中项, ), “软件名称”, 记录号)
' 查找 (发音比较 (超级列表框1.取标题 (超级列表框1.现行选中项, ), 读 (“软件名称”), 真, 真)) = 真
' 调试输出 (取数组成员数 (记录号))
到首记录 ()
想要找的软件名称 = 删全部空 (超级列表框1.取标题 (超级列表框1.现行选中项, ))
.如果 (查找 (想要找的软件名称 = 删全部空 (读 (“软件名称”))))
运行 (读 (“软件地址”), 假, )
.否则
信息框 (“没有找到或者地址不正确!”, 0, )
.如果结束
源码在http://bbs.eyuyan.com/read.php?tid=245448可以下载
这个只是关键源码 不是软件全源码 展开
.版本 2
.支持库 iext
.支持库 iext2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 已读取, 整数型
.局部变量 图片组, 字节集
.局部变量 图标索引, 整数型
.局部变量 目标, 文本型
打开 (“tiwen.edb”, , , , , , )
超级列表框1.调整层次 (#顶层)
.计次循环首 (取记录数 (), )
.如果 (取记录号 () = 已读取)
跳过 (1)
图片组 = 超级列表框1.图片组
目标 = 读 (“软件地址”)
图标索引 = 提取加入图片 (图片组, 目标, , 假)
超级列表框1.图片组 = 图片组
超级列表框1.插入表项 (-1, 读 (“软件名称”), 图标索引, , , )
已读取 = 取记录号 ()
.否则
图片组 = 超级列表框1.图片组
目标 = 读 (“软件地址”)
图标索引 = 提取加入图片 (图片组, 目标, , 假)
超级列表框1.图片组 = 图片组
超级列表框1.插入表项 (-1, 读 (“软件名称”), 图标索引, , , )
.如果结束
已读取 = 取记录号 ()
.计次循环尾 ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (超级列表框1.现行选中项 = -1)
返回 ()
.否则
_执行程序_被选择 ()
.如果结束
.子程序 _超级列表框1_右键单击表项
.如果 (超级列表框1.现行选中项 = -1)
返回 ()
.否则
弹出菜单 (右键菜单, , )
.如果结束
.子程序 _执行程序_被选择
.局部变量 记录号, 整数型, , "0"
.局部变量 想要找的软件名称, 文本型
' 模糊查询 (超级列表框1.取标题 (超级列表框1.现行选中项, ), “软件名称”, 记录号)
' 查找 (发音比较 (超级列表框1.取标题 (超级列表框1.现行选中项, ), 读 (“软件名称”), 真, 真)) = 真
' 调试输出 (取数组成员数 (记录号))
到首记录 ()
想要找的软件名称 = 删全部空 (超级列表框1.取标题 (超级列表框1.现行选中项, ))
.如果 (查找 (想要找的软件名称 = 删全部空 (读 (“软件名称”))))
运行 (读 (“软件地址”), 假, )
.否则
信息框 (“没有找到或者地址不正确!”, 0, )
.如果结束
源码在http://bbs.eyuyan.com/read.php?tid=245448可以下载
这个只是关键源码 不是软件全源码 展开
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询