易语言高级表格滚动条联动源码

系统结构:处理,延时器,CallWindowProcA,SetWindowLongA,SetScrollPos,GetScrollPos,GetScrollInfo,SetScrollInfo,timeKillEvent,timeSetEvent,

======启动窗口程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 处理
           |  |
           |  |------ 延时器
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   SetScrollPos
           |  |
           |  |---[dll]------   GetScrollPos
           |  |
           |  |---[dll]------   GetScrollInfo
           |  |
           |  |---[dll]------   SetScrollInfo
           |  |
           |  |---[dll]------   timeKillEvent
           |  |
           |  |---[dll]------   timeSetEvent

调用的DLL命令:

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

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针, , 仅易语言3.0支持

.DLL命令 SetScrollPos, 整数型, "user32", "SetScrollPos"
    .参数 hwnd, 整数型
    .参数 nBar, 整数型
    .参数 nPos, 整数型
    .参数 bRedraw, 整数型

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

.DLL命令 GetScrollInfo, 整数型
    .参数 hWnd, 整数型
    .参数 fnBar, 整数型, , 指定待找回滚动条参数的类型 SB_CTL SB_HORZ SB_VERT
    .参数 lpSCROLLINFO, SCROLLINFO

.DLL命令 SetScrollInfo, 整数型
    .参数 hWnd, 整数型
    .参数 fnBar, 整数型, , 指定待找回滚动条参数的类型 SB_CTL SB_HORZ SB_VERT
    .参数 lpSCROLLINFO, SCROLLINFO
    .参数 bRedraw, 整数型

.DLL命令 timeKillEvent, 整数型, "winmm.dll", "timeKillEvent"
    .参数 uID, 整数型

.DLL命令 timeSetEvent, 整数型, "winmm.dll", "timeSetEvent"
    .参数 uDelay, 整数型
    .参数 uResolution, 整数型
    .参数 lpFunction, 子程序指针
    .参数 dwUser, 整数型
    .参数 uFlags, 整数型