主题：屏幕抓图

老师 早，我想把屏幕（x0,y0--x1，y1）区域的图像抓下来，并生成png格式的图像，foxtable可以实现吗，参考哪些知识点？

1、参考

 

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\test.jpg")
    msgbox("保存到了d盘")
End If

 

2、参考

 

Dim point As Point = new point(20, 30) 'x1,y1
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(100, 50) '截取的大小
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) '

bit.save("d:\test.jpg")
bit.dispose

Dim proc As new Process
proc.File = "d:\test.jpg"
proc.start

这个没有办法，图片加载就这样，图片越大越明显