以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多图表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135115)

--  作者:HJG_HB950207
--  发布时间:2019/5/17 11:05:00
--  多图表问题

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

 

请教老师:

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

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

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

谢谢!


--  作者:有点甜
--  发布时间: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() \'打开文件