请问如何删除超级列表框内被选中的项目，谢谢

笔记本专卖

其实昨晚上就已经找到答案了，不过很复杂。今天{:3_232:}特地来看看千年的例程，有没有简洁的

笔记本专卖

昨晚找的很辛苦。我把它源码发上来，供需要的参考一下
{:3_230:}
调用该模块是在一句话

删除选中状态 (超级列表框1)

下面是模块源码
[e].版本 2
.支持库 iext

.子程序 删除选中状态, , , 取当前状态图片被选中
.参数 超级列表框, 超级列表框

.计次循环首 (超级列表框.取表项数 (), n)
    .判断开始 (超级列表框.取当前状态图片 (n － 1) ＝ 1)
        超级列表框.删除表项 (n － 1)
        删除选中状态 (超级列表框)
    .默认

    .判断结束

.计次循环尾 ()


.子程序 取选中状态内容, , , 取当前状态图片被选中
.参数 超级列表框, 超级列表框
.参数 超级列表框1, 超级列表框
.局部变量 表项数, 整数型
.局部变量 被选择表项, 整数型, , "0"
.局部变量 列数, 整数型
.局部变量 选择数, 整数型
.局部变量 索引, 整数型

.计次循环首 (超级列表框.取表项数 (), 表项数)
    .判断开始 (超级列表框.取当前状态图片 (表项数 － 1) ＝ 1)
        被选择表项 ＝ 超级列表框.取被选择表项 ()
        .如果真 (取数组成员数 (被选择表项) ＜ 1)
            返回 ()
        .如果真结束
        .计次循环首 (取数组成员数 (被选择表项), 选择数)
            索引 ＝ 超级列表框1.插入表项 (, 超级列表框.取标题 (被选择表项 [选择数], 列数 － 1), , , , )
            .变量循环首 (1, 超级列表框.取列数 (), 1, 列数)
                超级列表框1.置标题 (索引, 列数 － 1, 超级列表框.取标题 (被选择表项 [选择数], 列数 － 1))
            .变量循环尾 ()
        .计次循环尾 ()
    .默认

    .判断结束

.计次循环尾 ()
[/e]