高级表格选中图片展开收缩，图片复制

洋滨

利用了静态变量，和节点，可以同时操作多表格组件

  

子程序名	返回值类型	公开	备 注
_高级表格1_光标位置改变

高级表格_表格图片展开收缩 (高级表格1)

子程序名	返回值类型	公开	备 注
_高级表格2_光标位置改变

高级表格_表格图片展开收缩 (高级表格2)

子程序名	返回值类型	公开	备 注
高级表格_表格图片展开收缩
参数名	类 型	参考	可空	数组	备 注
表格	高级表格

变量名	类 型	静态	数组	备 注
操作表格	节点
当前操作表格句柄	整数型
表格当前选中行	整数型
表格当前选中列	整数型
表格当前选中行高	整数型
表格当前选中列宽	整数型
操作表格_表格展开图片行	整数型
操作表格_表格展开图片列	整数型
操作表格_表格展开图片原行高	整数型
操作表格_表格展开图片原列宽	整数型
图片	字节集
图片宽度	整数型
图片高度	整数型

操作表格.取数值 (到文本 (表格.取窗口句柄 ()), 当前操作表格句柄)
表格当前选中行 ＝ 表格.取光标行号 ()
表格当前选中列 ＝ 表格.取光标列号 ()
表格当前选中行高 ＝ 表格.取行高 (表格当前选中行)
表格当前选中列宽 ＝ 表格.取列宽 (表格当前选中列)
如果真 (当前操作表格句柄 ＝ 0)  ' 判断是否首次操作表格
操作表格.加入属性 (到文本 (表格.取窗口句柄 ()), 表格.取窗口句柄 ())  ' 表格存在赋值真
操作表格.取数值 (到文本 (表格.取窗口句柄 ()), 当前操作表格句柄)
操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “row”, 表格当前选中行)  ' 赋值初始行
操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “column”, 表格当前选中列)  ' 赋值初始列
操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “height”, 表格当前选中行高)  ' 赋值初始行高
操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “width”, 表格当前选中列宽)  ' 赋值初始列宽
操作表格_表格展开图片行 ＝ 表格当前选中行
操作表格_表格展开图片列 ＝ 表格当前选中列
操作表格_表格展开图片原行高 ＝ 表格当前选中行高
操作表格_表格展开图片原列宽 ＝ 表格当前选中列宽

操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “row”, 操作表格_表格展开图片行)
操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “column”, 操作表格_表格展开图片列)
操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “height”, 操作表格_表格展开图片原行高)
操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “width”, 操作表格_表格展开图片原列宽)
' 先收缩上一次图片单元格，并把参数设置为-1，防止重复调用
如果真 (操作表格_表格展开图片行 ≠ -1 且 操作表格_表格展开图片列 ≠ -1)
表格.置行高 (操作表格_表格展开图片行, 操作表格_表格展开图片原行高)
表格.置列宽 (操作表格_表格展开图片列, 操作表格_表格展开图片原列宽)
操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “row”, -1)
操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “column”, -1)
操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “height”, -1)
操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “width”, -1)

' 展开图片
如果真 (表格.取列类型 (表格当前选中列) ＝ #表格常量 .图片型)
图片 ＝ 到字节集 (表格.取数据 (表格当前选中行, 表格当前选中列))
如果真 (取字节集长度 (图片) ＞ 0)
图片宽度 ＝ 图片_取宽度 (图片)
图片高度 ＝ 图片_取高度 (图片)
表格.置行高 (表格当前选中行, 图片高度)
表格.置列宽 (表格当前选中列, 图片宽度)
操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “row”, 表格当前选中行)  ' 赋值初始行
操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “column”, 表格当前选中列)  ' 赋值初始列
操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “height”, 表格当前选中行高)  ' 赋值初始行高
操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “width”, 表格当前选中列宽)  ' 赋值初始列宽

子程序名	返回值类型	公开	备 注
高级表格_复制图片
参数名	类 型	参考	可空	数组	备 注
表格	高级表格

变量名	类 型	静态	数组	备 注
图片	字节集

如果真 (表格.取列类型 (表格.取光标列号 ()) ＝ #表格常量 .图片型)
图片 ＝ 到字节集 (高级表格1.取数据 (高级表格1.取光标行号 (), 高级表格1.取光标列号 ()))
如果真 (取字节集长度 (图片) ＞ 0)
' 延时100毫秒再复制，因为高级表格本身会复制一次空白内容，太快了会给空白内容覆盖
程序_延时 (100, )
剪辑板_置图片 (图片)

子程序名	返回值类型	公开	备 注
_高级表格1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 (功能键状态 ＝ #Ctrl键状态 且 键代码 ＝ #C键 )
高级表格_复制图片 (高级表格1)

i支持库列表	支持库注释
EDataStructure	数据结构支持库
eGrid	高级表格支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 eGrid<br /> <br /> .子程序 _高级表格1_光标位置改变<br /> <br /> 高级表格_表格图片展开收缩 (高级表格1)<br /> <br /> <br /> .子程序 _高级表格2_光标位置改变<br /> <br /> 高级表格_表格图片展开收缩 (高级表格2)<br /> <br /> .子程序 高级表格_表格图片展开收缩<br /> .参数 表格, 高级表格<br /> .局部变量 操作表格, 节点, 静态<br /> .局部变量 当前操作表格句柄, 整数型<br /> .局部变量 表格当前选中行, 整数型<br /> .局部变量 表格当前选中列, 整数型<br /> .局部变量 表格当前选中行高, 整数型<br /> .局部变量 表格当前选中列宽, 整数型<br /> .局部变量 操作表格_表格展开图片行, 整数型<br /> .局部变量 操作表格_表格展开图片列, 整数型<br /> .局部变量 操作表格_表格展开图片原行高, 整数型<br /> .局部变量 操作表格_表格展开图片原列宽, 整数型<br /> .局部变量 图片, 字节集<br /> .局部变量 图片宽度, 整数型<br /> .局部变量 图片高度, 整数型<br /> <br /> 操作表格.取数值 (到文本 (表格.取窗口句柄 ()), 当前操作表格句柄)<br /> <br /> <br /> 表格当前选中行 ＝ 表格.取光标行号 ()<br /> 表格当前选中列 ＝ 表格.取光标列号 ()<br /> 表格当前选中行高 ＝ 表格.取行高 (表格当前选中行)<br /> 表格当前选中列宽 ＝ 表格.取列宽 (表格当前选中列)<br /> .如果真 (当前操作表格句柄 ＝ 0)  ' 判断是否首次操作表格<br />     操作表格.加入属性 (到文本 (表格.取窗口句柄 ()), 表格.取窗口句柄 ())  ' 表格存在赋值真<br />     操作表格.取数值 (到文本 (表格.取窗口句柄 ()), 当前操作表格句柄)<br /> <br />     操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “row”, 表格当前选中行)  ' 赋值初始行<br />     操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “column”, 表格当前选中列)  ' 赋值初始列<br />     操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “height”, 表格当前选中行高)  ' 赋值初始行高<br />     操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “width”, 表格当前选中列宽)  ' 赋值初始列宽<br /> <br />     操作表格_表格展开图片行 ＝ 表格当前选中行<br />     操作表格_表格展开图片列 ＝ 表格当前选中列<br />     操作表格_表格展开图片原行高 ＝ 表格当前选中行高<br />     操作表格_表格展开图片原列宽 ＝ 表格当前选中列宽<br /> .如果真结束<br /> <br /> 操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “row”, 操作表格_表格展开图片行)<br /> 操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “column”, 操作表格_表格展开图片列)<br /> 操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “height”, 操作表格_表格展开图片原行高)<br /> 操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “width”, 操作表格_表格展开图片原列宽)<br /> <br /> ' 先收缩上一次图片单元格，并把参数设置为-1，防止重复调用<br /> .如果真 (操作表格_表格展开图片行 ≠ -1 且 操作表格_表格展开图片列 ≠ -1)<br />     表格.置行高 (操作表格_表格展开图片行, 操作表格_表格展开图片原行高)<br />     表格.置列宽 (操作表格_表格展开图片列, 操作表格_表格展开图片原列宽)<br />     操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “row”, -1)<br />     操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “column”, -1)<br />     操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “height”, -1)<br />     操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “width”, -1)<br /> .如果真结束<br /> <br /> ' 展开图片<br /> .如果真 (表格.取列类型 (表格当前选中列) ＝ #表格常量.图片型)<br /> <br /> <br />     图片 ＝ 到字节集 (表格.取数据 (表格当前选中行, 表格当前选中列))<br />     .如果真 (取字节集长度 (图片) ＞ 0)<br />         图片宽度 ＝ 图片_取宽度 (图片)<br />         图片高度 ＝ 图片_取高度 (图片)<br /> <br />         表格.置行高 (表格当前选中行, 图片高度)<br />         表格.置列宽 (表格当前选中列, 图片宽度)<br /> <br />         操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “row”, 表格当前选中行)  ' 赋值初始行<br />         操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “column”, 表格当前选中列)  ' 赋值初始列<br />         操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “height”, 表格当前选中行高)  ' 赋值初始行高<br />         操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “width”, 表格当前选中列宽)  ' 赋值初始列宽<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 高级表格_复制图片<br /> .参数 表格, 高级表格<br /> .局部变量 图片, 字节集<br /> <br /> .如果真 (表格.取列类型 (表格.取光标列号 ()) ＝ #表格常量.图片型)<br />     图片 ＝ 到字节集 (高级表格1.取数据 (高级表格1.取光标行号 (), 高级表格1.取光标列号 ()))<br />     .如果真 (取字节集长度 (图片) ＞ 0)<br />         ' 延时100毫秒再复制，因为高级表格本身会复制一次空白内容，太快了会给空白内容覆盖<br />         程序_延时 (100, )<br />         剪辑板_置图片 (图片)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _高级表格1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (功能键状态 ＝ #Ctrl键状态 且 键代码 ＝ #C键)<br />     高级表格_复制图片 (高级表格1)<br /> .如果真结束

447485268

支持开源~！感谢分享

情话巴巴爸爸

我就喜欢你这样的大神

晚熟

感谢分享，很给力！~

guangye1

好用。学习

xz0455

高级表格选中图片展开收缩，图片复制开源必须支持

q1599273319

RE: 高级表格选中图片展开收缩，图片复制 [修改]

mytiger

感谢分享！~

玩神

高级表格选中图片展开收缩，图片复制开源必须支持

查过

感谢分享，很给力！~