我想知道这个为什么不能设置为0

已注销384882

设置0.e (636.96 KB, 下载次数: 6)

2017-8-21 23:49 上传

点击文件名下载附件
求大佬指点。
JB不多了。

永卜言弃

.版本 2
.支持库 iext2

.程序集 窗口程序集_启动窗口
.程序集变量 超级按钮, 超级按钮, , "0"

.子程序 _按钮1_被单击
.局部变量 数量, 整数型
.局部变量 i, 整数型
.局部变量 局_超级按钮, 超级按钮
.局部变量 局_计次, 整数型

.计次循环首 (取数组成员数 (超级按钮), 局_计次)
    超级按钮 [局_计次].销毁 ()
.计次循环尾 ()
重定义数组 (超级按钮, 假, 0)

数量 ＝ 到数值 (编辑框1.内容)
.计次循环首 (数量, i)
    复制窗口组件 (超级按钮1, 局_超级按钮)
    加入成员 (超级按钮, 局_超级按钮)
    局_超级按钮.标记 ＝ 到文本 (i)
    局_超级按钮.左边 ＝ 10 ＋ ((i － 1) ％ 10) × 80
    局_超级按钮.顶边 ＝ 8 ＋ ((i － 1) ＼ 10) × 50
    局_超级按钮.可视 ＝ 真
.计次循环尾 ()


补充内容 (2017-8-21 23:57):
你要删除前面10个.就按数据成员,销毁掉组件就行.但要记得同时删除数组里的成员哟.

永卜言弃

不要抢 我来.

永卜言弃

.版本 2
.支持库 iext2

.程序集 窗口程序集_启动窗口
.程序集变量 超级按钮, 超级按钮, , "0"

.子程序 _按钮1_被单击
.局部变量 数量, 整数型
.局部变量 i, 整数型
.局部变量 局_超级按钮, 超级按钮

数量 ＝ 到数值 (编辑框1.内容)
.计次循环首 (数量, i)
    复制窗口组件 (超级按钮1, 局_超级按钮)
    加入成员 (超级按钮, 局_超级按钮)
    超级按钮 .标记 ＝ 到文本 (i)
    超级按钮 .左边 ＝ 10 ＋ ((i － 1) ％ 10) × 80
    超级按钮 .顶边 ＝ 8 ＋ ((i － 1) ＼ 10) × 50
    超级按钮 .可视 ＝ 真
.计次循环尾 ()


补充内容 (2017-8-21 23:53):
代码有点问题。下面的没调.修改的代码为:
复制窗口组件 (超级按钮1, 局_超级按钮)
    加入成员 (超级按钮, 局_超级按钮)

伤心猪大肠

你设置为0后，你没有分配数组。

已注销384882

永卜言弃 发表于 2017-8-21 23:52
.版本 2
.支持库 iext2

老哥，你在顺便帮我解决一下。我意思是 如果我先输入10，然后出现10个 按钮 当我输入5个的时候  还有10个，怎么把前面10个全部清空然后在出现后面5个？类似超级列表框全部删除那种。

永卜言弃

正确的代码!!!
.版本 2
.支持库 iext2

.程序集 窗口程序集_启动窗口
.程序集变量 超级按钮, 超级按钮, , "0"

.子程序 _按钮1_被单击
.局部变量 数量, 整数型
.局部变量 i, 整数型
.局部变量 局_超级按钮, 超级按钮

数量 ＝ 到数值 (编辑框1.内容)
.计次循环首 (数量, i)
    复制窗口组件 (超级按钮1, 局_超级按钮)
    加入成员 (超级按钮, 局_超级按钮)
    局_超级按钮.标记 ＝ 到文本 (i)
    局_超级按钮.左边 ＝ 10 ＋ ((i － 1) ％ 10) × 80
    局_超级按钮.顶边 ＝ 8 ＋ ((i － 1) ＼ 10) × 50
    局_超级按钮.可视 ＝ 真
.计次循环尾 ()

永卜言弃

一起吹吹海风 发表于 2017-8-21 23:53
老哥，你在顺便帮我解决一下。我意思是 如果我先输入10，然后出现10个 按钮 当我输入5个的时候  还有10个 ...

需要销毁掉原来的.代码见下下楼.马上回复

伤心猪大肠

设置0.e (681.17 KB, 下载次数: 3)

2017-8-21 23:55 上传

点击文件名下载附件

MY寂寞的夜

[e=0]重定义数组 (按钮, 假, 数量)    这里很重要
计次循环首 (数量, i)
复制窗口组件 (按钮1, 按钮 )
按钮 .标记 ＝ 到文本 (i)
按钮 .左边 ＝ 10