主题：请教受控文件章的问题

方法一：可以截图，如

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() '打开文件

方法二：直接绘制进去

Dim imgback As image = e.Form.controls("picturebox1").image
Dim bmp As new bitmap(imgback.width, imgback.height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height)

Dim lbl1 As WinForm.Label = e.Form.controls("label1")
Dim msg As String = lbl1.Text
Dim fnt As font = lbl1.Font
g.DrawString(msg,fnt,New SolidBrush(lbl1.ForeColor), lbl1.Left, lbl1.Top)

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

Dim Proc As New Process '定义一个新的Process
Proc.File = "d:\test.jpg"   '指定要打开的文件
Proc.Start() '打开文件