来个游戏菜单

吴亚杰 · 发表于 2020-3-15 16:42:58

本帖最后由吴亚杰于 2020-3-16 12:46 编辑

闲着无聊  看看还需要哪些功能！！请多多给予意见！！

做一下小修改  完善一下

.版本 2
.子程序销毁组件
.局部变量 n, 整数型

.计次循环首 (取数组成员数 (按钮), n)
.如果 (是否已创建 (按钮 [n]) ＝真)
      按钮 [n].销毁 ()
.否则
      ' 跳出循环 () 把跳出循环去掉
.如果结束
.计次循环尾 ()
重定义数组 (按钮, 假, 0)

.版本 2
.支持库 iext2
.子程序添加组件
.局部变量 n, 整数型
.局部变量 a, 整数型
.局部变量临时_标题, 文本型
.局部变量组件顶边, 整数型
.局部变量按钮图标, 字节集
.局部变量组件左边, 整数型
打开 (取运行目录 () ＋ “\配置.edb”, , , , , , )
到首记录 ()
组件顶边＝ 10
.计次循环首 (取记录数 (), n)
临时_标题＝读 (3)
按钮图标＝读 (2)
.如果真 (组件左边＝组件)
      a ＝ 0
      组件顶边＝组件顶边＋ 40
      组件左边＝ 0
.如果真结束
a ＝ a ＋ 1
组件左边＝ 80 × a － 80 ＋ 2
加入成员 (按钮, 按钮1)  ' 修改一下按钮数组可以写0
复制窗口组件 (按钮1, 按钮 [n])
按钮 [n].标题＝临时_标题
按钮 [n].通常图片＝按钮图标
按钮 [n].左边＝组件左边
按钮 [n].顶边＝组件顶边
按钮 [n].可视＝真
跳过 ()
.计次循环尾 ()
关闭 ()

掉毛兔子 · 发表于 2023-6-10 23:08:24

没有截图吗？

husongping · 发表于 2022-11-24 10:59:08

看看哈哈不错

小麒QCC · 发表于 2022-9-16 18:25:02

浪费2金币

相濡以沫1314 · 发表于 2022-4-4 12:37:31

6666666666666666666

相濡以沫1314 · 发表于 2022-4-4 12:37:18

666666666666666

天帝11 · 发表于 2022-3-21 17:33:05

感谢分享学习一下

相濡以沫1314 · 发表于 2020-4-4 17:53:24

按钮 [n].顶边＝组件顶边

w792323053 · 发表于 2020-4-2 00:41:40

6666666666666为啥没截图

吴亚杰 · 发表于 2020-3-16 07:42:59

mood100 发表于 2020-3-15 21:21
怎么不弄个截图看下效果呢？

不好意思！本人很懒

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

[易语言纯源码] 来个游戏菜单