拓文网络 → .NET编程 → ASP.NET - 制作最清晰缩略图的完整类(VB.NET版)［正文］


		《拓文asp.net网站内容管理系统》官方演示站。	设为首页
			收藏本站
			作者：黄振安
			ＱＱ：53854651

站内搜索：

您现在的位置：拓文网络 → .NET编程 → ASP.NET → 制作最清晰缩略图的完整类(VB.NET版)［正文］

热门文章

asp.net上传图片并同时生成缩略图

制作最清晰缩略图的完整类(VB.NET版)

［作者：不详转贴自：不详点击数：更新时间：2006-2-25 23:50:04］

        '检验数量限制=================================================================

        '保存大文件=================================================================

        vPicFile.PostedFile.SaveAs(HttpContext.Current.Server.MapPath(vUpPicPath & "/max/") & vNewPicName)

        vPicFile.Dispose()

        '缩略图片文件=================================================================

        PicMax = System.Drawing.Image.FromFile(HttpContext.Current.Server.MapPath(vUpPicPath & "/max/") & vNewPicName)

        If Not (PicMax.RawFormat Is PicFormat.Gif Or PicMax.RawFormat Is PicFormat.Png) Then

            If PicMax.Height > vSmallPicSize Or PicMax.Width > vSmallPicSize Then

                vTmpPicName = System.Guid.NewGuid.ToString() & ".png"

                vPicMax = PicMax

                PicMax.Save(HttpContext.Current.Server.MapPath(vUpPicPath & "/max/") & vTmpPicName, PicFormat.Png)

                vPicMax.Dispose()

                PicMax = System.Drawing.Image.FromFile(HttpContext.Current.Server.MapPath(vUpPicPath & "/max/") & vTmpPicName)

            End If

        End If

        '保存小文件=================================================================

        GetMinPic(PicMax).Save(HttpContext.Current.Server.MapPath(vUpPicPath & "/min/") & vNewPicName, PicFormat.Jpeg)

        PicMax.Dispose()

        '删除临时png文件=================================================================

        If vTmpPicName <> "" Then Myfile.Delete(HttpContext.Current.Server.MapPath(vUpPicPath & "/max/") & vTmpPicName)

        Return vNewPicName

    End Function

首页 | 1 | 2 | 3 | 尾页共 3 页

winner

打印本页

关闭窗口

文章评论

	评论人	查看该文章的评论	发表时间
笔名* ： 0 50分 60分 70分 80分 90分 100分评论内容 *：（最多1000字。当前字数：0）
没有相关评论，欢迎您参与！