【NO.0003】：菜单制作

帅丨灬 · 发表于 2010-1-9 18:30:47

版主出来听听人民的心声啊.....

鲁凯啸 · 发表于 2010-1-10 09:25:07

菜单制作.e (4.4 KB, 下载次数: 145)

帅丨灬 · 发表于 2010-1-10 12:58:35

[url=菜单制作.rar]嘎嘎，我来拿100精B了！！[/url]

帅丨灬 · 发表于 2010-1-10 13:02:00

回复 1# 頑樂

我来拿100分了

[e]
.版本 2
.支持库 edroptarget
.支持库 iext2
.支持库 iext
.支持库 shell
.程序集窗口程序集1
.程序集变量图片组变量, 字节集
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
.子程序 _按钮1_被单击
.如果真 (通用对话框1.打开 ())
子程序_取ICO图标 (通用对话框1.文件名)
.如果真结束

.子程序 _拖放对象1_得到文件
.参数接收到的文件路径, 文本型
.判断开始 (取文本右边 (接收到的文件路径, 3) ≠ “exe”)
_启动窗口.总在最前＝假
信息框 (“目前仅支持EXE文件格式”, #错误图标, )
返回 ()
.默认
子程序_取ICO图标 (接收到的文件路径)
.判断结束

.子程序子程序_取ICO图标
.参数文件路径, 文本型
.局部变量 x, 整数型

.如果 (取文件内图标数 (文件路径) ＞ 0)
图片组变量＝建空图片组 (32, 32)
.计次循环首 (取文件内图标数 (文件路径), x)
提取加入图片 (图片组变量, 文件路径, x － 1, 真)
.计次循环尾 ()
超级列表框1.图片组＝图片组变量
超级列表框1.插入表项 (, 文件路径, 0, , , )
.否则
信息框 (“该EXE文件内，没有ICO图标，请检查！”, 0, )
.如果结束

.子程序 _打开_被选择
执行 (, 超级列表框1.取标题 (超级列表框1.现行选中项, ), , )

.子程序 _超级列表框1_表项被激活
弹出菜单 (操作, 取鼠标水平位置 (), 取鼠标垂直位置 ())

.子程序 _删除_被选择
超级列表框1.删除表项 (超级列表框1.现行选中项)
[/e]

帅丨灬 · 发表于 2010-1-10 13:03:49

额我发了为什么没显示出来呢？

易帆风顺 · 发表于 2010-1-10 14:35:18

知识无止境，高手多呀

帅丨灬 · 发表于 2010-1-10 14:39:30

晕怎么还没加分

帅丨灬 · 发表于 2010-1-10 17:46:01

谢谢了老哥！

想学坏的小孩 · 发表于 2010-1-18 20:17:43

总算是做好了谢谢诸葛谢谢帅要么我还不知道怎么提取可执行文件的图标只知道API里有但是用起来太麻烦我又不太懂API 还有帅的参考了下才做出我自己的

想学坏的小孩 · 发表于 2010-1-18 20:18:15

给钱啊我要收钱喽

		自动登录	找回密码
密码			注册

[已结束] 【NO.0003】：菜单制作

点评

RE: 【NO.0003】：菜单制作

评分

评分