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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工作证.rar

如何把底图和头像合成到一张工作证上，并且打上隶书的字体。

ps

主要是公司一千多个人，手工PS太慢，想代码解决。

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

 

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

 

谢谢，解决了我的问题，但是生成的图片有600多K,有没有办法变小点？

参考

 

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

 

老师我也正需要工作证制作，在论坛里面没看明白，这上面代码放在那个事件中，低图和头像都放在狐表同一行分列放里面吗？还是放在其它地方，没看明白。