超级列表框列内容排序 ！！！大家帮忙评价！！！

鲁凯啸

大家帮忙评价一下咯~~

.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 n, 整数型
.局部变量 m, 整数型
.计次循环首 (20, n)
    m ＝ 超级列表框3.插入表项 (, “文” ＋ 到文本 (字符 (取随机数 (60, 120))), , , , )
    超级列表框3.置标题 (m, 1, 到文本 (取随机数 (1000, 9999)))
.计次循环尾 ()
.子程序 _按钮1_被单击
超级列表框排序 (超级列表框3, 2, 列表框1)

.子程序 超级列表框排序
.参数 超级列表框, 超级列表框, , 需排列的列表框
.参数 被排列序号, 整数型, , 需排列的列 序号： 1~n
.参数 列表框, 列表框, , 临时需要
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 z, 整数型
.局部变量 m, 整数型
.局部变量 n, 整数型
.局部变量 信息组, 文本型, , "0"
.局部变量 id, 整数型

n ＝ 超级列表框.取表项数 ()
m ＝ 超级列表框.取列数 ()
.如果真 (被排列序号 ＞ m 或 被排列序号 ≤ 0)
    被排列序号 ＝ 1
.如果真结束
重定义数组 (信息组, 假, n, m ＋ 1)
.计次循环首 (n, x)
    .计次循环首 (m, y)
        信息组 [x] [y] ＝ 超级列表框.取标题 (x － 1, y － 1)
    .计次循环尾 ()
.计次循环尾 ()
列表框.清空 ()
列表框.自动排序 ＝ 真
.计次循环首 (n, x)
    列表框.加入项目 (信息组 [x] [到数值 (被排列序号)], x)
.计次循环尾 ()
超级列表框.全部删除 ()
.计次循环首 (n, x)
    z ＝ 列表框.取项目数值 (x － 1)
    id ＝ 超级列表框.插入表项 (, 信息组 [到数值 (z)] [到数值 (被排列序号)], , , , )
    .计次循环首 (m, y)
        超级列表框.置标题 (id, y － 1, 信息组 [到数值 (z)] [y])
    .计次循环尾 ()
.计次循环尾 ()

鲁凯啸

别介呀，给认真评价一下咯~~呜呜  都没人看？

冰点

{:3_244:}主要是现在没怎么用，下载收藏了，嘿嘿

宇智波·佐助

值得关注下

烤鸡科技

本以为源码非非常常真真切切仔仔细细复复杂杂深深奥奥，搞的我期期待待忐忐忑忑神神秘秘抓抓狂狂辛辛苦苦，谁知道婆婆妈妈零零碎碎简简单单啰啰嗦嗦平平淡淡。——你不是要评价么。


..........不过这个倒是一个思路。

zjzkl

下来学习一下 谢谢分享

linyuntai

看看，怎样

askayao

前面下载怎么没了

xiaohu159

学习一下{:3_245:}

我的OK邦

撒旦{:3_227:} 大撒旦倒萨的