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


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

站内搜索：

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

热门文章

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

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

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

    Private Function GetMinPic(ByVal MaxPic As System.Drawing.Image) As System.Drawing.Image

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

            If MaxPic.Height > MaxPic.Width Then

                MinWidth = MaxPic.Width / (MaxPic.Height / vSmallPicSize)

                MinHeight = vSmallPicSize

            Else

                MinWidth = vSmallPicSize

                MinHeight = MaxPic.Height / (MaxPic.Width / vSmallPicSize)

            End If

            Return MaxPic.GetThumbnailImage(CInt(MinWidth), CInt(MinHeight), Nothing, New System.IntPtr())

        Else

            Return MaxPic

        End If

    End Function

    Enum PicType

        Face = 1

        Photo = 2

        Pic = 3

    End Enum

    Private Function GetRightByChar(ByVal StrValue As String, ByVal CharValue As String) As String

        Dim MyStr() As String = Split(StrValue, CharValue)

        Return MyStr(MyStr.Length - 1)

    End Function

End Class

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

winner

打印本页

关闭窗口

文章评论

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