网站首页 > 易语言相关 > 易语言例程 正文
易语言提取ICO图标源码
@lyfm
.版本 2 .支持库 edroptarget .支持库 shell .支持库 iext2 .支持库 iext .支持库 eAPI .支持库 EThread .程序集 窗口程序集1 .程序集变量 路径, 文本型 .子程序 __启动窗口_创建完毕 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ()) 组合框1.现行选中项 = 1 _启动窗口.图标 = #ico图标 .子程序 读取 .局部变量 ico, 字节集 .局部变量 图片数, 整数型 .局部变量 i, 整数型 通用对话框1.标题 = “选择文件” 通用对话框1.过滤器 = “*.exe|*.exe|*.dll|*.dll|*.ico|*.ico” 通用对话框1.初始目录 = 取特定目录 (3) 通用对话框1.打开 () 路径 = 通用对话框1.文件名 图片数 = 取文件内图标数 (路径) ' 提取文件内的图标数 .如果真 (图片数 < 1) 信息框 (“没有资源图标”, #错误图标, “错误”) 返回 () .如果真结束 超级列表框1.全部删除 () .如果真 (组合框1.现行选中项 = -1) 信息框 (“请选择需要的图标大小”, #信息图标, “提示”) 返回 () .如果真结束 .如果真 (组合框1.现行选中项 = 0) ico = 建空图片组 (16, 16) ' 如果组合框的选中项等于选中项,存储图片的变量等于建立空的图片组数据 .如果真结束 .如果真 (组合框1.现行选中项 = 1) ico = 建空图片组 (32, 32) .如果真结束 .如果真 (组合框1.现行选中项 = 2) ico = 建空图片组 (48, 48) .如果真结束 .计次循环首 (图片数, i) 提取加入图片 (ico, 路径, i - 1, ) .计次循环尾 () 超级列表框1.图片组 = ico .计次循环首 (图片数, i) 超级列表框1.插入表项 (, 到文本 (i), i - 1, , , ) .计次循环尾 () .子程序 保存 通用对话框2.类型 = 1 通用对话框2.标题 = “选择要保存图标的目录” 通用对话框2.过滤器 = “*.ico|*.ico” 通用对话框2.默认文件后缀 = 通用对话框2.过滤器 通用对话框2.初始目录 = 取特定目录 (3) .如果真 (通用对话框2.打开 ()) 提取资源文件图标 (路径, 0, 通用对话框2.文件名, 超级列表框1.现行选中项 + 1) .如果真结束 .子程序 批量保存 .局部变量 图片数, 整数型 .局部变量 i, 整数型 .局部变量 目录名, 文本型 .局部变量 文件名, 文本型 图片数 = 超级列表框1.取表项数 () .如果真 (图片数 < 1) 信息框 (“没有资源图标”, #错误图标, “错误”) 返回 () .如果真结束 .如果 (信息框 (“[是] [否]保存在程序的根目录”, #是否钮, ) = #是钮) 创建目录 (取当前目录 () + “ico图标”) .计次循环首 (图片数, i) 处理事件 () 目录名 = 取当前目录 () + “ico图标\” 文件名 = 到文本 (取年份 (取现行时间 ())) + 到文本 (取月份 (取现行时间 ())) + 到文本 (取日 (取现行时间 ())) + 到文本 (取小时 (取现行时间 ())) + 到文本 (取分钟 (取现行时间 ())) + 到文本 (i) + “.ico” 提取资源文件图标 (路径, 0, 目录名 + “” + 文件名, i) .计次循环尾 () .否则 目录名 = 浏览文件夹 (“请选择要保存的路径”, ) .如果结束 .如果真 (目录名 = “”) 返回 () .如果真结束 .计次循环首 (图片数, i) 处理事件 () 文件名 = 到文本 (取年份 (取现行时间 ())) + 到文本 (取月份 (取现行时间 ())) + 到文本 (取日 (取现行时间 ())) + 到文本 (取小时 (取现行时间 ())) + 到文本 (取分钟 (取现行时间 ())) + 到文本 (i) + “.ico” 提取资源文件图标 (路径, 0, 目录名 + “” + 文件名, i) .计次循环尾 () .子程序 拖放 .局部变量 图片数, 整数型 .局部变量 i, 整数型 .局部变量 ico, 字节集 图片数 = 取文件内图标数 (路径) .如果真 (图片数 < 1) 信息框 (“没有资源图标”, #错误图标, “错误”) 返回 () .如果真结束 超级列表框1.全部删除 () .如果真 (组合框1.现行选中项 = -1) 信息框 (“请选择需要的图标大小”, #信息图标, “提示”) 返回 () .如果真结束 .如果真 (组合框1.现行选中项 = 0) ico = 建空图片组 (16, 16) .如果真结束 .如果真 (组合框1.现行选中项 = 1) ico = 建空图片组 (32, 32) .如果真结束 .如果真 (组合框1.现行选中项 = 2) ico = 建空图片组 (48, 48) .如果真结束 .计次循环首 (图片数, i) 提取加入图片 (ico, 路径, i - 1, ) .计次循环尾 () 超级列表框1.图片组 = ico .计次循环首 (图片数, i) 超级列表框1.插入表项 (, 到文本 (i), i - 1, , , ) .计次循环尾 () .子程序 _按钮1_被单击 启动线程 (&读取, , ) .子程序 _按钮2_被单击 启动线程 (&保存, , ) .子程序 _按钮3_被单击 启动线程 (&批量保存, , ) .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 路径 = 接收到的文件路径 启动线程 (&拖放, , )
- 上一篇: 易语言内存搜素工具源码
- 下一篇: 利用 RtlWalkFrameChain 回溯调用堆栈
猜你喜欢
- 2025-01-04 hook抓取电脑和安卓交互的TCP请求,Tcp-adb源码分享
- 2025-01-03 易语言取文件真实创建时间
- 2025-01-03 易语言实现彩色会闪会抖动的字,而且还在标题栏
- 2024-06-28 通讯录VCF文件生成源码
- 2024-03-16 2024无模块静默取已登录QQ
- 2024-03-16 批量转换PPT为PDF源码
- 2024-03-15 串口相关, 虚拟串口,枚举串口,PCOMM使用
- 2024-03-14 易语言取Unix时间戳源码
- 2024-03-13 易语言源码 安卓 ADB调试桥 真机调试
- 2024-03-11 易语言控件自动缩放源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有5位网友发表了看法:
易语言资源 评论于 [2019-11-15 12:30:12] 回复
提取图标易语言源码
易语言例子 评论于 [2020-02-02 18:11:26] 回复
易语言 提取资源文件图标
易语言 评论于 [2020-04-17 21:53:02] 回复
易语言ico图标提取源码
编程学习平台 评论于 [2021-04-17 19:32:53] 回复
易语言提取ico图片源码
eyuyanc 评论于 [2021-05-21 18:20:29] 回复
易语言提取微信公众号图片地址