高级表格滚动条完美控制易语言源码

高级表格滚动条完美控制易语言源码

@qkrdkwl

.版本 2
.支持库 eGrid
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 开关, 逻辑型
.程序集变量 hwnd, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型

高级表格1.行数 ＝ 101
.计次循环首 (100, i)
    高级表格1.置数据 (i, 2, 1, 到文本 (i))
.计次循环尾 ()
hwnd ＝ 高级表格1.取窗口句柄 ()

.子程序 _按钮1_被单击

按钮1.禁止 ＝ 真
开关 ＝ 真
启动线程 (&子程序1, , )


.子程序 子程序1
.局部变量 n, 整数型
.局部变量 tp2, 整数型
.局部变量 随机数, 整数型

n ＝ 50
.判断循环首 (开关 ＝ 真)
    ' ============数据层
    n ＝ 取随机数 (50, 60)
    ' ==========数据层 结束
    ' 调试输出 (n, tp2)
    ' ===控制层 ==========
    .如果 (tp2 ≠ n)
        .如果真 (tp2 ≠ 0)
            滚动条控制 (n － 10, 24)
            高级表格1.置单元格背景颜色 (tp2, 2, tp2, 2, #白色)  ' 橡皮胶
            高级表格1.置单元格背景颜色 (n, 2, n, 2, #红色)
        .如果真结束

        tp2 ＝ n
        延时 (100)
        到循环尾 ()
    .否则
        延时 (100)
    .如果结束

.判断循环尾 ()

.子程序 滚动条控制, , 公开
.参数 表项索引, 整数型
.参数 表格高度, 整数型
.局部变量 滚动条位置, 整数型

滚动条位置 ＝ GetScrollPos (hwnd, 1)
调试输出 (滚动条位置)
.如果真 (滚动条位置 ≠ 表格高度 × (表项索引 － 1))
    SetScrollPos (hwnd, 1, 表格高度 × 表项索引, 真)
    高级表格1.发送信息 (277, 0, 0)

.如果真结束