Resize billeder

må vi se din rutine. Noget tyder på du gemmer det forkerte Image-object

Rutinen er endnu meget simpel:

Filnavn = "C:\eksempel.jpg"
'Lav den rette størrelse af boxen
Billed.Height = 300
Billed.Width = 100
Billed.SizeMode = PictureBoxSizeMode.StretchImage
Billed.Image = Image.FromFile(Filnavn)
'Gem billedet igen
Billed.Image.Save("c:\test.jpg")

Venlig hilsen

Jan Pedersen

mon ikke du skal sætte Height og Width EFTER du loader dit billede (Image.FromFile). Hvis jeg ikke husker helt forkert, vil alle de indstillinger du har lavet lige før blive overskrevet af de indstillinger det billede du loader har.

Nej desværre. Billedet vises godt nok i den resizede størrelse på skærmen, men bliver stadig gemt i den originale størrelse.
Jeg prøvede lige at flytte height og width efter load, men det hjalp ikke.

Billed... er det en picturebox? I så fald, så har du jo aldrig resizet selve billedet, men kun den box den skal vises i.

Prøv istedet at lave et nyt image-object med den rette størrelse du gemmer det gamle billede over i:

Dim newImg As Image = New Bitmap(Billed.Height, Billed.Width)
Dim g As Graphics = Graphics.FromImage(newImg)
g.DrawImage(Billed.Image, 0, 0, newImg.Height, newImg.Width)
newImg.Save("c:\test.jpg")