２没能完成
请问如何仿照这段代码将panel1控件里的内容另存为图片
Dim imgback As image = getimage("g:\底图.jpg")
Dim bmp As new bitmap(imgback.width, imgback.height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height)
Dim img = getimage("g:\头像.jpg")
Dim x As Integer = 177
Dim y As Integer = 150
Dim w As Integer = 192
Dim h As Integer = 238
g.DrawImage(img, x, y, w, h)
Dim fnt As New Font("宋体",16)
Dim msg As String = "foxtable"
g.DrawString(msg,fnt,Brushes.Red,278,422)
bmp.Save("g:\test02.jpg", ImageFormat.Jpeg)
bmp.dispose
加好友 
发短信
Post By：2018/2/28 17:24:00 [显示全部帖子]
