易语言快速导入超级列表框 分页排版例子

文本转字节集 分割后 快速导入超级列表框 分页排版例子

部分代码：

.版本 2
.支持库 EDataStructure
.支持库 iext

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 txtc, 文本型, , "0"
.局部变量 b, 节点
.局部变量 n, 整数型
.局部变量 c, 整数型
.局部变量 k, 整数型
.局部变量 txt, 文本型

.计次循环首 (超级列表框2.取表项数 (), n)
    txt ＝ 超级列表框2.取标题 (n － 1, 1)
    .如果真 (b.加入属性 (txt, 1) ＝ 假)
        b.取数值 (txt, c)
        b.修改属性 (txt, c ＋ 1)
    .如果真结束

.计次循环尾 ()
b.取全部属性名 (txtc)
超级列表框1.表项 ＝ {  }
.计次循环首 (取数组成员数 (txtc), n)
    k ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (k, 0, 到文本 (n))
    超级列表框1.置标题 (k, 1, txtc [n])
    b.取数值 (txtc [n], c)
    超级列表框1.置标题 (k, 2, 到文本 (c))
.计次循环尾 ()

.子程序 __启动窗口_创建完毕

_按钮初始化_被单击 ()

.子程序 _按钮初始化_被单击
.局部变量 n, 整数型
.局部变量 txtc, 文本型, , "0"
.局部变量 k, 整数型

置随机数种子 ()
超级列表框2.表项 ＝ {  }
txtc ＝ { “L1”, “L2”, “L3”, “L4”, “L5” }
.计次循环首 (取随机数 (1, 20), n)
    k ＝ 超级列表框2.插入表项 (, , , , , )
    超级列表框2.置标题 (k, 0, 到文本 (n))
    超级列表框2.置标题 (k, 1, txtc [取随机数 (1, 取数组成员数 (txtc))])
.计次循环尾 ()