ASP.NET(VB) 给图片增加水印文字:指定要添加水印文字的图片
- DimimgAsImage=Image.FromFile(Server.MapPath("~/upload/1.jpg"))
-
- 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)
-
- 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()
ASP.NET(VB)应用之图片增加水印文字的相关信息就向你介绍到这里,希望对你有所帮助。
|