Scale image

du kan gøre det på denne måde:

System.Drawing.Image g = System.Drawing.Image.FromFile(server.mappath("ditbillede.jpg"));
Bitmap imgOutput = new Bitmap(g, 200, 200);

Den scalerer ikke true size...

Det jeg vil lave er en kode der først undersøger om billede er stort, siden resize det til en thumbnail størrelse (dog større end 100 x 75 px), men den skal samtidig undersøge om højden ikke er større end bredden, fordi billede skal croppes.
Siden har jeg en kode som laver et crop (100 x 75 px) af billedet. Dette billede bliver gemt som thumbnailen.

Håber du forstår mit problem

Har selv lavet løsningen...

Dim img As Image = Image.FromFile(Server.MapPath(imgPath))
                Dim imgFormat As Imaging.ImageFormat = img.RawFormat
                Dim dRatio As Decimal
                Dim iNewWidth As Integer = 0
                Dim iNewHeight As Integer = 0
                Dim iWidth As Integer = 100
                Dim iHeight As Integer = 75

                If img.Width >= ((img.Height / 3) * 4) Then
                    'Resize dimensions by width size
                    dRatio = CType(iWidth / img.Width, Decimal)
                    iNewWidth = iWidth

                    Dim iTemp As Decimal = img.Height * dRatio
                    iNewHeight = CType(iTemp, Integer)
                Else
                    'Resize dimensions by height size
                    dRatio = CType(iHeight / img.Height, Decimal)
                    iNewHeight = iHeight

                    Dim iTemp As Decimal = img.Width * dRatio
                    iNewWidth = CType(iTemp, Integer)
                End If

                Dim bmp As New Bitmap(iNewWidth, iNewHeight)
                Dim g As Drawing.Graphics = Graphics.FromImage(DirectCast(bmp, Drawing.Image))
                g.DrawImage(img, 0, 0, iNewWidth, iNewHeight)
                img.Dispose()
                bmp.Save(Server.MapPath(imgPath), imgFormat)
                bmp.Dispose()

                Call CropImageFile(imgPath, 100, 75, outPath)