Dim Lineleft As WinForm.Line = e.Form.Controls("Lineleft")
Dim Linetop As WinForm.Line = e.Form.Controls("Linetop")
Dim Lineright As WinForm.Line = e.Form.Controls("Lineright")
Dim Linebottom As WinForm.Line = e.Form.Controls("Linebottom")
Dim PictureBox5 As WinForm.PictureBox = e.Form.Controls("PictureBox5")
Dim point As Point = e.Form.panel.PointToScreen(new point(Lineleft.Left+10,Lineleft.Top))
Lineleft.Visible = False
Linetop.Visible = False
Lineright.Visible = False
Linebottom.Visible = False
Application.Doevents
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(Linetop.Width, Lineleft.Height) '截取的大小
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) '截取的开始位置,坐标(100, 200)
bit.save(ProjectPath & "123.jpg")
memoryGraphics.dispose
myGraphics.dispose
bit.dispose
Application.Doevents
e.Form.Controls("PictureBox2").image = getimage(ProjectPath & "123.jpg")
Lineleft.Visible = True
Linetop.Visible = True
Lineright.Visible = True
Linebottom.Visible = True
加好友 
发短信
Post By：2019/11/17 20:06:00 [只看该作者]
此主题相关图片如下：1.png
