Keskustelu: Ohjelmointikysymykset: Kuvan tallentaminen pienemmäksi (VB6)

Olisiko mitään koodipätkää tjs, millä voisi tallenttaa kuvan pienempään kokoon esim. jos kuva on 800 x 600 niin se tallentaisi sen esikatselukokoon esim, 200 x 200. Jos ei ole mahdollista Visual Basicilla, niin onko tuohon olemassa mitään ohjelmaa?

PaintPicture-metodilla voit pienentää kuvan haluttuun kokoon pictureboxiin ja tallentaa SavePicture-metodilla, mutta vain bmp-formaatissa.

Kiitoksia nopeasta vastauksesta, nyt toimii mainiosti :)

Jos haluat säilyttää kuvasuhteen:

' tämä on pseudokoodia, ts. koodi ei toimi suoralta kädeltä ilman muokkausta
    Dim UusiLeveys As Integer, UusiKorkeus As Integer

    If Kuva.Width >= Kuva.Height Then
        UusiLeveys = 200
        UusiKorkeus = CInt(CDbl(200) * Kuva.Height / Kuva.Width)
    Else
        UusiKorkeus = 200
        UusiLeveys = CInt(CDbl(200) * Kuva.Width / Kuva.Height)
    End If

Yksinkertaisesti kaava menee siis niin, että pienemmällä luvulla kerrotaan ja isommalla jaetaan, jolloin lopputuloksesta tulee aina pienempi kuin 200.