API超级列表框动态插入例程

info.cbSize ＝ 28 ' 使用前先定义大小
info.fMask ＝ 1 ' SIF_RANGE 取出滚动条最大位置最小位置
GetScrollInfo (超级列表框1.取窗口句柄 (), 1, info) ' 获取滚动条信息
.如果真 (GetScrollPos (超级列表框1.取窗口句柄 (), 1) ≥ info.nMax － 15) ' GetScrollPos取当前位置 info.nMax取最大位置（不知道为什么大15）
插入项目 ()

' 输出调试文本 (消息)
.如果真 (消息 ＝ 277 或 消息 ＝ 522) ' 522有可能是滚轮被滚动的消息
动态插入 ()
.如果真结束
返回 (呼叫窗口函数地址_ (默认窗口, 句柄, 消息, 参数1, 参数2))