ASP.NET(VB) 给图片增加水印文字
2009-04-09 17:04
561 查看
'指定要添加水印文字的图片
DimimgAsImage=Image.FromFile(Server.MapPath("~/upload/1.jpg"))
'创建一个位图对象以供绘图操作(不能直接操作BMP以外的格式,可能吧)
DimbitmapAsNewBitmap(343,498)
'要绘制文字的字体
DimfAsNewFont("微软雅黑",16,FontStyle.Underline)
'文字内容
DimstrAsString=TextBox5.Text
'创建一个绘制图像的对象
DimgAsGraphics=Graphics.FromImage(bitmap)
'线条的坐标
Dimx1,x2,y1,y2,s1,s2AsInteger
x1=CType(TextBox1.Text,Integer)
x2=CType(TextBox2.Text,Integer)
y1=CType(TextBox3.Text,Integer)
y2=CType(TextBox4.Text,Integer)
'文字的坐标
s1=CType(TextBox6.Text,Integer)
s2=CType(TextBox7.Text,Integer)
'限定绘图的范围
g.DrawImage(img,0,0,343,498)
'绘制文字
g.DrawString(str,f,Brushes.Red,s1,s2)
'绘制线条
g.DrawLine(Pens.White,x1,x2,y1,y2)
'绘制完成后的保存路径
DimiimgAsString="~/upload/11.jpg"
Dimimg1AsString=Server.MapPath(iimg)
'JPG图像质量参数
DimepAsImaging.EncoderParameters=NewImaging.EncoderParameters
'图像质量值
ep.Param(0)=NewImaging.EncoderParameter(Imaging.Encoder.Quality,CLng(TextBox8.Text))
'以流方式读取图像内容
DimcodecsAsImaging.ImageCodecInfo()=Imaging.ImageCodecInfo.GetImageEncoders
DimiciAsImaging.ImageCodecInfo
ForEachcodecAsImaging.ImageCodecInfoIncodecs
Ifcodec.MimeType="image/jpeg"Then
ici=codec
EndIf
Next
'保存绘制好的图像
bitmap.Save(img1,ici,ep)
Image1.ImageUrl=iimg
'释放对象
g.Dispose()
bitmap.Dispose()
img.Dispose()
新闻来自: 新客网(www.xker.com) 详文参考:http://www.xker.com/page/e2008/1215/66441.html
DimimgAsImage=Image.FromFile(Server.MapPath("~/upload/1.jpg"))
'创建一个位图对象以供绘图操作(不能直接操作BMP以外的格式,可能吧)
DimbitmapAsNewBitmap(343,498)
'要绘制文字的字体
DimfAsNewFont("微软雅黑",16,FontStyle.Underline)
'文字内容
DimstrAsString=TextBox5.Text
'创建一个绘制图像的对象
DimgAsGraphics=Graphics.FromImage(bitmap)
'线条的坐标
Dimx1,x2,y1,y2,s1,s2AsInteger
x1=CType(TextBox1.Text,Integer)
x2=CType(TextBox2.Text,Integer)
y1=CType(TextBox3.Text,Integer)
y2=CType(TextBox4.Text,Integer)
'文字的坐标
s1=CType(TextBox6.Text,Integer)
s2=CType(TextBox7.Text,Integer)
'限定绘图的范围
g.DrawImage(img,0,0,343,498)
'绘制文字
g.DrawString(str,f,Brushes.Red,s1,s2)
'绘制线条
g.DrawLine(Pens.White,x1,x2,y1,y2)
'绘制完成后的保存路径
DimiimgAsString="~/upload/11.jpg"
Dimimg1AsString=Server.MapPath(iimg)
'JPG图像质量参数
DimepAsImaging.EncoderParameters=NewImaging.EncoderParameters
'图像质量值
ep.Param(0)=NewImaging.EncoderParameter(Imaging.Encoder.Quality,CLng(TextBox8.Text))
'以流方式读取图像内容
DimcodecsAsImaging.ImageCodecInfo()=Imaging.ImageCodecInfo.GetImageEncoders
DimiciAsImaging.ImageCodecInfo
ForEachcodecAsImaging.ImageCodecInfoIncodecs
Ifcodec.MimeType="image/jpeg"Then
ici=codec
EndIf
Next
'保存绘制好的图像
bitmap.Save(img1,ici,ep)
Image1.ImageUrl=iimg
'释放对象
g.Dispose()
bitmap.Dispose()
img.Dispose()
新闻来自: 新客网(www.xker.com) 详文参考:http://www.xker.com/page/e2008/1215/66441.html
相关文章推荐
- ASP.NET(VB) 给图片增加水印文字
- ASP.NET(VB) 给图片增加水印文字
- Asp.net简单实现给图片增加文字水印
- Asp.net简单实现给图片增加文字水印
- 使用ASP.net(C#)批量上传图片并自动生成缩略图,文字水印图,图片水印图
- ASP.NET(C#)图片加文字、图片水印
- ASP.NET图片上传,加水印文字和水印图片!
- asp.net如何在图片上加水印文字
- asp .net 为图片添加文字水印(内包含有加图片水印的方法,但尚未完善暂不能使用)
- ASP.NET(C#)图片加文字、图片水印
- C# asp.net上传图片加水印文字(个人心得)
- ASP.NET(C#)图片加文字、图片水印
- asp.net实现图片添加文字及图片水印
- Asp.Net文件上传【包括上传原图,图片水印图,文字水印图,缩略图】
- asp.net如何在图片上加水印文字具体实现
- ASP.NET 上传图片添加文字、Logo水印
- Asp.Net 生成验证码,清空缓存,分页方法,生成图片水印,防注入过滤,页面过滤HTML,文字转图片
- asp.net如何在图片上加水印文字具体实现
- Asp.net上传图片同时生成文字水印图,图片水印图,缩略图
- Asp.net 上传图片添半透明图片或文字水印的方法(二)