外部超级列表框-置单元格颜色

cnfull

外部超级列表框-置单元格颜色 模块源码

  

窗口程序集名	保 留	保 留	备 注
程序集_超表颜色
变量名	类 型	数组	备 注
m_默认前景色	整数型
m_默认背景色	整数型
m_进入许可证	线程许可证
m_clistHwnd	整数型
m_OrWindowAddress	整数型
m_ColorList	ColorData	0
m_pHwnd	整数型
m_list	外部超级列表框

子程序名	返回值类型	公开	备 注
超表颜色_初始化
参数名	类 型	参考	可空	数组	备 注
pHwnd	整数型				父窗口句柄，一般为主窗口句柄
cListHwnd	整数型
前景色	整数型				默认：黑色
背景色	整数型				默认：白色

变量名	类 型	静态	数组	备 注
行	整数型
列	整数型
col	整数型
row	整数型

m_进入许可证 ＝ 线程_创建许可证 ()
如果真 (是否为空 (前景色))
前景色 ＝ #白色
如果真 (是否为空 (背景色))
背景色 ＝ #黑色
m_默认前景色 ＝ 前景色
m_默认背景色 ＝ 背景色
m_clistHwnd ＝ cListHwnd
m_pHwnd ＝ pHwnd
m_list.初始化 (m_clistHwnd, , )
m_OrWindowAddress ＝ SetWindowLong (m_pHwnd, -4, 到整数 (&WndProc))
row ＝ m_list.取表项数 ()
col ＝ m_list.取列数 ()
如果真 (row ≤ 0)
row ＝ 1
如果真 (col ≤ 0)
col ＝ 1
重定义数组 (m_ColorList, 假, row, col)
计次循环首 (取数组下标 (m_ColorList, 1), 行)
计次循环首 (取数组下标 (m_ColorList, 2), 列)
m_ColorList [行] [列].Color ＝ m_默认前景色
m_ColorList [行] [列].Backgroud ＝ m_默认背景色
' 调试输出 (行, 列, m_ColorList [行] [列].Color, m_ColorList [行] [列].Backgroud)
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
超表颜色_置单元格颜色
参数名	类 型	参考	可空	数组	备 注
起始行	整数型				从0开始
起始列	整数型				从0开始
终止行	整数型
终止列	整数型
前景色	整数型
背景色	整数型

变量名	类 型	静态	数组	备 注
x	整数型
行	整数型
列	整数型

如果真 (是否为空 (前景色) 且 是否为空 (背景色))
返回 ()
如果真 (起始行 ＜ 0)
起始行 ＝ 0
如果真 (终止行 ＞ 取数组下标 (m_ColorList, 1) － 1)
终止行 ＝ 取数组下标 (m_ColorList, 1) － 1
如果真 (终止行 ＜ 起始行)
x ＝ 起始行
起始行 ＝ 终止行
终止行 ＝ x
如果真 (起始列 ＜ 0)
起始列 ＝ 0
如果真 (终止列 ＞ 取数组下标 (m_ColorList, 2) － 1)
终止列 ＝ 取数组下标 (m_ColorList, 2) － 1
如果真 (终止列 ＜ 起始列)
x ＝ 起始列
起始列 ＝ 终止列
终止列 ＝ x
变量循环首 (起始行 ＋ 1, 终止行 ＋ 1, 1, 行)
变量循环首 (起始列 ＋ 1, 终止列 ＋ 1, 1, 列)
线程_进入许可区 (m_进入许可证)
如果真 (是否为空 (前景色) ＝ 假)
m_ColorList [行] [列].Color ＝ 前景色
如果真 (是否为空 (背景色) ＝ 假)
m_ColorList [行] [列].Backgroud ＝ 背景色
线程_退出许可区 (m_进入许可证)
变量循环尾 ()
变量循环尾 ()
m_list.刷新显示 ()

子程序名	返回值类型	公开	备 注
超表颜色_内存释放

线程_删除许可证 (m_进入许可证)
SetWindowLong (m_pHwnd, -4, m_OrWindowAddress)  ' 恢复HOOK

子程序名	返回值类型	公开	备 注
超表颜色_删除表项
参数名	类 型	参考	可空	数组	备 注
表项索引	整数型				用于指定列表框中的某一项目，索引值从 0 开始。

m_list.删除表项 (表项索引)
如果真 (m_list.取表项数 () ＞ 0)
颜色数组_删除行 (表项索引 ＋ 1)

子程序名	返回值类型	公开	备 注
超表颜色_全部删除

m_list.全部删除 ()
线程_进入许可区 (m_进入许可证)
重定义数组 (m_ColorList, 假, 1, 1)
线程_退出许可区 (m_进入许可证)

子程序名	返回值类型	公开	备 注
超表颜色_删除列			删除报表型列表框中指定位置处的列。
参数名	类 型	参考	可空	数组	备 注
列索引	整数型				用作指定报表型列表框中项目所处的列，索引值从 0 开始。

m_list.删除列 (列索引)
如果真 (m_list.取列数 () ＞ 0)
颜色数组_删除列 (列索引 ＋ 1)

子程序名	返回值类型	公开	备 注
超表颜色_插入表项	整数型
参数名	类 型	参考	可空	数组	备 注
插入位置	整数型				可以被省略。指定新表项插入时的位置索引，索引值从 0 开始。如果提供 -1 ，则插入到列表框的尾部。如果本参数被省略，默认值为 -1 。
标题	文本型				可以被省略。本参数指定表项的标题文本。如果被省略，默认值为空文本。
图片索引	整数型				可以被省略。图片索引用于指定“图片组”属性中的某张图片。索引值从 0 开始，-1 表示无图片。如果本参数被省略，默认值为 -1 。
状态图片索引	整数型				可以被省略。状态图片索引用于指定“状态图片组”属性中的某张图片。索引值从 0 开始，-1 表示无图片。如果本参数被省略，默认值为 -1 。
缩进数目	整数型				可以被省略。“缩进数目”仅在报表型列表框才有效，用作指定显示时在表项首部增加的空白数。如果本参数被省略，默认值为 0 。
表项数值	整数型				可以被省略。该数值与指定表项相关联。如果本参数被省略，默认值为 0 。

变量名	类 型	静态	数组	备 注
返回值	整数型
行	整数型
列	整数型

如果真 (是否为空 (插入位置))
插入位置 ＝ -1

返回值 ＝ m_list.插入表项 (插入位置, 标题, 图片索引, 状态图片索引, 缩进数目, 表项数值)
如果真 (m_list.取表项数 () ＞ 1)
如果 (是否为空 (插入位置) 或 插入位置 ＜ 0)
颜色数组_添加行 ()
颜色数组_插入行 (插入位置)

返回 (返回值)

子程序名	返回值类型	公开	备 注
超表颜色_插入列	整数型		在报表型列表框中指定位置插入新的列，成功返回新列的位置索引，失败返回 -1 。
参数名	类 型	参考	可空	数组	备 注
插入位置	整数型				可以被省略。指定新列插入时的位置索引，索引值从 0 开始。如果提供 -1 ，则插入到尾部。如果本参数被省略，默认值为 -1 。
标题	文本型				可以被省略。本参数指定报表列的标题文本。如果被省略，默认值为空文本。
列宽	整数型				可以被省略。本参数指定报表列的宽度，单位为像素。如果被省略，默认值为 50 。
对齐方式	整数型				可以被省略。参数可以为以下常量之一： 0：0； 1：1； 2：2。如果本参数被省略，默认值为“0”。
图片索引	整数型				可以被省略。图片索引用于指定“表头图片组”属性中的某张图片。索引值从 0 开始，-1 表示无图片。如果本参数被省略，默认值为 -1 。
图片是否居右	逻辑型				可以被省略。指定图片是否显示在右边，如果本参数被省略，默认值为假。

变量名	类 型	静态	数组	备 注
返回值	整数型

返回值 ＝ m_list.插入列 (插入位置, 标题, 列宽, 对齐方式, 图片索引, 图片是否居右)
如果真 (m_list.取列数 () ＞ 1)
如果 (是否为空 (插入位置) 或 插入位置 ＜ 0)
颜色数组_添加列 ()
颜色数组_插入列 (插入位置)

返回 (返回值)

子程序名	返回值类型	公开	备 注
颜色数组_插入行
参数名	类 型	参考	可空	数组	备 注
插入位置	整数型				行下标,从1开始

变量名	类 型	静态	数组	备 注
newRows	整数型
i	整数型
NewColorList	ColorData		0
j	整数型
a	整数型
是否顺序	逻辑型

如果真 (取反 (插入位置 ≥ 1 且 插入位置 ≤ 取数组下标 (m_ColorList, 1)))
返回 ()
newRows ＝ 取数组下标 (m_ColorList, 1) ＋ 1
重定义数组 (NewColorList, 假, newRows, 取数组下标 (m_ColorList, 2))
计次循环首 (取数组下标 (m_ColorList, 1), i)
如果 (i ＝ 插入位置)
计次循环首 (取数组下标 (m_ColorList, 2), j)
NewColorList [i] [j].Color ＝ m_默认前景色
NewColorList [i] [j].Backgroud ＝ m_默认背景色
计次循环尾 ()
计次循环首 (取数组下标 (m_ColorList, 2), j)
NewColorList [i] [j].Color ＝ m_ColorList [i] [j].Color
NewColorList [i] [j].Backgroud ＝ m_ColorList [i] [j].Backgroud
计次循环尾 ()

计次循环尾 ()
线程_进入许可区 (m_进入许可证)
重定义数组 (m_ColorList, 假, 取数组下标 (NewColorList, 1), 取数组下标 (NewColorList, 2))
计次循环首 (取数组下标 (NewColorList, 1), i)
计次循环首 (取数组下标 (NewColorList, 2), j)
m_ColorList [i] [j].Color ＝ NewColorList [i] [j].Color
m_ColorList [i] [j].Backgroud ＝ NewColorList [i] [j].Backgroud
计次循环尾 ()
计次循环尾 ()
线程_退出许可区 (m_进入许可证)

子程序名	返回值类型	公开	备 注
颜色数组_插入列
参数名	类 型	参考	可空	数组	备 注
插入位置	整数型				列下标,从1开始

变量名	类 型	静态	数组	备 注
newCols	整数型
i	整数型
NewColorList	ColorData		0
j	整数型
a	整数型
是否顺序	逻辑型

如果真 (取反 (插入位置 ≥ 1 且 插入位置 ≤ 取数组下标 (m_ColorList, 2)))
返回 ()
newCols ＝ 取数组下标 (m_ColorList, 2) ＋ 1
重定义数组 (NewColorList, 假, 取数组下标 (m_ColorList, 1), newCols)
计次循环首 (取数组下标 (NewColorList, 2), j)
如果 (j ＝ 插入位置)
计次循环首 (取数组下标 (NewColorList, 1), i)
NewColorList [i] [j].Color ＝ m_默认前景色
NewColorList [i] [j].Backgroud ＝ m_默认背景色
计次循环尾 ()
计次循环首 (取数组下标 (NewColorList, 1), i)
NewColorList [i] [j].Color ＝ m_ColorList [i] [j － 1].Color
NewColorList [i] [j].Backgroud ＝ m_ColorList [i] [j － 1].Backgroud
计次循环尾 ()

计次循环尾 ()
线程_进入许可区 (m_进入许可证)
重定义数组 (m_ColorList, 假, 取数组下标 (NewColorList, 1), 取数组下标 (NewColorList, 2))
计次循环首 (取数组下标 (NewColorList, 1), i)
计次循环首 (取数组下标 (NewColorList, 2), j)
m_ColorList [i] [j].Color ＝ NewColorList [i] [j].Color
m_ColorList [i] [j].Backgroud ＝ NewColorList [i] [j].Backgroud
计次循环尾 ()
计次循环尾 ()
线程_退出许可区 (m_进入许可证)

子程序名	返回值类型	公开	备 注
颜色数组_添加行

变量名	类 型	静态	数组	备 注
newRows	整数型
Col	整数型

newRows ＝ 取数组下标 (m_ColorList, 1) ＋ 1
线程_进入许可区 (m_进入许可证)
重定义数组 (m_ColorList, 真, newRows, 取数组下标 (m_ColorList, 2))
计次循环首 (取数组下标 (m_ColorList, 2), Col)
m_ColorList [newRows] [Col].Color ＝ m_默认前景色
m_ColorList [newRows] [Col].Backgroud ＝ m_默认背景色
计次循环尾 ()
线程_退出许可区 (m_进入许可证)

子程序名	返回值类型	公开	备 注
颜色数组_添加列

变量名	类 型	静态	数组	备 注
newCols	整数型
row	整数型

newCols ＝ 取数组下标 (m_ColorList, 2) ＋ 1
线程_进入许可区 (m_进入许可证)
重定义数组 (m_ColorList, 真, 取数组下标 (m_ColorList, 1), newCols)
计次循环首 (取数组下标 (m_ColorList, 1), row)
m_ColorList [row] [newCols].Color ＝ m_默认

.版本 2<br /> <br /> .程序集 程序集_超表颜色<br /> .程序集变量 m_默认前景色, 整数型<br /> .程序集变量 m_默认背景色, 整数型<br /> .程序集变量 m_进入许可证, 线程许可证<br /> .程序集变量 m_clistHwnd, 整数型<br /> .程序集变量 m_OrWindowAddress, 整数型<br /> .程序集变量 m_ColorList, ColorData, , "0"<br /> .程序集变量 m_pHwnd, 整数型<br /> .程序集变量 m_list, 外部超级列表框<br /> <br /> .子程序 超表颜色_初始化, , 公开<br /> .参数 pHwnd, 整数型, , 父窗口句柄，一般为主窗口句柄<br /> .参数 cListHwnd, 整数型<br /> .参数 前景色, 整数型, 可空, 默认：黑色<br /> .参数 背景色, 整数型, 可空, 默认：白色<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> .局部变量 col, 整数型<br /> .局部变量 row, 整数型<br /> <br /> m_进入许可证 ＝ 线程_创建许可证 ()<br /> .如果真 (是否为空 (前景色))<br />     前景色 ＝ #白色<br /> .如果真结束<br /> .如果真 (是否为空 (背景色))<br />     背景色 ＝ #黑色<br /> .如果真结束<br /> m_默认前景色 ＝ 前景色<br /> m_默认背景色 ＝ 背景色<br /> m_clistHwnd ＝ cListHwnd<br /> m_pHwnd ＝ pHwnd<br /> m_list.初始化 (m_clistHwnd, , )<br /> m_OrWindowAddress ＝ SetWindowLong (m_pHwnd, -4, 到整数 (&WndProc))<br /> row ＝ m_list.取表项数 ()<br /> col ＝ m_list.取列数 ()<br /> .如果真 (row ≤ 0)<br />     row ＝ 1<br /> .如果真结束<br /> .如果真 (col ≤ 0)<br />     col ＝ 1<br /> .如果真结束<br /> 重定义数组 (m_ColorList, 假, row, col)<br /> .计次循环首 (取数组下标 (m_ColorList, 1), 行)<br />     .计次循环首 (取数组下标 (m_ColorList, 2), 列)<br />         m_ColorList [行] [列].Color ＝ m_默认前景色<br />         m_ColorList [行] [列].Backgroud ＝ m_默认背景色<br />         ' 调试输出 (行, 列, m_ColorList [行] [列].Color, m_ColorList [行] [列].Backgroud)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 超表颜色_置单元格颜色, , 公开<br /> .参数 起始行, 整数型, , 从0开始<br /> .参数 起始列, 整数型, , 从0开始<br /> .参数 终止行, 整数型<br /> .参数 终止列, 整数型<br /> .参数 前景色, 整数型, 可空<br /> .参数 背景色, 整数型, 可空<br /> .局部变量 x, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> <br /> .如果真 (是否为空 (前景色) 且 是否为空 (背景色))<br />     返回 ()<br /> .如果真结束<br /> .如果真 (起始行 ＜ 0)<br />     起始行 ＝ 0<br /> .如果真结束<br /> .如果真 (终止行 ＞ 取数组下标 (m_ColorList, 1) － 1)<br />     终止行 ＝ 取数组下标 (m_ColorList, 1) － 1<br /> .如果真结束<br /> .如果真 (终止行 ＜ 起始行)<br />     x ＝ 起始行<br />     起始行 ＝ 终止行<br />     终止行 ＝ x<br /> .如果真结束<br /> .如果真 (起始列 ＜ 0)<br />     起始列 ＝ 0<br /> .如果真结束<br /> .如果真 (终止列 ＞ 取数组下标 (m_ColorList, 2) － 1)<br />     终止列 ＝ 取数组下标 (m_ColorList, 2) － 1<br /> .如果真结束<br /> .如果真 (终止列 ＜ 起始列)<br />     x ＝ 起始列<br />     起始列 ＝ 终止列<br />     终止列 ＝ x<br /> .如果真结束<br /> .变量循环首 (起始行 ＋ 1, 终止行 ＋ 1, 1, 行)<br />     .变量循环首 (起始列 ＋ 1, 终止列 ＋ 1, 1, 列)<br />         线程_进入许可区 (m_进入许可证)<br />         .如果真 (是否为空 (前景色) ＝ 假)<br />             m_ColorList [行] [列].Color ＝ 前景色<br />         .如果真结束<br />         .如果真 (是否为空 (背景色) ＝ 假)<br />             m_ColorList [行] [列].Backgroud ＝ 背景色<br />         .如果真结束<br />         线程_退出许可区 (m_进入许可证)<br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> m_list.刷新显示 ()<br /> <br /> .子程序 超表颜色_内存释放, , 公开<br /> <br /> 线程_删除许可证 (m_进入许可证)<br /> SetWindowLong (m_pHwnd, -4, m_OrWindowAddress)  ' 恢复HOOK<br /> <br /> .子程序 超表颜色_删除表项, , 公开<br /> .参数 表项索引, 整数型, , 用于指定列表框中的某一项目，索引值从 0 开始。<br /> <br /> m_list.删除表项 (表项索引)<br /> .如果真 (m_list.取表项数 () ＞ 0)<br />     颜色数组_删除行 (表项索引 ＋ 1)<br /> .如果真结束<br /> <br /> <br /> .子程序 超表颜色_全部删除, , 公开<br /> <br /> m_list.全部删除 ()<br /> 线程_进入许可区 (m_进入许可证)<br /> 重定义数组 (m_ColorList, 假, 1, 1)<br /> 线程_退出许可区 (m_进入许可证)<br /> <br /> .子程序 超表颜色_删除列, , 公开, 删除报表型列表框中指定位置处的列。<br /> .参数 列索引, 整数型, , 用作指定报表型列表框中项目所处的列，索引值从 0 开始。<br /> <br /> m_list.删除列 (列索引)<br /> .如果真 (m_list.取列数 () ＞ 0)<br />     颜色数组_删除列 (列索引 ＋ 1)<br /> .如果真结束<br /> <br /> <br /> .子程序 超表颜色_插入表项, 整数型, 公开<br /> .参数 插入位置, 整数型, 可空, 可以被省略。指定新表项插入时的位置索引，索引值从 0 开始。如果提供 -1 ，则插入到列表框的尾部。如果本参数被省略，默认值为 -1 。<br /> .参数 标题, 文本型, 可空, 可以被省略。本参数指定表项的标题文本。如果被省略，默认值为空文本。<br /> .参数 图片索引, 整数型, 可空, 可以被省略。图片索引用于指定“图片组”属性中的某张图片。索引值从 0 开始，-1 表示无图片。如果本参数被省略，默认值为 -1 。<br /> .参数 状态图片索引, 整数型, 可空, 可以被省略。状态图片索引用于指定“状态图片组”属性中的某张图片。索引值从 0 开始，-1 表示无图片。如果本参数被省略，默认值为 -1 。<br /> .参数 缩进数目, 整数型, 可空, 可以被省略。“缩进数目”仅在报表型列表框才有效，用作指定显示时在表项首部增加的空白数。如果本参数被省略，默认值为 0 。<br /> .参数 表项数值, 整数型, 可空, 可以被省略。该数值与指定表项相关联。如果本参数被省略，默认值为 0 。<br /> .局部变量 返回值, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> <br /> .如果真 (是否为空 (插入位置))<br />     插入位置 ＝ -1<br /> .如果真结束<br /> <br /> 返回值 ＝ m_list.插入表项 (插入位置, 标题, 图片索引, 状态图片索引, 缩进数目, 表项数值)<br /> .如果真 (m_list.取表项数 () ＞ 1)<br />     .如果 (是否为空 (插入位置) 或 插入位置 ＜ 0)<br />         颜色数组_添加行 ()<br />     .否则<br />         颜色数组_插入行 (插入位置)<br />     .如果结束<br /> <br /> .如果真结束<br /> 返回 (返回值)<br /> <br /> .子程序 超表颜色_插入列, 整数型, 公开, 在报表型列表框中指定位置插入新的列，成功返回新列的位置索引，失败返回 -1 。<br /> .参数 插入位置, 整数型, 可空, 可以被省略。指定新列插入时的位置索引，索引值从 0 开始。如果提供 -1 ，则插入到尾部。如果本参数被省略，默认值为 -1 。<br /> .参数 标题, 文本型, 可空, 可以被省略。本参数指定报表列的标题文本。如果被省略，默认值为空文本。<br /> .参数 列宽, 整数型, 可空, 可以被省略。本参数指定报表列的宽度，单位为像素。如果被省略，默认值为 50 。<br /> .参数 对齐方式, 整数型, 可空, 可以被省略。参数可以为以下常量之一： 0：0； 1：1； 2：2。如果本参数被省略，默认值为“0”。<br /> .参数 图片索引, 整数型, 可空, 可以被省略。图片索引用于指定“表头图片组”属性中的某张图片。索引值从 0 开始，-1 表示无图片。如果本参数被省略，默认值为 -1 。<br /> .参数 图片是否居右, 逻辑型, 可空, 可以被省略。指定图片是否显示在右边，如果本参数被省略，默认值为假。<br /> .局部变量 返回值, 整数型<br /> <br /> 返回值 ＝ m_list.插入列 (插入位置, 标题, 列宽, 对齐方式, 图片索引, 图片是否居右)<br /> .如果真 (m_list.取列数 () ＞ 1)<br />     .如果 (是否为空 (插入位置) 或 插入位置 ＜ 0)<br />         颜色数组_添加列 ()<br />     .否则<br />         颜色数组_插入列 (插入位置)<br />     .如果结束<br /> <br /> .如果真结束<br /> 返回 (返回值)<br /> <br /> <br /> .子程序 颜色数组_插入行<br /> .参数 插入位置, 整数型, , 行下标,从1开始<br /> .局部变量 newRows, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 NewColorList, ColorData, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 是否顺序, 逻辑型<br /> <br /> .如果真 (取反 (插入位置 ≥ 1 且 插入位置 ≤ 取数组下标 (m_ColorList, 1)))<br />     返回 ()<br /> .如果真结束<br /> newRows ＝ 取数组下标 (m_ColorList, 1) ＋ 1<br /> 重定义数组 (NewColorList, 假, newRows, 取数组下标 (m_ColorList, 2))<br /> .计次循环首 (取数组下标 (m_ColorList, 1), i)<br />     .如果 (i ＝ 插入位置)<br />         .计次循环首 (取数组下标 (m_ColorList, 2), j)<br />             NewColorList <i> [j].Color ＝ m_默认前景色<br />             NewColorList <i> [j].Backgroud ＝ m_默认背景色<br />         .计次循环尾 ()<br />     .否则<br />         .计次循环首 (取数组下标 (m_ColorList, 2), j)<br />             NewColorList <i> [j].Color ＝ m_ColorList <i> [j].Color<br />             NewColorList <i> [j].Backgroud ＝ m_ColorList <i> [j].Backgroud<br />         .计次循环尾 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 线程_进入许可区 (m_进入许可证)<br /> 重定义数组 (m_ColorList, 假, 取数组下标 (NewColorList, 1), 取数组下标 (NewColorList, 2))<br /> .计次循环首 (取数组下标 (NewColorList, 1), i)<br />     .计次循环首 (取数组下标 (NewColorList, 2), j)<br />         m_ColorList <i> [j].Color ＝ NewColorList <i> [j].Color<br />         m_ColorList <i> [j].Backgroud ＝ NewColorList <i> [j].Backgroud<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 线程_退出许可区 (m_进入许可证)<br /> <br /> <br /> .子程序 颜色数组_插入列<br /> .参数 插入位置, 整数型, , 列下标,从1开始<br /> .局部变量 newCols, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 NewColorList, ColorData, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 是否顺序, 逻辑型<br /> <br /> .如果真 (取反 (插入位置 ≥ 1 且 插入位置 ≤ 取数组下标 (m_ColorList, 2)))<br />     返回 ()<br /> .如果真结束<br /> newCols ＝ 取数组下标 (m_ColorList, 2) ＋ 1<br /> 重定义数组 (NewColorList, 假, 取数组下标 (m_ColorList, 1), newCols)<br /> .计次循环首 (取数组下标 (NewColorList, 2), j)<br />     .如果 (j ＝ 插入位置)<br />         .计次循环首 (取数组下标 (NewColorList, 1), i)<br />             NewColorList <i> [j].Color ＝ m_默认前景色<br />             NewColorList <i> [j].Backgroud ＝ m_默认背景色<br />         .计次循环尾 ()<br />     .否则<br />         .计次循环首 (取数组下标 (NewColorList, 1), i)<br />             NewColorList <i> [j].Color ＝ m_ColorList <i> [j － 1].Color<br />             NewColorList <i> [j].Backgroud ＝ m_ColorList <i> [j － 1].Backgroud<br />         .计次循环尾 ()<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 线程_进入许可区 (m_进入许可证)<br /> 重定义数组 (m_ColorList, 假, 取数组下标 (NewColorList, 1), 取数组下标 (NewColorList, 2))<br /> .计次循环首 (取数组下标 (NewColorList, 1), i)<br />     .计次循环首 (取数组下标 (NewColorList, 2), j)<br />         m_ColorList <i> [j].Color ＝ NewColorList <i> [j].Color<br />         m_ColorList <i> [j].Backgroud ＝ NewColorList <i> [j].Backgroud<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 线程_退出许可区 (m_进入许可证)<br /> <br /> .子程序 颜色数组_添加行<br /> .局部变量 newRows, 整数型<br /> .局部变量 Col, 整数型<br /> <br /> newRows ＝ 取数组下标 (m_ColorList, 1) ＋ 1<br /> 线程_进入许可区 (m_进入许可证)<br /> 重定义数组 (m_ColorList, 真, newRows, 取数组下标 (m_ColorList, 2))<br /> .计次循环首 (取数组下标 (m_ColorList, 2), Col)<br />     m_ColorList [newRows] [Col].Color ＝ m_默认前景色<br />     m_ColorList [newRows] [Col].Backgroud ＝ m_默认背景色<br /> .计次循环尾 ()<br /> 线程_退出许可区 (m_进入许可证)<br /> <br /> .子程序 颜色数组_添加列<br /> .局部变量 newCols, 整数型<br /> .局部变量 row, 整数型<br /> <br /> newCols ＝ 取数组下标 (m_ColorList, 2) ＋ 1<br /> 线程_进入许可区 (m_进入许可证)<br /> 重定义数组 (m_ColorList, 真, 取数组下标 (m_ColorList, 1), newCols)<br /> .计次循环首 (取数组下标 (m_ColorList, 1), row)<br />     m_ColorList [row] [newCols].Color ＝ m_默认

本模块调用了    精易模块的     外部超级列表框类

使用细节：增删行列的操作 请调用  超表颜色_***** 不然颜色会错乱或不生效 。。。
实际上   超表颜色_增、删、插入 等均是调用的精易模块，具体实现方法很简单，
就是在有增删的情况下，要对颜色的二维数组进行操作。
所以。。这个必须调用，请看源码。。。。

修改：如果用到线程循环中，遇到闪烁的情况，可以把：超表颜色_置单元格颜色（）下的：
    m_list.刷新显示 ()   注释掉

如果：界面不刷新，自己处理刷新逻辑。就可以了。
超表颜色修改.e (1021.57 KB, 下载次数: 127)

2022-8-20 23:29 上传

点击文件名下载附件
模块源码

wolfpack

学习学习。。。。。。。。。。。。。

hai20041004

谢谢楼主…………

men123

xujiang

好用吗？

paulz2022

感谢分享，很给力！~

kfsboss

666这个好

xujianc

666666666666

1405249742

学习学习

similarzhang

正需要，感谢分享

lm88818

        开源精神必须支持~