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

请上传例子。我能说的都说了。不会改是自己的问题。

把这点事情忙完了我一定好好看看帮助，确实有点急，感谢感谢！
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20140521113130.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:截图.table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:截图.table

还是会报警

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.3.8.1

错误所在事件：窗口,窗口1,Button1,Click

详细错误信息：

未将对象引用设置到对象的实例。

Dim myGraphics As Graphics = basemainform.CreateGraphics()

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")

Dim s As new Size(1,1)

Dim pl As WinForm.Panel

If tb.SelectedPage.Text="Page1" Then

pl=e.Form.Controls("Panel1")

s= new Size(pl.Width ,pl.Height)

Else If tb.SelectedPage.Text="Page2" Then

pl=e.Form.Controls("Panel2")

s= new Size(pl.Width ,pl.Height)

End If

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" )

怎样改对吗？谢谢你们。

13楼的例子,可以正常运作没问题, 自己要有点基本的调试排除技巧.

回复14楼，你的窗口，是停靠窗口？不能用停靠窗口，要用独立窗口。

.BaseForm 停靠窗口是没有的。

停靠窗口是无法精确定位的，你自己改一下红色位置

Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim s As size
Dim pl As WinForm.Panel
If tb.SelectedPage.Text="Page1" Then
    pl=e.Form.Controls("Panel1")
    s= new Size(pl.Width ,pl.Height)
Else If tb.SelectedPage.Text="Page2" Then
    pl=e.Form.Controls("Panel2")
    s= new Size(pl.Width ,pl.Height)
End If
'Dim s As new Size(2000, 1000) '截取的大小

Dim x, y As Integer
x = SysInfo.ScreenWidth - e.Form.width + pl.Left + tb.Left
y = basemainform.controls("MainPages").top + 40 + pl.Top+tb.Top
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(x, y, 0, 0, s) '截取的开始位置,坐标(100, 200)
bit.save("d:\test.jpg" )

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