狐表可以设计一个按钮像QQ一样截图吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 狐表可以设计一个按钮像QQ一样截图吗？

共有4229人关注过本帖树形打印复制链接主题：狐表可以设计一个按钮像QQ一样截图吗？

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

狐表可以设计一个按钮像QQ一样截图吗？ 发帖心情

Post By：2014/5/20 13:46:00 [只看该作者]

狐表可以设计一个按钮像QQ一样截图吗？

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/20 14:01:00 [只看该作者]

直接用QQ截图更加方便,要实现这个功能要费不少周章呢, 单纯的屏幕截图还相对容易一点.

wjl-se

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：762 积分：6302 威望：0 精华：0 注册：2011/12/1 14:47:00

Post By：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编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：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"

如果保存到第二列路径文件夹里面是不是这样改啊！

还有就是可以设置为窗口坐标的位置吗？

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/5/20 22:03:00 [只看该作者]

如果以窗口的坐标为基准应该怎么改啊！这个问题最后一个问题！感谢感谢

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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编辑过]

李孝春

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（yangwenghd）狐表可以设计一个按钮像QQ一样截... 发帖心情

Post By：2014/5/21 1:24:00 [只看该作者]

学习学习 BIN老师功夫不错

yangwenghd

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：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

下一主题 >> << 上一主题

总数 18 1 2 下一页

主题：狐表可以设计一个按钮像QQ一样截图吗？