Graphics "verkleinern"??

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Lukas.

    Graphics "verkleinern"??

    Moin,

    nach ner Zeit beschäftige ich mich mal wieder mit VB, und bin ein wenig mit Graphics-Objekten am malen. Derzeit bin ich dabei, eine Funktion für Thumbnails zu schreiben. Klappt auch gut. (Bereits mit ein bisschen zutun aus dem Netz :P)

    VB.NET-Quellcode

    1. Dim this As Image = Image.FromFile(imag)
    3. Dim maxRatio As Integer = maxwidth / maxheight
    5. Dim imgWidth As Integer = this.Width
    6. Dim imgHeight As Integer = this.Height
    7. Dim imgRatio As Integer = imgWidth / imgHeight
    9. If imgWidth > maxwidth Or imgHeight > maxheight Then
    10. If imgRatio <= maxRatio Then
    11. ' Größenverhältnis des Bildes ist kleiner als die
    12. ' maximale Größe, in der das Bild angezeigt werden kann.
    13. ' In diesem Fall muss die Bildbreite angepasst werden.
    14. imgWidth = imgWidth / (imgHeight / maxheight)
    15. imgHeight = maxheight
    16. Else
    17. ' Größenverhältnis des Bildes ist größer als die
    18. ' maximale Größe, in der das Bild angezeigt werden kann.
    19. ' In diesem Fall muss die Bildhöhe angepasst werden.
    20. imgHeight = imgHeight / (imgWidth / maxwidth)
    21. imgWidth = maxwidth
    22. End If
    23. End If
    25. 'MsgBox(imgWidth.ToString & " " & imgHeight)
    27. Dim saveBitmap As New Bitmap(imgWidth, imgHeight) 'Hier könnte man jetzt das Originalbild hereinzeichen, das Bitmap hätte schon die passende Größe - bloß wie stelle ich das an?
    29. Using g As Graphics = Graphics.FromImage(this)
    30. g.CompositingMode = Drawing2D.CompositingMode.SourceCopy
    32. g.DrawImage(this, 0, 0, imgWidth, imgHeight)
    35. End Using
    36. this.Save("thumb.png")


    "imag" ist das Originalbild, maxwidth und maxheight Integer, die der Funktion mitgegeben werden. Am Ende bekomme ich das Originalbild mit Thumbnail oben rechts darüber. Ich will allerdings nur das Thumbnail an sich.

    Ich stehe total auf dem Schlauch und so langsam nervt mich diese umständliche Programmierei in VB wenn es um grafische Sachen geht schon wirklich an.

    mfg,
    Lukas

    Edit:
    Lösung:

    VB.NET-Quellcode

    1. Dim saveBitmap As New Bitmap(imgWidth, imgHeight)
    3. Using g As Graphics = Graphics.FromImage(saveBitmap)
    4. g.CompositingMode = Drawing2D.CompositingMode.SourceCopy
    6. g.DrawImage(this, 0, 0, imgWidth, imgHeight)
    9. End Using
    10. saveBitmap.Save("thumb.bmp")
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Lukas“ ()

    Gibt es nicht eine explizite ThumbNail-Funktion?

    VB.NET-Quellcode

    1. Image.GetThumbnailImage(...)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Jo, gibt es. Ich mag's umständlich, deshalb muss ich das so machen. :P
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

Facebook
Telefonspende