修改只是改变textbox6的内容，通过预览重新在生成一个图片。预览代码
Dim txt As String = e.Form.Controls("Label19").text & e.Form.Controls("TextBox6").text
Dim sy As WinForm.PictureBox = e.Form.Controls("PictureBox2")
Dim dx As Integer = e.Form.Controls("ComboBox10").Value
'
'
Dim img As Image = Tables("证照明细").Current.DataRow.SQlLoadImage("照片")
Dim g As Graphics = Graphics.FromImage(img)
Dim fnt As New Font("微软雅黑",dx)
Dim size = g.MeasureString(txt, fnt)
g.TranslateTransform((img.width-size.width)/2, img.Height - size.height - 400) '设置文字的绘制起点
g.RotateTransform(-30) '逆时针旋转45度
Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(50, 0, 0, 0)) '水印文字颜色,120是透明度,范围0~255
g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))
img.Save("c:\sy.jpg")
g.Dispose()
sy.ImageFile = "c:\sy.jpg"
清除代码
Dim sy As WinForm.PictureBox = e.Form.Controls("PictureBox2")
sy.Image = Nothing
加好友 
发短信
Post By：2021/5/22 17:29:00 [只看该作者]
此主题相关图片如下：qq截图20210524094002.jpg