以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  狐表可以设计一个按钮像QQ一样截图吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51124)
--  作者：yangwenghd
--  发布时间：2014/5/20 13:46:00
--  狐表可以设计一个按钮像QQ一样截图吗？
狐表可以设计一个按钮像QQ一样截图吗？
--  作者：Bin
--  发布时间：2014/5/20 14:01:00
--  
直接用QQ截图更加方便,要实现这个功能要费不少周章呢, 单纯的屏幕截图还相对容易一点.
--  作者：wjl-se
--  发布时间：2014/5/20 14:08:00
--  

这里有个可以 表截图

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=31163&replyID=&skin=1

[此贴子已经被作者于2014-5-20 14:12:26编辑过]
--  作者：有点甜
--  发布时间：2014/5/20 14:13:00
--  

 可以做，就是麻烦一些。

 

 截屏的代码如下，自己改造一下

 

Dim myGraphics As Graphics = basemainform.CreateGraphics()

Dim s As new Size(200, 100) \'截取的大小

Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(100, 200, 0, 0, s) \'截取的开始位置,坐标(100, 200)

bit.save("d:\\test.jpg")
--  作者：yangwenghd
--  发布时间：2014/5/20 21:46:00
--  
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(2000, 1000) \'截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(0, 0, 0, 0, s) \'截取的开始位置,坐标(100, 200)
bit.save ("第二列")& "test.jpg"

如果保存到第二列路径文件夹里面是不是这样改啊！
还有就是可以设置为窗口坐标的位置吗？
--  作者：有点甜
--  发布时间：2014/5/20 21:50:00
--  

 呃，这样改

 

Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(2000, 1000) \'截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(0, 0, 0, 0, s) \'截取的开始位置,坐标(100, 200)
bit.save(Tables("表A").Current("第二列") & "\\test.jpg" )
--  作者：yangwenghd
--  发布时间：2014/5/20 22:03:00
--  
如果以窗口的坐标为基准应该怎么改啊！这个问题最后一个问题！感谢 感谢 
--  作者：有点甜
--  发布时间：2014/5/20 22:05:00
--  

以那个窗口为基准？

 

Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(2000, 1000) \'截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(Forms("窗口1").BaseForm.Left, Forms("窗口1").BaseForm.Top, 0, 0, s) \'截取的开始位置,坐标(100, 200)
bit.save(Tables("表A").Current("第二列") & "\\test.jpg" )
[此贴子已经被作者于2014-5-20 22:04:58编辑过]
--  作者：李孝春
--  发布时间：2014/5/21 1:24:00
--  回复：（yangwenghd）狐表可以设计一个按钮像QQ一样截...
学习学习 BIN老师功夫不错 
--  作者：yangwenghd
--  发布时间：2014/5/21 11:17:00
--  
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(916, 355) \'截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(Forms("产品尺寸制作").BaseForm.Left, Forms("产品尺寸制作").BaseForm.Top, 50, 50,s) \'截取的开始位置,坐标(100, 200)
bit.save(Tables("商品库").Current("商品信息_文件地址") & "\\qqqq.jpg" )

错误所在事件：窗口,产品尺寸制作,Button6,Click
详细错误信息：
未将对象引用设置到对象的实例。
这个代表什么啊！
能不能最后在忙我改一下？
当窗口1，TabControl1，在图片方式的时候，截图位置和尺寸就是Panel3
当窗口1，TabControl1，在表格方式的时候，截图位置和尺寸就是Panel2