游戏菜单《加记录》

汉化CE

[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]

求把这里的代码完善下！


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

2012-3-30 07:13 上传

点击文件名下载附件

a5598869

什么程序！！！！！

Conver

gdf{:3_244:}{:3_244:}{:3_244:}

q626813629

怎么拿下载点

Songs

看帖回帖。。。。。。。。

言子兮

看帖回帖。。。。。。。。