大图生小图的源码(VB.NET)
点击次数：28 次 发布日期：2008-11-26 10:57:06 作者：源代码网
|
源代码网推荐 Dim tempfilename As String 源代码网推荐 "高质量图像名称 源代码网推荐 imagefilename = Server.MapPath(".") & "image" & Now.Year.ToString & Now.Month.ToString & Now.Day.ToString & Now.Hour.ToString & Now.Minute & Now.Second.ToString & filetype 源代码网推荐 tempfilename = filename.PostedFile.FileName "原始图像 源代码网推荐 ""大图生小图，生成统计长度 源代码网推荐 Dim image As System.Drawing.Image 源代码网推荐 image = System.Drawing.Image.FromFile(tempfilename) 源代码网推荐 """""""按照比例相应缩小， 源代码网推荐 Dim iscal As Integer 源代码网推荐 If image.Width / 400 > image.Height / 300 Then 源代码网推荐 iscal = image.Width / 400 源代码网推荐 Else 源代码网推荐 iscal = image.Height / 300 源代码网推荐 End If 源代码网推荐 " If image.Width > 400 Or image.Height > 300 Then """"设置是否要生成略缩图 源代码网推荐 "’取得图像大小的位置 源代码网推荐 Dim size As System.Drawing.Size 源代码网推荐 size = New System.Drawing.Size(image.Width / iscal, image.Height / iscal) 源代码网推荐 "新建一个图片() 源代码网推荐 Dim ibitmap As System.Drawing.Bitmap = New System.Drawing.Bitmap(size.Width, size.Height) 源代码网推荐 "新建一个画版 源代码网推荐 Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ibitmap) 源代码网推荐 "设置高质量插值法 源代码网推荐 g.InterpolationMode = Drawing.Drawing2D.InterpolationMode.High 源代码网推荐 "设置高质量,低速度呈现平滑程度 源代码网推荐 g.SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQuality 源代码网推荐 g.Clear(Color.Blue) 源代码网推荐 "在指定位置画图片 源代码网推荐 g.DrawImage(image, New System.Drawing.Rectangle(0, 0, ibitmap.Width, ibitmap.Height), _ 源代码网推荐 New System.Drawing.Rectangle(0, 0, image.Width, image.Height), GraphicsUnit.Pixel) 源代码网推荐 If filetype = ".gif" Then 源代码网推荐 ibitmap.Save(imagefilename, System.Drawing.Imaging.ImageFormat.Gif) 源代码网推荐 End If 源代码网推荐 If filetype = ".jpg" Then 源代码网推荐 ibitmap.Save(imagefilename, System.Drawing.Imaging.ImageFormat.Jpeg) 源代码网推荐 End If 源代码网推荐 "取得原图像的普通缩略图 源代码网推荐 "Dim img As System.Drawing.Image = image.GetThumbnailImage(300, 200, null, IntPtr.Zero) 源代码网推荐 g.Dispose() 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
