娱乐中心网吧系统

娱乐中心

.版本 2
.支持库 iext
.支持库 iext2

.程序集 窗口程序集2

.子程序 _窗口1_创建完毕

窗口1.可视 ＝ 真
' 更换界面 (10)
打开 (取运行目录 () ＋ “SjhGame.EDB”, , 真, , , , )
置当前库 (“SjhGame”)
到首记录 ()
在线游戏 ()
窗口1.销毁 ()
.如果真 (取屏幕宽度 () ≤ 800)
    _启动窗口.位置 ＝ #最大化激活
.如果真结束


.子程序 在线游戏
.局部变量 图片组, 字节集
.局部变量 文件名, 文本型
.局部变量 图片索引, 整数型

_启动窗口.超级列表框1.全部删除 ()
图片组 ＝ 建空图片组 (32, 32)
到首记录 ()
.计次循环首 (取记录数 (), )
    .如果真 (读 (“分类”) ＝ “在线游戏” ＝ 真)
        .如果真 (读 (“显示”) ＝ “是” ＝ 真)
            文件名 ＝ 读 (“游戏名称”)
            图片索引 ＝ 提取加入图片 (图片组, 读 (“游戏图标”), )
            _启动窗口.超级列表框1.插入表项 (, 文件名, 图片索引, , , 取记录号 ())
        .如果真结束

    .如果真结束
    跳过 ()
.计次循环尾 ()
_启动窗口.超级列表框1.图片组 ＝ 图片组

@易语言教程网