|
Dim pic1 As winform.picturebox = e.form.controls("picturebox1")
Dim imgback As image = pic1.image
Dim bmp As new bitmap(pic1.width, pic1.height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(imgback, 0, 0, pic1.Width, pic1.Height)
Dim pic2 = e.form.controls("picturebox2")
Dim img = pic2.image
Dim x As Integer = pic2.left
Dim y As Integer = pic2.Top
Dim w As Integer = pic2.width
Dim h As Integer = pic2.height
g.DrawImage(img, x, y, w, h)
Dim fnt As New Font("宋体",16)
Dim lbl1 = e.Form.controls("label1")
Dim msg As String = lbl1.text
g.DrawString(msg,fnt,Brushes.Red,lbl1.left,lbl1.top)
Dim lbl2 = e.Form.controls("label2")
msg = lbl2.text
g.DrawString(msg,fnt,Brushes.Red,lbl2.left,lbl2.top)
bmp.Save("d:\test02.jpg", ImageFormat.Jpeg)
bmp.dispose
|
加好友 
发短信
Post By：2018/2/28 17:29:00 [显示全部帖子]
