易语言 当超级列表框选择了多个表项时如何一次删除？ 后追10分

Question

超级列表框的 单一选择=假
当单击按钮1时删除用虚线框框住的多个表项
求代码。

Answer 1

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 被选择表项, 整数型, , "0"
.局部变量 已选择表项数, 整数型
.局部变量 n, 整数型

已选择表项数 ＝ 超级列表框1.取已选择表项数 ()
被选择表项 ＝ 超级列表框1.取被选择表项 ()
.计次循环首 (已选择表项数, n)
超级列表框1.删除表项 (被选择表项 [n])
.计次循环尾 ()

Answer 2

.版本 2
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 数组, 整数型, , "0"
.局部变量 n, 整数型
.局部变量 被选中个数, 整数型
数组 ＝ 超级列表框1.取被选择表项 ()
被选中个数 ＝ 取数组成员数 (数组)
.计次循环首 (取数组成员数 (数组), n)
' 删除时要从最后开始删，不然表项索引会变，导致删除错误
超级列表框1.删除表项 (数组 [被选中个数 ＋ 1 － n])
.计次循环尾 ()

Answer 3

.版本 2
.支持库 iext

.子程序 _选中删除_被选择 ‘我用的菜单方式
.局部变量 计次, 整数型
.局部变量 被选择项, 整数型, , "0"

被选择项 ＝ 超级列表框1.取被选择表项 ()
.变量循环首 (取数组成员数 (被选择项), 1, -1, 计次)
超级列表框1.删除表项 (被选择项 [计次])
.变量循环尾 ()

Answer 4

在里面加入一句话
n=1,使每次都是从第一个位置开始筛选

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 被选择表项, 整数型, , "0"
.局部变量 已选择表项数, 整数型
.局部变量 n, 整数型

已选择表项数 ＝ 超级列表框1.取已选择表项数 ()
被选择表项 ＝ 超级列表框1.取被选择表项 ()
.计次循环首 (已选择表项数, n)
n=1
超级列表框1.删除表项 (被选择表项 [n])
.计次循环尾 ()