易语言设置滚动条源码

系统结构:建立滚动框,回调函数,设置滚动条,SetWindowLongA,CallWindowProcA,ShowScrollBar,设置滚动条信息_,取滚动条信息_,取滚动条位置_,设置滚动条位置_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _建立滚动条按钮_被单击
           |  |
           |  |------ 建立滚动框
           |  |
           |  |------ 回调函数
           |  |
           |  |------ _设置滚动条按钮_被单击
           |  |
           |  |------ 设置滚动条
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   ShowScrollBar
           |  |
           |  |---[dll]------   设置滚动条信息_
           |  |
           |  |---[dll]------   取滚动条信息_
           |  |
           |  |---[dll]------   取滚动条位置_
           |  |
           |  |---[dll]------   设置滚动条位置_

调用的DLL命令:

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA", 公开
    .参数 hWnd
    .参数 nIndex
    .参数 dwNewLong

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA", 公开
    .参数 lpPrevWndFunc
    .参数 hWnd
    .参数 Msg
    .参数 wParam
    .参数 lParam

.DLL命令 ShowScrollBar, 整数型, "user32.dll", "ShowScrollBar", , ShowScrollBar
    .参数 窗口句柄, 整数型, , hwnd
    .参数 滚动条标志, 整数型, , wBar
    .参数 显示标志, 整数型, , bShow

.DLL命令 设置滚动条信息_, 整数型, , "SetScrollInfo", , 返回当前平坦滚动条位置
    .参数 窗口句柄, 整数型, , hWnd
    .参数 平坦滚动条类型, 整数型, , fnBar
    .参数 平坦滚动条结构, 滚动信息_, , lpsi
    .参数 是否重画, 逻辑型, , fRedraw

.DLL命令 取滚动条信息_, 逻辑型, , "GetScrollInfo", , 执行成功返回非0
    .参数 窗口句柄, 整数型, , hWnd
    .参数 平坦滚动条类型, 整数型, , fnBar
    .参数 平坦滚动条结构, 滚动信息_, , lpsi

.DLL命令 取滚动条位置_, 整数型, , "GetScrollPos", , 返回平坦滚动条当前位置
    .参数 窗口句柄, 整数型, , hWnd
    .参数 平坦滚动条类型, 整数型, , code

.DLL命令 设置滚动条位置_, 整数型, , "SetScrollPos", , 返回上一次平坦滚动条位置
    .参数 窗口句柄, 整数型, , hWnd
    .参数 平坦滚动条类型, 整数型, , code
    .参数 位置, 整数型, , nPos
    .参数 是否重画, 逻辑型, , fRedraw