.版本 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) .如果真结束