Foxtable(狐表) → 用户栏目 → 专家坐堂 → 项目中的表的截图问题


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

主题：项目中的表的截图问题
帅哥哟，离线，有人找我吗？
fntfgz
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：4950 威望：0 精华：0 注册：2012/11/16 8:21:00 		项目中的表的截图问题  发帖心情 Post By：2020/11/1 22:55:00 [只看该作者]

老师我看了这个贴子关于项目中的表的截图
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=139597&skin=0
想问项目中的表属于哪个窗体呢？你写的“窗口1”，如果直接在项目中的话怎么写？


图片点击可在新窗口打开查看此主题相关图片如下：capture_20201101225338596.bmp
图片点击可在新窗口打开查看



如果您能直接照这个代码给修改一下就更好了，这块实在是不懂


Dim trv = e.Form.Controls("Treeview1").BaseControl
Dim point As Point = e.Form.Panel.PointToScreen(trv.Bounds.Location)
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(trv.width, trv.height) '截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) '截取的开始位置,坐标(100, 200)
bit.save("d:\test.jpg")
memoryGraphics.dispose
myGraphics.dispose
bit.dispose

[此贴子已经被作者于2020/11/1 22:58:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/1 23:08:00 [只看该作者]

Dim t = Tables("表A").grid
Dim point As Point = t.parent.pointtoscreen(t.Bounds.Location)
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(t.width, t.height) '截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) '截取的开始位置,坐标(100, 200)
bit.save("d:\test.jpg")
memoryGraphics.dispose
myGraphics.dispose
bit.dispose
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询