易语言如何点击按钮把超级列表框数量这每行小于编辑框的内容删除啊求代码

如题所述

你的问题是每行小于编辑框的内容删除,可图片中显示的是数量大于等于编辑框的内容,按图片要求给你代码,有需要自己改吧.

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 索引, 整数型
.局部变量 N, 整数型

置随机数种子 (1000000)
.计次循环首 (20, N)
    索引 = 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 到文本 (取随机数 (1, 1000000)))
    超级列表框1.置标题 (索引, 1, 到文本 (N))
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 N, 整数型
.局部变量 N1, 整数型

.计次循环首 (超级列表框1.取表项数 (), N)
    .如果真 (到数值 (超级列表框1.取标题 (N - 1, 1)) ≥ 到数值 (编辑框1.内容))
        超级列表框1.选择表项 (N - 1)
    .如果真结束

.计次循环尾 ()
.如果真 (超级列表框1.取已选择表项数 () = 0)
    返回 ()
.如果真结束

.计次循环首 (超级列表框1.取已选择表项数 (), N1)
    超级列表框1.删除表项 (超级列表框1.现行选中项)
.计次循环尾 ()

温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-12-31
没分,谁愿意给你写
相似回答