[原创]给大家发个实用的工具，表截图功能。(开发版及商用版) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]给大家发个实用的工具，表截图功能。(开发版及商用版)

共有187313人关注过本帖树形打印复制链接主题：[原创]给大家发个实用的工具，表截图功能。(开发版及商用版)

zcgmxf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1634 积分：14432 威望：0 精华：0 注册：2014/6/6 8:42:00

Post By：2015/8/15 21:31:00 [显示全部帖子]

学习

zcgmxf

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1634 积分：14432 威望：0 精华：0 注册：2014/6/6 8:42:00

Post By：2015/9/29 17:42:00 [显示全部帖子]

非常感谢哦！不过如果是双层或多层表头，应改为：

'区域快照功能

Dim img As Image = CurrentTable.grid.CreateImage(CurrentTable.TopRow+n, CurrentTable.LeftCol+1, CurrentTable.BottomRow+n, CurrentTable.RightCol+1)

img.Save("C:\test.png")

Dim Proc As New Process

Proc.File = "C:\test.png"

Proc.Start()

n:表头层数

zcgmxf

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1634 积分：14432 威望：0 精华：0 注册：2014/6/6 8:42:00

Post By：2015/9/30 8:14:00 [显示全部帖子]

感谢分享。如果是多层表头应该是：

'区域快照功能

Dim img As Image = CurrentTable.grid.CreateImage(CurrentTable.TopRow+n, CurrentTable.LeftCol+1, CurrentTable.BottomRow+n, CurrentTable.RightCol+1)

img.Save("C:\test.png")

Dim Proc As New Process

Proc.File = "C:\test.png"

Proc.Start()

n为表头层数

主题：[原创]给大家发个实用的工具，表截图功能。(开发版及商用版)