如何把通用对话框选择的ico图标提取到图 片框并保存

csw5422

有两个通用对话框

按钮_加入单击后
通用对话框打开.选择一个桌面图标点击打开后将选
项的图标发送到图 片框1上

按钮_保存单击后
又通用对话框2打开.选择保存到的地方把图标当ICO
图标发送到指定地方

这两个怎么代码写啊{:3_233:}
清除我会.

ltais

1. .版本 2
   
2. .支持库 eAPI
   
3. 
   
4. .程序集 窗口程序集1
   
5. .程序集变量 图 片资源, 字节集
   
6. 
   
7. .子程序 _按钮_加入_被单击
   
8. .局部变量 临时文件, 文本型
   
9. 
   
10. 通用对话框1.类型 ＝ 0
    
11. 通用对话框1.过滤器 ＝ “资源文件|*.exe;*.dll;*.ico;*.icl”
    
12. 通用对话框1.文件名 ＝ “”
    
13. 通用对话框1.打开 ()
    
14. .如果真 (通用对话框1.文件名 ≠ “”)
    
15. 临时文件 ＝ “c:\1.ico”
    
16. 提取资源文件图标 (通用对话框1.文件名, 0, 临时文件, )
    
17. 图 片资源 ＝ 读入文件 (临时文件)
    
18. 图 片框1.图 片 ＝ 图 片资源
    
19. 删除文件 (临时文件)
    
20. .如果真结束
    
21. 
    
22. 
    
23. .子程序 _按钮_保存_被单击
    
24. 
    
25. 通用对话框1.类型 ＝ 1
    
26. 通用对话框1.过滤器 ＝ “资源文件.ico|*.ico”
    
27. 通用对话框1.文件名 ＝ “”
    
28. 通用对话框1.打开 ()
    
29. .如果真 (通用对话框1.文件名 ≠ “”)
    
30. .如果 (取字节集长度 (图 片资源) ＞ 1)
    
31. 写到文件 (通用对话框1.文件名 ＋ “.ico”, 图 片资源)
    
32. 信息框 (“保存成功”, 0, )
    
33. .否则
    
34. 信息框 (“保存失败”, 0, )
    
35. .如果结束
    
36. 
    
37. .如果真结束
    
38. 
    
39. 
    
40. .子程序 _按钮_清除_被单击
    
41. 
    
42. 图 片资源 ＝ { 0 }
    
43. 图 片框1.图 片 ＝ 图 片资源
    

复制代码

提取ICO图标.rar (1.37 KB, 下载次数: 29)

2010-12-3 17:35 上传

点击文件名下载附件

未名

不错，支持一个，