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

易语言 2020-07-23 00:33:42

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

.子程序 动态插入
.局部变量 info, SCROLLINFO

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


.子程序 滚动条事件, 整数型
.参数 句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型

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