| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 狐表可以设计一个按钮像QQ一样截图吗？ (http://www.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) 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 |