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


  共有183818人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
right600
  361楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:123 威望:0 精华:0 注册:2015/8/1 6:48:00
  发帖心情 Post By:2015/8/20 21:08:00 [只看该作者]

支持

 回到顶部
帅哥哟,离线,有人找我吗?
shenyl0211
  362楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:977 积分:6835 威望:0 精华:0 注册:2012/4/2 21:49:00
  发帖心情 Post By:2015/8/20 21:18:00 [只看该作者]

顶起。谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
wpeo
  363楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:75 积分:818 威望:0 精华:0 注册:2014/10/6 8:50:00
  发帖心情 Post By:2015/8/21 10:57:00 [只看该作者]

看看

 回到顶部
帅哥哟,离线,有人找我吗?
gfp12345678
  364楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:14 积分:202 威望:0 精华:0 注册:2011/9/19 21:44:00
  发帖心情 Post By:2015/8/21 11:07:00 [只看该作者]

看看。。。。。。。。。。。。。

 回到顶部
帅哥哟,离线,有人找我吗?
hswf
  365楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:262 积分:2704 威望:0 精华:0 注册:2013/6/29 9:35:00
顶!  发帖心情 Post By:2015/9/28 20:15:00 [只看该作者]

顶!


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  366楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2232 积分:15257 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/9/28 20:47:00 [只看该作者]

看看


 回到顶部
帅哥哟,离线,有人找我吗?
leopain
  367楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:172 积分:1188 威望:0 精华:0 注册:2015/8/5 16:45:00
  发帖心情 Post By:2015/9/29 14:16:00 [只看该作者]

看看

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  368楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1629 积分:14396 威望: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:表头层数

 回到顶部
帅哥哟,离线,有人找我吗?
zhaoyongsheng
  369楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:39 积分:279 威望:0 精华:0 注册:2015/9/29 20:33:00
谢谢分享  发帖心情 Post By:2015/9/29 20:40:00 [只看该作者]

谢谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  370楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1629 积分:14396 威望: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为表头层数

 回到顶部