求一个组件或窗口滚动截长图的问题

wh1234567

是可可吖 发表于 2025-3-1 03:26
这个我也不知道你的需求是什么样的，你自己按照你自己的需求改吧

如果是想截图编辑框里或者其他由于内容多导致出现滚动条的组件里的完整内容咋办？有没有办法修改成通用的？

是可可吖

wh1234567 发表于 2025-3-1 03:50
如果是想截图编辑框里或者其他由于内容多导致出现滚动条的组件里的完整内容咋办？有没有办法修改成通用的 ...

就按照我给你封装的那样，自己照搬就行了。想编辑框就再加一个子程序参数编辑框就行了

补充内容 (2025-3-1 03:55):
还是那句话，学好了基础，自己想怎么运用就按照自己思路来就行了，这些都是很简单的东西

wh1234567

是可可吖 发表于 2025-3-1 03:54
就按照我给你封装的那样，自己照搬就行了。想编辑框就再加一个子程序参数编辑框就行了

补充内容 (2025-3 ...

老师增加一个编辑框的代码吧，试着添加仅仅修改名称不行

补充内容 (2025-3-1 04:30):
您看着还有些啥组件会出现由于内容多导致有滚动条的 多增加一些，好不好

是可可吖

wh1234567 发表于 2025-3-1 04:26
老师增加一个编辑框的代码吧，试着添加仅仅修改名称不行

补充内容 (2025-3-1 04:30):

大哥，我没那么多时间给你维护啊，就算是定制也不可能永久售后吧？我已经花时间给你封模块和写例子了，你不能一直让我给你完善啊，你也得自己花心思去学习和研究，这样知识都在你自己脑子里，这样你才能在需要的时候拿出来运用，总不能一直让别人给你写功能吧

wh1234567

是可可吖 发表于 2025-3-1 04:42
大哥，我没那么多时间给你维护啊，就算是定制也不可能永久售后吧？我已经花时间给你封模块和写例子了，你 ...

那就先增加编辑框功能吧，不再麻烦您了，呵呵呵，我边学边网，多亏你们帮忙，心里一直记着你们呢

补充内容 (2025-3-1 04:51):
组常用的可能也就是高级表格、超级列表框、编辑框和组合框这些存放文本的组件吧，期待老师最后帮忙了

补充内容 (2025-3-1 04:52):
另外这个截图功能不知道能不能将组合框内容也可以完整截图？

补充内容 (2025-3-1 04:54):
由于代码里只有高级表格和超级列表框，其他能存放文本内容的组件没法测试，

wh1234567

是可可吖 发表于 2025-3-1 03:54
就按照我给你封装的那样，自己照搬就行了。想编辑框就再加一个子程序参数编辑框就行了

补充内容 (2025-3 ...

.版本 2
.支持库 eGrid

.计次循环首 (编辑框名称.列数, a)
    横向 ＝ 横向 ＋ 编辑框名称.取列宽 (a) ＋ 6
.计次循环尾 ()
a ＝ 0
.计次循环首 (编辑框名称.行数, a)
    纵向 ＝ 纵向 ＋ 编辑框名称.取行高 (a)
.计次循环尾 ()
纵向 ＝ 纵向 ＋ 20

错误(10125): 指定属性或者成员名称“列数”在其所在对象数据类型“编辑框”中不存在。
错误(10125): 指定属性或者成员名称“行数”在其所在对象数据类型“编辑框”中不存在。

wh1234567

是可可吖 发表于 2025-3-1 02:57
好了，给你封成模块调用了

  

子程序名	返回值类型	公开	备 注
高级表格_快照	字节集
参数名	类 型	参考	可空	数组	备 注
窗口	窗口				‘例如：_启动窗口
高级表格	高级表格				‘例如：高级表格1

变量名	类 型	静态	数组	备 注
图片	字节集
纵向	整数型
横向	整数型
a

a ＝ 0
计次循环首 (高级表格.列数, a)
横向 ＝ 横向 ＋ 高级表格.取列宽 (a) ＋ 6
计次循环尾 ()
a ＝ 0
计次循环首 (高级表格.行数, a)
纵向 ＝ 纵向 ＋ 高级表格.取行高 (a)
计次循环尾 ()
纵向 ＝ 纵向 ＋ 20
' ' 以上代码：高级表格的列宽和行高是固定的，可以用此算出没有滚动条的高级表格实际大小！
SetWindowPos (窗口.取窗口句柄 (), #HWND_TOPMOST, 窗口.左边, 窗口.顶边, 横向 ＋ 500, 纵向 ＋ 100, #SWP_NOSENDCHANGING )  ' 这里如果用 窗口.移动()命令则无效
高级表格.移动 (, , 横向 ＋ 30, 纵向 ＋ 10)
图片 ＝ 超级截图 (高级表格.取窗口句柄 (), 0, 0, 横向, 纵向, 真, )
' 写到文件 (文件路径, 图片)  ' 屏蔽，同时把参数名“文件路径”删除
窗口.移动 (, , 805, 437)
高级表格.移动 (, , 378, 322)
返回 (图片)
' 这里增加返回图片，目的是便于灵活调用，例如：
图片框1.图片 ＝ 超级列表框_快照 (_启动窗口, 805, 437, 超级列表框1, 352, 328) 或者
画板1.底图 ＝ 高级表格_快照 (_启动窗口, 805, 437, 高级表格1, 378, 322) 或者
写到文件 (“C:/Users/Administrator/Desktop/高级表格截图预览.jpg”, 超级列表框_快照 (_启动窗口, 805, 437, 超级列表框1, 352, 328))
我修改如上，在调用时为什么提示没有返回呢？

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 高级表格_快照, 字节集, 公开<br /> .参数 窗口, 窗口, , ‘例如：_启动窗口<br /> .参数 高级表格, 高级表格, , ‘例如：高级表格1<br /> .局部变量 图片, 字节集<br /> .局部变量 纵向, 整数型<br /> .局部变量 横向, 整数型<br /> .局部变量 a<br /> <br /> a ＝ 0<br /> .计次循环首 (高级表格.列数, a)<br />     横向 ＝ 横向 ＋ 高级表格.取列宽 (a) ＋ 6<br /> .计次循环尾 ()<br /> a ＝ 0<br /> .计次循环首 (高级表格.行数, a)<br />     纵向 ＝ 纵向 ＋ 高级表格.取行高 (a)<br /> .计次循环尾 ()<br /> 纵向 ＝ 纵向 ＋ 20<br /> ' ' 以上代码：高级表格的列宽和行高是固定的，可以用此算出没有滚动条的高级表格实际大小！<br /> SetWindowPos (窗口.取窗口句柄 (), #HWND_TOPMOST, 窗口.左边, 窗口.顶边, 横向 ＋ 500, 纵向 ＋ 100, #SWP_NOSENDCHANGING)  ' 这里如果用 窗口.移动()命令则无效<br /> 高级表格.移动 (, , 横向 ＋ 30, 纵向 ＋ 10)<br /> 图片 ＝ 超级截图 (高级表格.取窗口句柄 (), 0, 0, 横向, 纵向, 真, )<br /> ' 写到文件 (文件路径, 图片)  ' 屏蔽，同时把参数名“文件路径”删除<br /> 窗口.移动 (, , 805, 437)<br /> 高级表格.移动 (, , 378, 322)<br /> 返回 (图片)<br /> ' 这里增加返回图片，目的是便于灵活调用，例如：<br /> 图片框1.图片 ＝ 超级列表框_快照 (_启动窗口, 805, 437, 超级列表框1, 352, 328) 或者<br /> 画板1.底图 ＝ 高级表格_快照 (_启动窗口, 805, 437, 高级表格1, 378, 322) 或者<br /> 写到文件 (“C:/Users/Administrator/Desktop/高级表格截图预览.jpg”, 超级列表框_快照 (_启动窗口, 805, 437, 超级列表框1, 352, 328))<br /> 我修改如上，在调用时为什么提示没有返回呢？

是可可吖

wh1234567 发表于 2025-3-1 14:35
[e=0].版本 2
.支持库 eGrid

吧这边跟上面的对比看看，你看看哪里不一样

wh1234567

是可可吖 发表于 2025-3-1 14:46
吧这边跟上面的对比看看，你看看哪里不一样

.版本 2

图片框1.图片 ＝ 超级列表框_快照 (_启动窗口, 超级列表框1)
画板1.底图 ＝ 高级表格_快照 (_启动窗口, 高级表格1)
写到文件 (“C:/Users/Administrator/Desktop/高级表格截图预览.jpg”, 超级列表框_快照 (_启动窗口, 超级列表框1))

错误(10066): 用作提供参数数据的子语句未返回数据。

wh1234567

是可可吖 发表于 2025-3-1 14:46
吧这边跟上面的对比看看，你看看哪里不一样

图片框和画板里都没反应不显示，老师再看看哪里的问题，顺便加上编辑框截图功能吧