易语言超级列表框虚表化例程附ScrollBar模块

易语言超级列表框虚表化源码是易语言超级列表框应用例程。

超级列表框1.移动 (, , 宽度 － 50, 高度 － 140)
超级列表框1.全部删除 ()
n ＝ SendMessage整 (超级列表框1.取窗口句柄 (), 4136, 0, 0)
.如果真 (n ＞ 记录数)
n ＝ 记录数
.如果真结束

.计次循环首 (n, )
超级列表框1.插入表项 (, , , , , )
.计次循环尾 ()
n ＝ 纵向滚动条.取滚动条位置 ()
.如果真 (n ＞ 记录数 － SendMessage整 (超级列表框1.取窗口句柄 (), 4136, 0, 0) ＋ 1)
n ＝ 记录数 － SendMessage整 (超级列表框1.取窗口句柄 (), 4136, 0, 0) ＋ 1
.如果真结束
.如果真 (n ＜ 1)
n ＝ 1
.如果真结束
纵向滚动条.重置滚动条 (, n, SendMessage整 (超级列表框1.取窗口句柄 (), 4136, 0, 0), 记录数)
填充列表 (纵向滚动条.取滚动条位置 ())

加入成员 (数据记录, 取数组成员数 (数据记录) ＋ 1)
加入成员 (检查框, 0)
记录数 ＝ 记录数 ＋ 1
n ＝ 记录数 － SendMessage整 (超级列表框1.取窗口句柄 (), 4136, 0, 0) ＋ 1
.如果真 (n ＜ 1)
n ＝ 1
.如果真结束
纵向滚动条.重置滚动条 (, n, SendMessage整 (超级列表框1.取窗口句柄 (), 4136, 0, 0), 记录数)
填充列表 (纵向滚动条.取滚动条位置 ())
超级列表框1.现行选中项 ＝ 超级列表框1.取表项数 () － 1
标签1.标题 ＝ “总记录数：” ＋ 到文本 (记录数)