超级列表框排序，无任何添加剂，纯算法实现

ouuu123 · 发表于 2013-9-10 02:11:41

很多人问我的超级列表框模块是怎么写的，现在发出来
这个是模块源码，用于超级列表框排序
此模块可以自定义需要排序的某一列，也可以定义按照什么方式排列

我感觉应该还有更好的办法，希望聪明的朋友给予改进并告知我

[e]
.版本 2
.支持库 iext

.子程序超级列表框排序, , 公开, 超级列表框的升序和降序排列 - 有梦软件 qq:3863765
.参数超级列表框, 超级列表框, , 超级列表框名称。如：超级列表框1
.参数根据某列排序, 整数型, , 要根据那个表列进行排序
.参数超级列表框列数, 整数型, , 超级列表框的总列数
.参数排序类型, 整数型, 可空, 升序为0降序为1，默认为升序排列 0
.局部变量 n1, 整数型
.局部变量外循环, 整数型
.局部变量内循环, 整数型
.局部变量排序储存, 文本型

.计次循环首 (超级列表框.取表项数 () － 1, 外循环)
.计次循环首 (超级列表框.取表项数 () －外循环, n1)
.如果 (排序类型＝ 0)
.如果真 (到数值 (超级列表框.取标题 (超级列表框.取表项数 () －外循环, 根据某列排序)) ＜到数值 (超级列表框.取标题 (超级列表框.取表项数 () －外循环－ n1, 根据某列排序)))
.计次循环首 (超级列表框列数, 内循环)
排序储存＝超级列表框.取标题 (超级列表框.取表项数 () －外循环, 内循环－ 1)
超级列表框.置标题 (超级列表框.取表项数 () －外循环, 内循环－ 1, 超级列表框.取标题 (超级列表框.取表项数 () －外循环－ n1, 内循环－ 1))
超级列表框.置标题 (超级列表框.取表项数 () －外循环－ n1, 内循环－ 1, 排序储存)
.计次循环尾 ()
.如果真结束

.否则
.如果真 (到数值 (超级列表框.取标题 (超级列表框.取表项数 () －外循环, 根据某列排序)) ＞到数值 (超级列表框.取标题 (超级列表框.取表项数 () －外循环－ n1, 根据某列排序)))
.计次循环首 (超级列表框列数, 内循环)
排序储存＝超级列表框.取标题 (超级列表框.取表项数 () －外循环, 内循环－ 1)
超级列表框.置标题 (超级列表框.取表项数 () －外循环, 内循环－ 1, 超级列表框.取标题 (超级列表框.取表项数 () －外循环－ n1, 内循环－ 1))
超级列表框.置标题 (超级列表框.取表项数 () －外循环－ n1, 内循环－ 1, 排序储存)
.计次循环尾 ()
.如果真结束

.如果结束

.计次循环尾 ()
.计次循环尾 ()

[/e]

委任为 · 发表于 2024-8-28 03:02:19

好东西啊

yang1900 · 发表于 2024-8-18 10:30:06

kankan................

ikusai · 发表于 2023-9-16 01:59:04

66666666666666666666666

宇智波·佐助 · 发表于 2013-9-18 12:29:43

界面有点乱了

F962506113 · 发表于 2013-9-15 11:05:27

这写法老生佩服！！！

ouuu123 · 发表于 2013-9-13 15:22:39

皮肤是俺DIY的

梦之情 · 发表于 2013-9-10 21:56:51

白十二发表于 2013-9-10 09:10
色盲一定不适合用这皮肤

对色盲来说啥皮肤都是浮云

Themoder · 发表于 2013-9-10 14:50:50

一直不懂超级列表框排序是做什么用的

sjcens · 发表于 2013-9-10 10:27:16

排序的啊不错

xiaohua008 · 发表于 2013-9-10 10:16:54

皮肤一定要弄的这么五颜六色吗

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

[易语言纯源码] 超级列表框排序，无任何添加剂，纯算法实现

本帖被以下淘专辑推荐: