Dim file As String = "D:\test.jpg"
Dim txt As String = "张成伟"
Dim img As image = getImage(file)
Dim bmp = new bitmap(img.Width, img.Height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,0,0) '绘制原图片'
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
Dim fnt As new Font("微软雅黑", 10, FontStyle.Bold) '水印文字字体
g.DrawString(txt, fnt, Brushes.Red, new PointF(0,0))
bmp.save("D:\shuiyin.jpg",img.RawFormat)
bmp.Dispose
[此贴子已经被作者于2021/5/18 14:47:03编辑过]