Bild auf genaue Größe bringen (100x100 Pixel)

mrwebber · 7. Juni 2013, 20:10

Hm ... ich denke mir dass es zahlreiche Codes gibt,
aber alle, die ich mit Google und Sufu gefunden habe haben sich an Breite / Höhe orientiert und das Seitenverhältnis beibehalten.
Ich möchte aber ein Bild auf eine genaue Höhe und Breite festlegen ... z.B. 100 x 100 Pixel ...

Hat jemand nen Link oder Code?

Artentus · 7. Juni 2013, 20:16

Das ist doch eigentlich noch viel einfacher, als mit Seitenverhältnis. Gib einfach das Rechteck mit der Größe, die du haben willst an, und fertig.

mrwebber · 7. Juni 2013, 20:17

Hi, welche Klasse definiert ein Rechteck und in welcher Methode soll ich dieses übergeben?

Artentus · 7. Juni 2013, 20:19

Genauso, wie dus auch mit Seitenverhältnis machen würdest. Du erstellst eine Bitmap mit der gewünschten Größe, erzeugst dafür ein Graphics und zeichnest dann mit DrawImage das Ursprungsbild drauf.

mrwebber · 7. Juni 2013, 20:23

Hm. DrawImage (steht in der Beschreibung) zeichnet das Bild allerdings in seiner originalen Größe ...

Mein Code bisher:

VB.NET-Quellcode

Dim bmpAvatar As New Bitmap(100, 100)
Dim g As Graphics = Graphics.FromImage(bmpAvatar)
g.DrawImage(Image.FromFile(sPfad), New Point(0, 0))

Artentus · 7. Juni 2013, 20:28

Es gibt auch eine Überladung, bei der du statt dem Point ein Rectangle übergeben kannst. Damit kannst du dann direkt Position und Größe angeben.

mrwebber · 7. Juni 2013, 20:32

Oh. Vielen, vielen Dank!

EDIT: Hier der Code für die Nachwelt:

VB.NET-Quellcode

Private Sub bildReinladen(ByVal sPfad As String)
Dim bmpAvatar As New Bitmap(100, 100)
Dim g As Graphics = Graphics.FromImage(bmpAvatar)
g.DrawImage(Image.FromFile(sPfad), New Rectangle(New Point(0, 0), New Size(New Point(100, 100))))
picAvatar.Image = bmpAvatar
End Sub

nafets3646 · 7. Juni 2013, 21:11

@mrwebber
Wenn schon, dann bitte richtig ;). Bei deinem Code gibts was zu meckern :P:
-Bitte Graphics-Objekt disposen
-New Size(New Point(100, 100)) Dafuq? Wenn schon so: New Size(100, 100)
-Am besten alles in ne Funktion packen

Hier für die Nachwelt mal ne komplett funktionierende Funktion:

VB.NET-Quellcode

Public Function ResizeImageStretched(ByVal picture As Image, destsize As Size) As Image
Dim bmpReturn As New Bitmap(destsize.Width, destsize.Height)
Using g As Graphics = Graphics.FromImage(bmpReturn)
g.DrawImage(picture, New Rectangle(New Point(0, 0), destsize))
End Using
Return CType(bmpReturn, Image)
End Function

Aufruf geht dann so:

VB.NET-Quellcode

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ResizeImageStretched(Image.FromFile("C:\test.png"), New Size(100, 100))
End Sub

Bild auf genaue Größe bringen (100x100 Pixel)

Bild auf genaue Größe bringen (100x100 Pixel)

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben