|
|
发表于 2020-2-23 17:32:29
|
显示全部楼层
.版本 2
.支持库 spec
.支持库 iext2
.支持库 eAPI
.支持库 iext
.子程序 _保存选中图标_被选择
.局部变量 路径, 文本型
.局部变量 图片号
.局部变量 文件名称, 文本型
通用对话框_保存.标题 ＝ “保存图标文件”
通用对话框_保存.过滤器 ＝ “图标文件(*.ico)|*.ico|图片文件(*.bmp)|*.bmp”
通用对话框_保存.类型 ＝ 1
文件名称 ＝ 取文本右边 (文件名, 取文本长度 (文件名) － 倒找文本 (文件名, “\”, , 假))
通用对话框_保存.文件名 ＝ 取文本左边 (文件名称, 倒找文本 (文件名称, “.”, , 假) － 1)
调试输出 (取文本左边 (文件名称, 倒找文本 (文件名称, “.”, , 假) － 1))
.如果真 (通用对话框_保存.打开 ())
.如果 (取文件内图标数 (文件名) ＝ 0)
路径 ＝ 文件名
路径 ＝ 取文本注册项 (1, 取文本注册项 (1, 取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “.”, , 假) ＋ 1) ＋ “\”, ) ＋ “\DefaultIcon\”, )
调试输出 (路径)
图片号 ＝ 到整数 (取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “,”, , 假)))
.如果真 (提取资源文件图标 (取文本左边 (路径, 倒找文本 (路径, “,”, , 假) － 1), 0, 通用对话框_保存.文件名, 图片号) ＝ 0)
信息框 (“保存选中图标失败!”, #错误图标, “Guazi提示：”)
.如果真结束
.否则
.如果真 (提取资源文件图标 (文件名, 0, 通用对话框_保存.文件名, 超级列表框1.取表项数值 (超级列表框1.现行选中项)) ＝ 0)
信息框 (“保存选中图标失败!”, #错误图标, “Guazi提示：”)
IOC源码.rar
(7.17 KB, 下载次数: 0, 售价: 1 江湖币)
|
上一篇：在线生成诺基亚短信网源码下一篇：开源联盟辅助验证UI界面
|
雷达卡
关闭卡
开启卡
千斤顶