易语言高级表格的多选、单选源码

.版本 2
.支持库 eGrid

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

表格初始化 ()


.子程序 表格初始化

高级表格1.置数据 (0, 0, #表格常量.文本型, “选择整行”)
高级表格1.置数据 (0, 1, #表格常量.文本型, “名称”)
高级表格1.置数据 (0, 2, #表格常量.文本型, “开始”)
高级表格1.置数据 (0, 3, #表格常量.文本型, “结束”)
高级表格1.置数据 (0, 4, #表格常量.文本型, “总数”)
高级表格1.置列类型 (0, #表格常量.选择型)
高级表格1.置列类型 (4, #表格常量.列表型)
高级表格1.置列宽 (0, 60)
高级表格1.置列宽 (1, 120)
高级表格1.置列宽 (2, 70)
高级表格1.置列宽 (3, 70)
高级表格1.置列宽 (4, 60)
高级表格1.置对齐方式 (0, 0, 0, 5, 2)

表格初始化背景色及下拉列表项 ()

.子程序 表格初始化背景色及下拉列表项, , , 单独做成子程序是方便表格的增删时调用
.局部变量 i, 整数型

' 表格第0列初始背景色-----模拟表头（不用单击表头的事件，是因为反应太慢）
.变量循环首 (1, 高级表格1.行数 － 1, 1, i)
    高级表格1.置单元格背景颜色 (1, 0, i, 0, #银白)
.变量循环尾 ()
' 下拉列表项的添加
.变量循环首 (1, 30, 1, i)
    高级表格1.插入下拉列表项 (4, 到文本 (i))
.变量循环尾 ()



.子程序 _高级表格1_鼠标左键被放开, 逻辑型, , 可单选、多选，单击表头事件反应太慢！
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 取行号, 整数型

' 关键是-----高级表格1.取数据 (取行号, 0)------这句取的是勾选后的状态
.如果真 (高级表格1.取光标列号 () ＝ 0)
    取行号 ＝ 高级表格1.取光标行号 ()
    .如果 (高级表格1.取数据 (取行号, 0) ＝ 假)
        高级表格1.置单元格背景颜色 (取行号, 1, 取行号, 5, #嫩黄)
    .否则
        高级表格1.置单元格背景颜色 (取行号, 1, 取行号, 5, #白色)
    .如果结束

.如果真结束

' 单选、多选之后的事件，请自行添加修改

@总是学不会