分享一个超级列表框多个选中删除算法

超级菜鸟王

分享下 刚刚研究的  希望对各位基友 有所帮助
不知道 我这样写法是否合理 请指教 嘿嘿 求好基友

  

子程序名	返回值类型	公开	备 注
超级列表框_删除多个选中
参数名	类 型	参考	可空	数组	备 注
参_超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
I	整数型
局_索引	整数型

如果真 (取反 (是否已创建 (参_超级列表框)))  ' 如果窗口没创建返回
返回 ()
计次循环首 (参_超级列表框.取表项数 (), I)
局_索引 ＝ 参_超级列表框.取表项数 () － I  ' 倒着取项状态
如果真 (参_超级列表框.是否被选择 (局_索引))  ' 如果是被选中的 表示真 下面就可以删除指定索引的项  删除后 应为他项的总数改变了 那么我用了递归删除方法 只要为真 就会无限删除下去  感觉用起来还行
参_超级列表框.删除表项 (局_索引)
超级列表框_删除多个选中 (参_超级列表框)
处理事件 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_删除多个选中<br /> .参数 参_超级列表框, 超级列表框<br /> .局部变量 I, 整数型<br /> .局部变量 局_索引, 整数型<br /> <br /> .如果真 (取反 (是否已创建 (参_超级列表框)))  ' 如果窗口没创建返回<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (参_超级列表框.取表项数 (), I)<br />     局_索引 ＝ 参_超级列表框.取表项数 () － I  ' 倒着取项状态<br />     .如果真 (参_超级列表框.是否被选择 (局_索引))  ' 如果是被选中的 表示真 下面就可以删除指定索引的项  删除后 应为他项的总数改变了 那么我用了递归删除方法 只要为真 就会无限删除下去  感觉用起来还行<br />         参_超级列表框.删除表项 (局_索引)<br />         超级列表框_删除多个选中 (参_超级列表框)<br />     .如果真结束<br />     处理事件 ()

小白马哒哒

谢谢分享

我叫落年

羡慕精币多的

冰唇

没钱顶下

1099250837

我媳妇胸真大

感谢分享

超级菜鸟王

倪少 发表于 2016-11-24 20:28
支持楼主

谢谢支持 嘿嘿

千玄

支持分享

倪少

支持楼主

超级菜鸟王

.版本 2 .支持库 iext  .子程序 超级列表框_删除多个选中 .参数 参_超级列表框, 超级列表框 .局部变量 I, 整数型 .局部变量 局_索引, 整数型  .如果真 (取反 (是否已创建 (参_超级列表框)))  ' 如果窗口没创建返回     返回 () .如果真结束 .计次循环首 (参_超级列表框.取表项数 (), I)     局_索引 ＝ 参_超级列表框.取表项数 () － I  ' 倒着取项状态     .如果真 (参_超级列表框.是否被选择 (局_索引))  ' 如果是被选中的 表示真 下面就可以删除指定索引的项  删除后 应为他项的总数改变了 那么我用了递归删除方法 只要为真 就会无限删除下去  感觉用起来还行         参_超级列表框.删除表项 (局_索引)         超级列表框_删除多个选中 (参_超级列表框)     .如果真结束     处理事件 ()