读书人

图象处理有关问题怎么添加文字

发布时间: 2012-01-18 00:23:26 作者: rapoo

图象处理问题,如何添加文字?
一张图片,如何在上面添加文字和其它图片,并另存为一张新图片?
谢谢!

[解决办法]
打开图片,用这个图片的Image创建Graphics。
使用Graphics.DrawString画出文字,再使用Image.Save保存成新的图片文件。
[解决办法]
Dim bitmap As Bitmap = ID_Card.My.Resources.Resources.blank '背景图片
Dim bitmap2 As Bitmap = ID_Card.My.Resources.Resources.character1 '要添加的图片
Dim g As Graphics
Dim MYFONT As Font = New Font( "黑体 ", 7) '设置字体为黑体7号
g = Graphics.FromImage(bitmap) '从背景图片开始加东西
g.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit '平滑字体
g.DrawString( "写入文字 ", MYFONT, Brushes.Black, 50, 59) '在(50,59)写字
g.DrawImageUnscaled(bitmap2, 203, 20) '在(203,20)画要添加的图片
Me.PictureBox1.Image = bitmap '生成画好的图片

读书人网 >VB Dotnet

热点推荐