- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]制作工作证件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98957)
-- 发布时间：2017/4/10 13:16:00
-- [求助]制作工作证件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工作证.rar |
如何把底图和头像合成到一张工作证上，并且打上隶书的字体。
-- 发布时间：2017/4/10 13:46:00
--
ps
-- 发布时间：2017/4/10 13:47:00
--
主要是公司一千多个人，手工PS太慢，想代码解决。
-- 发布时间：2017/4/10 14:05:00
--
最简单的，不是可以用套打吗？
http://www.foxtable.com/webhelp/scr/1608.htm
-- 发布时间：2017/4/10 14:15:00
--
参考代码
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
-- 发布时间：2017/4/10 15:07:00
--
谢谢，解决了我的问题，但是生成的图片有600多K,有没有办法变小点？
-- 发布时间：2017/4/10 15:20:00
--
参考
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
-- 发布时间：2017/4/17 7:42:00
--
有点色真厉害，解决了我的问题，谢谢你了。
-- 发布时间：2017/4/17 8:58:00
--
你可以把你win7下的字体，拷贝到你的win2008那里去。
-- 发布时间：2022/9/5 8:56:00
--
老师我也正需要工作证制作，在论坛里面没看明白，这上面代码放在那个事件中，低图和头像都放在狐表同一行分列放里面吗？还是放在其它地方，没看明白。