方法一:可以截图,如
Dim trv = e.Form.Controls("picturebox1").BaseControl
Dim point As Point = e.Form.panel.PointToScreen(trv.Bounds.Location)
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(trv.width, trv.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("d:\test.jpg")
memoryGraphics.dispose
myGraphics.dispose
bit.dispose
Dim Proc As New Process '定义一个新的Process
Proc.File = "d:\test.jpg" '指定要打开的文件
Proc.Start() '打开文件