主题：[求助]制作工作证件

最简单的，不是可以用套打吗？

http://www.foxtable.com/webhelp/scr/1608.htm

参考代码

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")
bmp.dispose

参考

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

https://msdn.microsoft.com/zh-cn/library/system.drawing.imaging.imageformat_members(v=vs.80).aspx

 你可以把你win7下的字体，拷贝到你的win2008那里去。

https://www.baidu.com/baidu?wd=%E7%B3%BB%E7%BB%9F+%E5%AE%89%E8%A3%85%E5%AD%97%E4%BD%93&tn=monline_4_dg&ie=utf-8