方法二:直接绘制进去
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() '打开文件