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

鲁凯啸 · 发表于 2012-2-22 15:48:27

本帖最后由鲁凯啸于 2012-2-22 15:53 编辑

大家帮忙评价一下咯~~

.版本 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])
.计次循环尾 ()
.计次循环尾 ()

xcw · 发表于 2021-11-2 14:32:23

支持开源~！感谢分享

jacksonwen · 发表于 2019-8-3 11:15:23

感谢楼主分享

凌波微步 · 发表于 2018-9-11 13:01:50

学习一下感谢了

wolf321 · 发表于 2018-3-12 16:05:11

dddddddddddddddddddddddd

丹水剑客 · 发表于 2018-1-18 15:09:14

下载来，学习学习

a6711653 · 发表于 2017-10-22 19:36:36

支持

yeye4001 · 发表于 2017-9-15 20:52:55

学习学习，谢谢分享

zbr0797 · 发表于 2017-8-16 22:31:51

不错，下来看看。。。。。。。。。。。

拼命的微笑 · 发表于 2017-7-17 22:15:33

好东西先手下

st黄 · 发表于 2017-3-8 16:36:47

谢谢分享

		自动登录	找回密码
密码			注册

[易语言纯源码] 超级列表框列内容排序！！！大家帮忙评价！！！

评分

[易语言纯源码] 超级列表框列内容排序 ！！！大家帮忙评价！！！

评分

[易语言纯源码] 超级列表框列内容排序！！！大家帮忙评价！！！