【NO.0003】：菜单制作

帅丨灬

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

鲁凯啸

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

2010-1-10 09:24 上传

点击文件名下载附件
阅读权限: 10
下载积分: 精币 -2 枚

因为多次修改提交均显示"您的请求来路不正确，无法提交。"
现将 甜到忧伤 的作业放此降权下载!请大家观摩学习!

帅丨灬

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

帅丨灬

回复 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]

帅丨灬

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

易帆风顺

知识无止境，高手多呀

帅丨灬

晕 怎么还没加分

帅丨灬

谢谢了 老哥！

想学坏的小孩

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

想学坏的小孩

给钱 啊  我要收钱喽