Moin moin
Hab mir noch ein kleines Tool gemacht. Es soll einen Text auf ein Bild schreiben usw...
Das mit dem Text aufs Bild bringen und das erneute abspeichern der neuen jpg-Datei klappt.
Was nicht klappt ist das verkleinern, da kommen seltsame Gebilde raus.
Siehe Bildanhang.
Die schwarze Fläche hat die Abmessungen die das Bild ergeben soll aber das eigentliche Bild wird naja seht mal....
EDIT Nochmal umgebaut .... brachte aber auch keine Verbesserung außer das die schwarze Fläche nun komplett verzogen ist.
Spoiler anzeigen
*Topic verschoben*
Hab mir noch ein kleines Tool gemacht. Es soll einen Text auf ein Bild schreiben usw...
Das mit dem Text aufs Bild bringen und das erneute abspeichern der neuen jpg-Datei klappt.
Was nicht klappt ist das verkleinern, da kommen seltsame Gebilde raus.
Siehe Bildanhang.
Die schwarze Fläche hat die Abmessungen die das Bild ergeben soll aber das eigentliche Bild wird naja seht mal....
EDIT Nochmal umgebaut .... brachte aber auch keine Verbesserung außer das die schwarze Fläche nun komplett verzogen ist.
VB.NET-Quellcode
- Private Sub PutTextonImage()
- Directory.CreateDirectory(Sourcepath & "\Fertige")
- Dim Files As String() = IO.Directory.GetFiles(Sourcepath, "*.jpg")
- Targetpath = Sourcepath & "\Fertige\"
- Me.BeginInvoke(Sub() PB_ani.Visible = True)
- For Each File As String In Files
- Img = Image.FromFile(File)
- Dim ImgName As String = System.IO.Path.GetFileName(File)
- Dim newImage As New Bitmap(Img)
- Dim newText As Graphics = Graphics.FromImage(newImage)
- Dim drawBrush As SolidBrush = New SolidBrush(newColor)
- Dim drawFont As Font = New Font("Segoe UI", 9)
- Dim drawString As String = tb_signatur.Text & MyDatum
- newText.DrawString(drawString, drawFont, drawBrush, 10, 10)
- Dim newFile As String
- newFile = Targetpath & ImgName
- Threading.Thread.Sleep(500)
- Me.BeginInvoke(Sub() lstB_newpic.Items.Add(newFile))
- Me.BeginInvoke(Sub() lbl_datei.Text = "Verarbeite Datei: " & newFile)
- Dim scale_factor As Single = 0.6
- Dim smalImage As New Bitmap(Width, Height)
- Dim g As Graphics = Graphics.FromImage(smalImage)
- g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
- g.DrawImage(newImage, New Rectangle(0, 0, Width, Height), New Rectangle(0, 0, CInt(newImage.Width * scale_factor), CInt(newImage.Height * scale_factor)), GraphicsUnit.Pixel)
- g.Dispose()
- smalImage.Save(newFile, System.Drawing.Imaging.ImageFormat.Jpeg)
- newImage.Dispose()
- smalImage.Dispose()
- Next
- Me.BeginInvoke(Sub() PB_ani.Visible = False)
- End Sub
*Topic verschoben*
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()