Foxtable(狐表)用户栏目专家坐堂 → 多图表问题


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

主题:多图表问题

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


加好友 发短信
等级:小狐 帖子:394 积分:5997 威望:0 精华:0 注册:2015/2/17 10:18:00
多图表问题  发帖心情 Post By:2019/5/17 11:05:00 [只看该作者]

窗口 A ,有三张图表,A1,A2,A3

 

请教老师:

   1.能否一次将三张图表保存在一个WORD 文件中。

   2.能否一次将3张制图表复制到剪贴板。

   3.能否将窗口内容像截图那样形成一个图形文件。

谢谢!


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/17 11:28:00 [只看该作者]

1、word插入图片,参考

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126330&skin=0

 

2、剪贴板,只能最多拷贝一张图片。

 

如果要加入文件,参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116723&skin=0

 

3、方法一:

 

http://www.foxtable.com/webhelp/scr/1590.htm

 

http://www.foxtable.com/webhelp/scr/2450.htm

 

方法二:直接截屏

 

Dim trv = e.Form.panel
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

Dim Proc As New Process '定义一个新的Process
Proc.File = "d:\test.jpg"   '指定要打开的文件
Proc.Start() '打开文件


 回到顶部