易语言超级列表框显示百万记录源码

系统结构:滚动条位置改变,API_SetScrollInfo,API_SetScrollRange,API_GetScrollRange,调用窗口过程,设置窗口属性,API_GetScrollInfo,发送消息1,API_ShowScrollBar,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 滚动条位置改变
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮_生成100W条记录的数据库_被单击
           |  |
           |  |------ _按钮_显示数据库_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_SetScrollInfo
           |  |
           |  |---[dll]------   API_SetScrollRange
           |  |
           |  |---[dll]------   API_GetScrollRange
           |  |
           |  |---[dll]------   调用窗口过程
           |  |
           |  |---[dll]------   设置窗口属性
           |  |
           |  |---[dll]------   API_GetScrollInfo
           |  |
           |  |---[dll]------   发送消息1
           |  |
           |  |---[dll]------   API_ShowScrollBar

调用的DLL命令:

.DLL命令 API_SetScrollInfo, 整数型, "user32", "SetScrollInfo", , 返回滚动条的当前位置
    .参数 句柄, 整数型
    .参数 n, 整数型
    .参数 lpcScrollInfo, SCROLLINFO
    .参数 重画, 逻辑型

.DLL命令 API_SetScrollRange, 整数型, "user32", "SetScrollRange", , 设置滚动条最大和最小位置
    .参数 句柄, 整数型
    .参数 类型, 整数型, , SB_CTL SB_HORZ SB_VERT 
    .参数 最小位置, 整数型
    .参数 最大位置, 整数型
    .参数 重画, 逻辑型

.DLL命令 API_GetScrollRange, 整数型, "user32", "GetScrollRange", , 返回滑块运动范围
    .参数 hwnd, 整数型
    .参数 nBar, 整数型
    .参数 lpMinPos, 整数型
    .参数 lpMaxPos, 整数型

.DLL命令 调用窗口过程, 整数型, , "CallWindowProcA"
    .参数 子程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息号, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 设置窗口属性, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 类型, 整数型
    .参数 新参数, 子程序指针

.DLL命令 API_GetScrollInfo, 整数型, "user32", "GetScrollInfo"
    .参数 hWnd, 整数型
    .参数 n, 整数型
    .参数 lpScrollInfo, SCROLLINFO, 传址

.DLL命令 发送消息1, 整数型, "user32.dll", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, LVITEM, , 类型为通用型，请在调试时调整其类型

.DLL命令 API_ShowScrollBar, 整数型, "user32", "ShowScrollBar", , 显示滚动条
    .参数 hwnd, 整数型
    .参数 wBar, 整数型
    .参数 bShow, 整数型