以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  屏幕抓图  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130691)
--  作者：wangjh8888
--  发布时间：2019/1/29 11:10:00
--  屏幕抓图
老师 早，我想把屏幕（x0,y0--x1，y1）区域的图像抓下来，并生成png格式的图像，foxtable可以实现吗，参考哪些知识点？
--  作者：有点甜
--  发布时间：2019/1/29 11:33:00
--  

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
--  作者：wangjh8888
--  发布时间：2019/1/30 14:21:00
--  
老师 好 下面代码图片效果还是有明显的闪烁现象，有何办法改善
Dim Pfilename1 as string = “d:\\aaa.png”
Dim Pfilename2 as string = “d:\\bbb.png”
Dim pbx As WinForm.PictureBox = e.Form.Controls("Pict-Screen-播控面板")
pbx.ImageFile = Pfilename1
pbx.ImageFile = Pfilename2
--  作者：有点蓝
--  发布时间：2019/1/30 17:20:00
--  
这个没有办法，图片加载就这样，图片越大越明显