[سؤال] الحصول علي صورة بمقاس معين وجودة معينة من داخل ايقونة

كود :

Public Function TiffToJpeg(fileName As String) As String()

        Using imageFile As Image = Image.FromFile(fileName)

            Dim frameDimensions As New FrameDimension(imageFile.FrameDimensionsList(0))



            ' Gets the number of pages from the image (if multi-page image)

            Dim frameNum As Integer = imageFile.GetFrameCount(frameDimensions)

            Dim jpegPaths As String() = New String(frameNum) {}



            Dim frame As Integer = 0

            While frame < frameNum

                ' Selects one frame at a time and save as jpeg.

                imageFile.SelectActiveFrame(frameDimensions, frame)

                Using bmp As New Bitmap(imageFile)

                    jpegPaths(frame) = String.Format("{0}\{1}{2}.jpeg",

                                       Path.GetDirectoryName(fileName),

                                       Path.GetFileNameWithoutExtension(fileName), frame)

                    bmp.Save(jpegPaths(frame), ImageFormat.Jpeg)

                End Using

                frame -= 1

            End While



            Return jpegPaths

        End Using

كود :

Imports System.Drawing.Imaging

Imports System.Drawing.Drawing2D



Namespace RiverNile



    Public NotInheritable Class BitmapToIcon



        Private Sub New()

        End Sub



        Public Shared Function Format32bppArgbCopy(sourceBitmap As Bitmap) As Bitmap

            Dim copyBitmap As New Bitmap(sourceBitmap.Width, sourceBitmap.Height, PixelFormat.Format32bppArgb)

            Using graphicsObject As Graphics = Graphics.FromImage(copyBitmap)

                graphicsObject.CompositingQuality = CompositingQuality.HighQuality

                graphicsObject.InterpolationMode = InterpolationMode.HighQualityBicubic

                graphicsObject.PixelOffsetMode = PixelOffsetMode.HighQuality

                graphicsObject.SmoothingMode = SmoothingMode.HighQuality

                graphicsObject.DrawImage(sourceBitmap, New Rectangle(0, 0, sourceBitmap.Width, sourceBitmap.Height), New Rectangle(0, 0, sourceBitmap.Width, sourceBitmap.Height), GraphicsUnit.Pixel)

            End Using

            Return copyBitmap

        End Function



        Public Shared Function CopyToSquareCanvas(sourceBitmap As Bitmap, canvasBackground As Color) As Bitmap

            Dim maxSide As Integer = If(sourceBitmap.Width > sourceBitmap.Height, sourceBitmap.Width, sourceBitmap.Height)

            Dim bitmapResult As New Bitmap(maxSide, maxSide, PixelFormat.Format32bppArgb)

            Using graphicsResult As Graphics = Graphics.FromImage(bitmapResult)

                graphicsResult.Clear(canvasBackground)

                Dim xOffset As Integer = (sourceBitmap.Width - maxSide) \ 2

                Dim yOffset As Integer = (sourceBitmap.Height - maxSide) \ 2

                graphicsResult.DrawImage(sourceBitmap, New Point(xOffset, xOffset))

            End Using

            Return bitmapResult

        End Function



        Public Shared Function CreateIcon(sourceBitmap As Bitmap, iconSize As IconSizeDimensions) As Icon

            Dim squareCanvas As Bitmap = CopyToSquareCanvas(sourceBitmap, Color.Transparent)

            squareCanvas = DirectCast(squareCanvas.GetThumbnailImage(CInt(iconSize), CInt(iconSize), Nothing, New IntPtr()), Bitmap)

            Dim iconResult As Icon = Icon.FromHandle(squareCanvas.GetHicon())

            Return iconResult

        End Function



    End Class



    Public Enum IconSizeDimensions

        IconSize16x16Pixels = 16

        IconSize24x24Pixels = 24

        IconSize32x32Pixels = 32

        IconSize48x48Pixels = 48

        IconSize64x64Pixels = 64

        IconSize96x96Pixels = 96

        IconSize128x128Pixels = 128

    End Enum



End Namespace