开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2012|回复: 5
收起左侧

[易语言] 游戏菜单《加记录》

[复制链接]
结帖率:0% (0/1)
发表于 2012-3-30 07:14:14 | 显示全部楼层 |阅读模式   上海市上海市
2精币
[e]
.版本 2
.支持库 iext3
.支持库 iext
.支持库 iext2
.程序集 窗口程序集1, , , 我比较喜欢把所有子程序公开!
.程序集变量 渐隐渐现, 整数型, , , 精易模块3.0_子程序“窗口_渐隐渐现”中参数“操作类型”的变量
.程序集变量 游戏菜单夹_现行子夹, 整数型
.子程序 __启动窗口_创建完毕, , 公开
处理事件 ()
内存_优化 (取窗口句柄 ())
' DNF登陆广告地址.地址 = “http://dnf.qq.com/client/include_page2010.shtml
_启动窗口.置外形图片 (_启动窗口.底图, #品红)
设置超级列表框背景 ()
置托盘图标 (#DNF, “游戏菜单”)
窗口_禁止关闭 (_启动窗口.取窗口句柄 (), 真)
程序_禁止重复运行 ()
.判断开始 (系统_是否已联网 () = 假)
    _启动窗口.可视 = 假
    信息框 (“网络未连接”, 48, “警告”)
    销毁 ()
.默认
    _启动窗口.可视 = 真
.判断结束
渐隐渐现 = 0
游戏菜单夹.现行子夹 = 0
.子程序 设置超级列表框背景
设置背景 (超级列表框_游戏服务, #背景, 假)
设置背景 (超级列表框_聊天交友, #背景, 假)
设置背景 (超级列表框_音乐电影, #背景, 假)
设置背景 (超级列表框_网页收藏, #背景, 假)
设置背景 (超级列表框_网络工具, #背景, 假)
设置背景 (超级列表框_游戏工具, #背景, 假)
.子程序 刷新列表
.局部变量 图片组, 字节集
.局部变量 计次, 整数型
.局部变量 索引, 整数型
处理事件 ()
超级列表框_游戏服务.全部删除 ()
超级列表框_聊天交友.全部删除 ()
超级列表框_音乐电影.全部删除 ()
超级列表框_网页收藏.全部删除 ()
超级列表框_网络工具.全部删除 ()
超级列表框_游戏工具.全部删除 ()
图片组 = 建空图片组 (32, 32)
.计次循环首 (取记录数 (), 计次)
    跳到 (计次)
.计次循环尾 ()
.子程序 _关闭__被单击, , 公开
窗口_渐隐渐现 (取窗口句柄 (), 渐隐渐现, 5, )
渐隐渐现 = 1
.子程序 _游戏服务__被单击, , 公开
游戏菜单夹.现行子夹 = 0
游戏菜单夹_现行子夹 = 游戏菜单夹.现行子夹
.子程序 _聊天交友__被单击, , 公开
游戏菜单夹.现行子夹 = 1
游戏菜单夹_现行子夹 = 游戏菜单夹.现行子夹
.子程序 _音乐电影__被单击, , 公开
游戏菜单夹.现行子夹 = 2
游戏菜单夹_现行子夹 = 游戏菜单夹.现行子夹
.子程序 _网页收藏__被单击, , 公开
游戏菜单夹.现行子夹 = 3
游戏菜单夹_现行子夹 = 游戏菜单夹.现行子夹
.子程序 _网络工具__被单击, , 公开
游戏菜单夹.现行子夹 = 4
游戏菜单夹_现行子夹 = 游戏菜单夹.现行子夹
.子程序 _游戏工具__被单击, , 公开
游戏菜单夹.现行子夹 = 5
游戏菜单夹_现行子夹 = 游戏菜单夹.现行子夹
.子程序 __启动窗口_托盘事件, , 公开
.参数 操作类型, 整数型
.如果真 (操作类型 = 2)
    .如果 (渐隐渐现 = 1)
        窗口_渐隐渐现 (取窗口句柄 (), 渐隐渐现, 5, )
        渐隐渐现 = 0
    .否则
        窗口_渐隐渐现 (取窗口句柄 (), 渐隐渐现, 5, )
        渐隐渐现 = 1
    .如果结束
.如果真结束
.如果真 (操作类型 = 3)
    弹出托盘菜单 (托盘菜单)
.如果真结束

.子程序 _超级列表框_游戏服务_右键单击表项, , 公开
弹出菜单 (菜单, , )
.子程序 _超级列表框_聊天交友_右键单击表项, , 公开
弹出菜单 (菜单, , )
.子程序 _超级列表框_音乐电影_右键单击表项, , 公开
弹出菜单 (菜单, , )
.子程序 _超级列表框_网页收藏_右键单击表项, , 公开
弹出菜单 (菜单, , )
.子程序 _超级列表框_网络工具_右键单击表项, , 公开
弹出菜单 (菜单, , )
.子程序 _超级列表框_游戏工具_右键单击表项, , 公开
弹出菜单 (菜单, , )
.子程序 __启动窗口_将被销毁, , 公开
程序_重启 ()
.子程序 _运行_被选择
.判断开始 (游戏菜单夹_现行子夹 = 0)
    跳到 (超级列表框_游戏服务.取表项数值 (超级列表框_游戏服务.现行选中项))
    游戏菜单夹.现行子夹 = 0
.默认
.判断结束
.判断开始 (游戏菜单夹_现行子夹 = 1)
    跳到 (超级列表框_聊天交友.取表项数值 (超级列表框_聊天交友.现行选中项))
    游戏菜单夹.现行子夹 = 1
.默认
.判断结束
.判断开始 (游戏菜单夹_现行子夹 = 2)
    跳到 (超级列表框_音乐电影.取表项数值 (超级列表框_音乐电影.现行选中项))
    游戏菜单夹.现行子夹 = 2
.默认
.判断结束
.判断开始 (游戏菜单夹_现行子夹 = 3)
    跳到 (超级列表框_网页收藏.取表项数值 (超级列表框_网页收藏.现行选中项))
    游戏菜单夹.现行子夹 = 3
.默认
.判断结束
.判断开始 (游戏菜单夹_现行子夹 = 4)
    跳到 (超级列表框_网络工具.取表项数值 (超级列表框_网络工具.现行选中项))
    游戏菜单夹.现行子夹 = 4
.默认
.判断结束
.判断开始 (游戏菜单夹_现行子夹 = 5)
    跳到 (超级列表框_游戏工具.取表项数值 (超级列表框_游戏工具.现行选中项))
    游戏菜单夹.现行子夹 = 5
.默认
.判断结束
输出调试文本 (游戏菜单夹_现行子夹)
.子程序 _添加_被选择
.局部变量 文件名, 文本型
.局部变量 计次, 整数型
' 通用对话框1.类型 = 0
' 通用对话框1.过滤器 = “所有文件(*.*)|*.*”
' ' 通用对话框1.打开 ()
.' 如果真 (通用对话框1.打开 () = 真)
    .' 如果真 (取文本长度 (通用对话框1.文件名) > 512)
        ' 信息框 (“文件路径太长,不能添加!”, #48, “警告”)
        ' 返回 ()
    .如果真结束
    ' 文件名 = 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - 倒找文本 (通用对话框1.文件名, “\”, , 假))
    .' 计次循环首 (取记录数 (), 计次)
        ' 跳到 (计次)
        .' 如果真 (读 (2) = 通用对话框1.文件名)
            ' 信息框 (“文件已经存在,不能重复添加!”, #48, “警告”)
            ' 返回 ()
        .如果真结束
    .' 计次循环尾 ()
    .' 如果真 (加记录 (文件名, 通用对话框1.文件名, 游戏菜单夹.取子夹名称 (游戏菜单夹.现行子夹)) = 真)
        ' 信息框 (“文件添加成功!”, #信息图标, “成功”)
    .如果真结束
.如果真结束

.子程序 _移除_被选择

.子程序 _目录_被选择

.子程序 _显示_被选择
窗口_渐隐渐现 (取窗口句柄 (), 1, 5, )
渐隐渐现 = 0
.子程序 _隐藏_被选择
窗口_渐隐渐现 (取窗口句柄 (), 0, 5, )
渐隐渐现 = 1

[/e]
1.png
求把这里的代码完善下!


游戏菜单.rar (1.04 MB, 下载次数: 146)


回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳
结帖率:92% (206/224)
发表于 2012-7-12 20:29:20 | 显示全部楼层   河北省保定市
什么程序!!!!!
回复

使用道具 举报

结帖率:100% (23/23)
发表于 2012-7-13 17:34:26 | 显示全部楼层   广东省东莞市
gdf{:3_244:}{:3_244:}{:3_244:}
回复

使用道具 举报

结帖率:43% (3/7)
发表于 2012-8-29 20:06:38 | 显示全部楼层   广东省阳江市
怎么拿下载点
回复

使用道具 举报

发表于 2012-11-19 17:37:00 | 显示全部楼层   四川省成都市
看帖回帖。。。。。。。。
回复

使用道具 举报

发表于 2013-1-16 01:29:57 | 显示全部楼层   湖北省黄冈市
看帖回帖。。。。。。。。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表