Kropning af billedet

Der er lidt fejl i min postede kode. Her er den rettet version...
Hvad gør jeg forkert siden den ikke kropper rigtigt?


Function cropImage()
    Dim filepath As String       
    Dim startX As Integer
    Dim startY As Integer

    filepath = "C:\test.jpg"
    Dim img As Image = Image.FromFile(filepath)
    Dim imgFormat As Imaging.ImageFormat = img.RawFormat
    Dim bmp As Bitmap = New Bitmap(200, 50)
    startX = (img.Width - 200) / 2
    startY = (img.Height - 50) / 2

    Dim g As Graphics = Graphics.FromImage(bmp)
    g.DrawImage(img, 0, 0, New Rectangle(startX, startY, 200, 50), GraphicsUnit.Pixel)
    img.Dispose()
    bmp.Save("C:\thumb_image.jpg", imgFormat)
    bmp.Dispose()
    g.Dispose()       
End Function

Måske?:

    startX = (img.Width / 2 - 200 / 2)
    startY = (img.Height / 2 - 50 / 2)

/theSurfer

Hvis det er korrekt, kan du bruge følgende:


Function cropImage()
    Dim filepath As String       
    Dim startX As Integer
    Dim startY As Integer

    ' --- nye variabler der tages ibrug:
    Dim bredde As Integer
    Dim hojde As Integer
    bredde = 200
    hojde = 50

    filepath = "C:\test.jpg"
    Dim img As Image = Image.FromFile(filepath)
    Dim imgFormat As Imaging.ImageFormat = img.RawFormat
    Dim bmp As Bitmap = New Bitmap(bredde, hojde)
    startX = (img.Width / 2 - bredde / 2)
    startY = (img.Height / 2 - hojde / 2)

    Dim g As Graphics = Graphics.FromImage(bmp)
    g.DrawImage(img, 0, 0, New Rectangle(startX, startY, bredde, hojde), GraphicsUnit.Pixel)
    img.Dispose()
    bmp.Save("C:\thumb_image.jpg", imgFormat)
    bmp.Dispose()
    g.Dispose()       
End Function

/theSurfer

Smider lige et svar, hvis det kan bruges (skal nemlig smutte på arbejde nu)..

/theSurfer

Tak for hjælpen.

Men kvaliteten af thumnailen er ikke helt godt. Hvordan kan jeg lave bedre kvalitet?

Jeg har desværre ingen erfaring med det, så jeg kan ikke fortælle dig hvordan.

/theSurfer

g.PixelOffsetMode = PixelOffsetMode.HighQuality;
g.SmoothingMode = SmoothingMode.HighQuality;
g.CompositingQuality = CompositingQuality.HighQuality;
g.InterpolationMode = InterpolationMode.HighQualityBicubic;
g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit;

jeg kan ikke lige huske hvilken der gør hvad .. men det står på MSDN