怎么用易语言写一个ICo图标的转换工具

已打磨

低调npc

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 n, 整数型
   
5. .局部变量 色差1, 整数型
   
6. .局部变量 色差2, 整数型
   
7. .局部变量 色差3, 整数型
   
8. .局部变量 忽略字符, 整数型
   
9. .局部变量 循环次数, 整数型
   
10. .局部变量 读取位置, 整数型
    
11. 
    
12. .如果 (图片框1.图片 ＝ {  })
    
13.     信息框 (“请先加入需要生成的图片”, 0, )
    
14. .否则
    
15.     图片 ＝ 快照 (图片框1.取窗口句柄 (), 尺寸, 尺寸)
    
16.     忽略字符 ＝ 54
    
17.     中间字节集 ＝ {  }
    
18.     .如果 (选择框3.选中 ＝ 真)
    
19.         透明色R色 ＝ 图片 [取字节集长度 (图片) － 2]
    
20.         透明色g色 ＝ 图片 [取字节集长度 (图片) － 1]
    
21.         透明色b色 ＝ 图片 [取字节集长度 (图片)]
    
22.     .否则
    
23. 
    
24.     .如果结束
    
25.     循环次数 ＝ (取字节集长度 (图片) － 54) ÷ 3
    
26.     .计次循环首 (循环次数, n)
    
27.         读取位置 ＝ 忽略字符 ＋ (n － 1) × 3 ＋ 1
    
28.         .如果 (细致程度 ＝ 0)
    
29.             中间字节集 ＝ 中间字节集 ＋ 到字节集 (图片 [读取位置]) ＋ 到字节集 (图片 [读取位置 ＋ 1]) ＋ 到字节集 (图片 [读取位置 ＋ 2]) ＋ { 255 }
    
30.         .否则
    
31.             色差1 ＝ 图片 [读取位置] － 透明色R色
    
32.             色差2 ＝ 图片 [读取位置 ＋ 1] － 透明色g色
    
33.             色差3 ＝ 图片 [读取位置 ＋ 2] － 透明色b色
    
34.             .如果 (色差1 ≤ 细致程度 且 色差1 ≥ －细致程度)
    
35.                 .如果 (色差2 ≤ 细致程度 且 色差2 ≥ －细致程度)
    
36.                     .如果 (色差3 ≤ 细致程度 且 色差3 ≥ －细致程度)
    
37.                         中间字节集 ＝ 中间字节集 ＋ 到字节集 (图片 [读取位置]) ＋ 到字节集 (图片 [读取位置 ＋ 1]) ＋ 到字节集 (图片 [读取位置 ＋ 2]) ＋ { 0 }
    
38.                     .否则
    
39.                         中间字节集 ＝ 中间字节集 ＋ 到字节集 (图片 [读取位置]) ＋ 到字节集 (图片 [读取位置 ＋ 1]) ＋ 到字节集 (图片 [读取位置 ＋ 2]) ＋ { 255 }
    
40.                     .如果结束
    
41. 
    
42.                 .否则
    
43.                     中间字节集 ＝ 中间字节集 ＋ 到字节集 (图片 [读取位置]) ＋ 到字节集 (图片 [读取位置 ＋ 1]) ＋ 到字节集 (图片 [读取位置 ＋ 2]) ＋ { 255 }
    
44.                 .如果结束
    
45. 
    
46.             .否则
    
47.                 中间字节集 ＝ 中间字节集 ＋ 到字节集 (图片 [读取位置]) ＋ 到字节集 (图片 [读取位置 ＋ 1]) ＋ 到字节集 (图片 [读取位置 ＋ 2]) ＋ { 255 }
    
48.             .如果结束
    
49. 
    
50.         .如果结束
    
51. 
    
52. 
    
53. 
    
54.     .计次循环尾 ()
    
55.     处理后字节集 ＝ 头字节集 ＋ 中间字节集 ＋ 尾字节集
    
56.     图片框2.图片 ＝ 处理后字节集
    
57. 
    
58. .如果结束
    
59. 
    

复制代码

低调npc

1. .版本 2
   
2. 
   
3. .子程序 _按钮保存_被单击
   
4. 
   
5. .如果 (图片框2.图片 ＝ {  })
   
6. 
   
7. .否则
   
8.     通用对话框1.类型 ＝ 1
   
9.     通用对话框1.默认文件后缀 ＝ “图片文件（*.ico）|*.ico”
   
10.     通用对话框1.过滤器 ＝ “图片文件（*.ico）|*.ico”
    
11.     通用对话框1.打开 ()
    
12.     .如果 (通用对话框1.文件名 ＝ “”)
    
13. 
    
14.     .否则
    
15. 
    
16.         写到文件 (通用对话框1.文件名, 图片框2.图片)
    
17.     .如果结束
    
18. 
    
19. .如果结束
    
20. 
    

复制代码