您的位置:首页 > 编程语言 > VB

[VB.NET]图象处理问题,如何添加文字?

2008-12-26 23:27 295 查看



<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

图象处理问题,如何添加文字?
一张图片,如何在上面添加文字和其它图片,并另存为一张新图片?
谢谢!
__________________________________________________________________________
打开图片,用这个图片的Image创建Graphics。
使用Graphics.DrawString画出文字,再使用Image.Save保存成新的图片文件。
__________________________________________________________________________
能详细解释一下吗?我对图形编程不太熟。谢谢!
__________________________________________________________________________
缩略图水印组件wsImage3.5
__________________________________________________________________________
help
__________________________________________________________________________
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.net image 图形 编程