请问如何在照相的时候在照片上加名字 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

主题：请问如何在照相的时候在照片上加名字