易语言超级列表框动态插入源码

系统结构:插入项目,动态插入,滚动条事件,设置窗口信息_,呼叫窗口函数地址_,GetScrollPos,GetScrollInfo,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 插入项目
           |  |
           |  |------ 动态插入
           |  |
           |  |------ 滚动条事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   呼叫窗口函数地址_
           |  |
           |  |---[dll]------   GetScrollPos
           |  |
           |  |---[dll]------   GetScrollInfo

调用的DLL命令:

.DLL命令 设置窗口信息_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针, , 仅易语言3.0支持

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA"
    .参数 程序指针, 整数型
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 GetScrollPos, 整数型, "user32.dll", "GetScrollPos"
    .参数 hwnd, 整数型
    .参数 nBar, 整数型

.DLL命令 GetScrollInfo, 整数型, "user32.dll", "GetScrollInfo"
    .参数 hWnd, 整数型
    .参数 fnBar, 整数型
    .参数 lpsi, SCROLLINFO, 传址