易语言高级表格实现选中图片展开收缩，图片复制源码

1. .版本 2
   
2. .支持库 EDataStructure
   
3. .支持库 eGrid
   
4. 
   
5. .子程序 _高级表格1_光标位置改变
   
6. 
   
7. 高级表格_表格图片展开收缩 (高级表格1)
   
8. 
   
9. 
   
10. .子程序 _高级表格2_光标位置改变
    
11. 
    
12. 高级表格_表格图片展开收缩 (高级表格2)
    
13. 
    
14. .子程序 高级表格_表格图片展开收缩
    
15. .参数 表格, 高级表格
    
16. .局部变量 操作表格, 节点, 静态
    
17. .局部变量 当前操作表格句柄, 整数型
    
18. .局部变量 表格当前选中行, 整数型
    
19. .局部变量 表格当前选中列, 整数型
    
20. .局部变量 表格当前选中行高, 整数型
    
21. .局部变量 表格当前选中列宽, 整数型
    
22. .局部变量 操作表格_表格展开图片行, 整数型
    
23. .局部变量 操作表格_表格展开图片列, 整数型
    
24. .局部变量 操作表格_表格展开图片原行高, 整数型
    
25. .局部变量 操作表格_表格展开图片原列宽, 整数型
    
26. .局部变量 图片, 字节集
    
27. .局部变量 图片宽度, 整数型
    
28. .局部变量 图片高度, 整数型
    
29. 
    
30. 操作表格.取数值 (到文本 (表格.取窗口句柄 ()), 当前操作表格句柄)
    
31. 
    
32. 
    
33. 表格当前选中行 ＝ 表格.取光标行号 ()
    
34. 表格当前选中列 ＝ 表格.取光标列号 ()
    
35. 表格当前选中行高 ＝ 表格.取行高 (表格当前选中行)
    
36. 表格当前选中列宽 ＝ 表格.取列宽 (表格当前选中列)
    
37. .如果真 (当前操作表格句柄 ＝ 0)  ' 判断是否首次操作表格
    
38.     操作表格.加入属性 (到文本 (表格.取窗口句柄 ()), 表格.取窗口句柄 ())  ' 表格存在赋值真
    
39.     操作表格.取数值 (到文本 (表格.取窗口句柄 ()), 当前操作表格句柄)
    
40. 
    
41.     操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “row”, 表格当前选中行)  ' 赋值初始行
    
42.     操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “column”, 表格当前选中列)  ' 赋值初始列
    
43.     操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “height”, 表格当前选中行高)  ' 赋值初始行高
    
44.     操作表格.加入属性 (到文本 (当前操作表格句柄) ＋ “width”, 表格当前选中列宽)  ' 赋值初始列宽
    
45. 
    
46.     操作表格_表格展开图片行 ＝ 表格当前选中行
    
47.     操作表格_表格展开图片列 ＝ 表格当前选中列
    
48.     操作表格_表格展开图片原行高 ＝ 表格当前选中行高
    
49.     操作表格_表格展开图片原列宽 ＝ 表格当前选中列宽
    
50. .如果真结束
    
51. 
    
52. 操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “row”, 操作表格_表格展开图片行)
    
53. 操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “column”, 操作表格_表格展开图片列)
    
54. 操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “height”, 操作表格_表格展开图片原行高)
    
55. 操作表格.取数值 (到文本 (当前操作表格句柄) ＋ “width”, 操作表格_表格展开图片原列宽)
    
56. 
    
57. ' 先收缩上一次图片单元格，并把参数设置为-1，防止重复调用
    
58. .如果真 (操作表格_表格展开图片行 ≠ -1 且 操作表格_表格展开图片列 ≠ -1)
    
59.     表格.置行高 (操作表格_表格展开图片行, 操作表格_表格展开图片原行高)
    
60.     表格.置列宽 (操作表格_表格展开图片列, 操作表格_表格展开图片原列宽)
    
61.     操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “row”, -1)
    
62.     操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “column”, -1)
    
63.     操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “height”, -1)
    
64.     操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “width”, -1)
    
65. .如果真结束
    
66. 
    
67. ' 展开图片
    
68. .如果真 (表格.取列类型 (表格当前选中列) ＝ #表格常量.图片型)
    
69. 
    
70. 
    
71.     图片 ＝ 到字节集 (表格.取数据 (表格当前选中行, 表格当前选中列))
    
72.     .如果真 (取字节集长度 (图片) ＞ 0)
    
73.         图片宽度 ＝ 图片_取宽度 (图片)
    
74.         图片高度 ＝ 图片_取高度 (图片)
    
75. 
    
76.         表格.置行高 (表格当前选中行, 图片高度)
    
77.         表格.置列宽 (表格当前选中列, 图片宽度)
    
78. 
    
79.         操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “row”, 表格当前选中行)  ' 赋值初始行
    
80.         操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “column”, 表格当前选中列)  ' 赋值初始列
    
81.         操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “height”, 表格当前选中行高)  ' 赋值初始行高
    
82.         操作表格.修改属性 (到文本 (当前操作表格句柄) ＋ “width”, 表格当前选中列宽)  ' 赋值初始列宽
    
83. 
    
84.     .如果真结束
    
85. 
    
86. .如果真结束
    
87. 
    
88. 
    
89. 
    
90. .子程序 高级表格_复制图片
    
91. .参数 表格, 高级表格
    
92. .局部变量 图片, 字节集
    
93. 
    
94. .如果真 (表格.取列类型 (表格.取光标列号 ()) ＝ #表格常量.图片型)
    
95.     图片 ＝ 到字节集 (高级表格1.取数据 (高级表格1.取光标行号 (), 高级表格1.取光标列号 ()))
    
96.     .如果真 (取字节集长度 (图片) ＞ 0)
    
97.         ' 延时100毫秒再复制，因为高级表格本身会复制一次空白内容，太快了会给空白内容覆盖
    
98.         程序_延时 (100, )
    
99.         剪辑板_置图片 (图片)
    
100.     .如果真结束
     
101. 
     
102. .如果真结束
     
103. 
     
104. 
     
105. 
     
106. .子程序 _高级表格1_按下某键, 逻辑型
     
107. .参数 键代码, 整数型
     
108. .参数 功能键状态, 整数型
     
109. 
     
110. .如果真 (功能键状态 ＝ #Ctrl键状态 且 键代码 ＝ #C键)
     
111.     高级表格_复制图片 (高级表格1)
     
112. .如果真结束

复制代码

谢谢楼主，对了新人问下，这个也要15字吗

这个资源我一直想要

我今天才找到这个论坛，非常高兴，加入到觅风老师的论坛

学习下  学习下  学习下

11111111111111111111111111

谢谢分享好人有好报6666666

这个资源我一直想要

666学习了！！

支持你们一下下哈