'截取第一个页面
e.Form.Controls("TabControl1").SelectedIndex = 1
Application.Doevents
Dim trv = e.Form.Controls("PictureBox1").BaseControl
Dim point As Point = e.Form.controls("tabcontrol1").basecontrol.PointToScreen(trv.Bounds.Location)
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(trv.width-20, trv.height-60) '截取的大小
Dim bit As New Bitmap(s.Width, s.Height , myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x+4, point.y+55, 0, 0, s) '截取的开始位置,坐标(100, 200)
bit.save(ProjectPath & "Attachments\图片\" & "TM" & ".jpg")
memoryGraphics.dispose
myGraphics.dispose
bit.dispose
'截取第二个页面
e.Form.Controls("TabControl1").SelectedIndex = 0
Application.Doevents
Dim trv1 = e.Form.Controls("PictureBox2").BaseControl
Dim point1 As Point = e.Form.controls("tabcontrol1").basecontrol.PointToScreen(trv1.Bounds.Location)
Dim myGraphics1 As Graphics = basemainform.CreateGraphics()
Dim s1 As new Size(trv1.width-20, trv1.height-60) '截取的大小
Dim bit1 As New Bitmap(s1.Width, s1.Height , myGraphics1)
Dim memoryGraphics1 As Graphics = Graphics.FromImage(bit1)
memoryGraphics1.CopyFromScreen(point.x+4, point.y+55, 0, 0, s1) '截取的开始位置,坐标(100, 200)
bit1.save(ProjectPath & "Attachments\图片\" & "DA" & ".jpg")
memoryGraphics1.dispose
myGraphics1.dispose
bit1.dispose
msgbox("答案已保存!")
加好友 
发短信
Post By：2019/11/19 12:03:00 [显示全部帖子]
