超级列表框分页显示例程

超级列表框分页显示例程如果开发者对于本文件有需要的可以参考，懒得做界面和写示例数据源，直接用了界面和txt文档。
A_数据集 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\失败订单.txt”)), #换行符, )
.变量循环首 (取数组成员数 (A_数据集), 1, -1, n) ' 剔除空成员，用于规避txt文本中存在的空行情况
.如果真 (A_数据集 [n] ＝ “”)
删除成员 (A_数据集, n, )
.如果真结束
.变量循环尾 ()
A_总数 ＝ 取数组成员数 (A_数据集) ' 总共的数据条数
A_每页数量 ＝ 13 ' 设置每页要显示的数据条数
A_最大页数 ＝ 选择 (A_总数 ％ A_每页数量 ＝ 0, A_总数 ÷ A_每页数量, A_总数 ÷ A_每页数量 ＋ 1) ' 根据总数能否按每页显示数量平均分配计算最大页数
标签_总数.标题 ＝ “共： ” ＋ 到文本 (A_总数) ＋ “ 条数据”
超列填充数据 () ' 初始页码为标签预设标题