易语言超级列表框使用 易语言列表框使用分享

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


.程序集 窗口程序集_启动窗口


.子程序 _按钮1_被单击
.局部变量 索引, 整数型
.局部变量 已经循环次数, 整数型
.局部变量 将要循环次数, 整数型


将要循环次数 ＝ 到整数 (编辑框1.内容)  ' 这个循环次数需要自己手动填写


.计次循环首 (将要循环次数, 已经循环次数)


    索引 ＝ 超级列表框1.插入表项 (, , , , , )  ' 插入表项就是插入行，下面的置标题需要用到表项索引，现有行后有索引
    调试输出 (已经循环次数)
    编辑框_ID.内容 ＝ 到文本 (取随机数 (1, 1000))  ' 懒，不想打字，就弄随机数了，【1,1000】的意思是从1-1000取随机数，就是保证是4位数以下
    编辑框_姓名.内容 ＝ 到文本 (取随机数 (1, 1000))
    编辑框_性别.内容 ＝ 到文本 (取随机数 (1, 1000))
    编辑框_年龄.内容 ＝ 到文本 (取随机数 (1, 1000))
    编辑框_SFZ.内容 ＝ 到文本 (取随机数 (1, 1000))
    编辑框_备注.内容 ＝ 到文本 (取随机数 (1, 1000))


    超级列表框1.置标题 (索引, 0, 编辑框_ID.内容)  ' 索引是插入行，【0】是第一列，即ID列，最后一列是备注列【5】
    超级列表框1.置标题 (索引, 1, 编辑框_姓名.内容)
    超级列表框1.置标题 (索引, 2, 编辑框_性别.内容)
    超级列表框1.置标题 (索引, 3, 编辑框_年龄.内容)
    超级列表框1.置标题 (索引, 4, 编辑框_SFZ.内容)
    超级列表框1.置标题 (索引, 5, 编辑框_备注.内容)
.计次循环尾 ()