Picturebox, richtige Koordinaten abgreifen, Bild in Darstellungsgröße speichern

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Picturebox, richtige Koordinaten abgreifen, Bild in Darstellungsgröße speichern

    Neu

    Hallo zusammen,

    aktuell möchte ich Bilder von meinen Modelleisenbahnmodellen transparent machen, in dem ich den weißen Hintergrund entfernen möchte. Klappt aktuell auch schon ganz gut.

    Im zweiten Schritt soll nun mein Bild von allen Seiten beschnitten werden, so dass am Ende ein Rahmen direkt um das Modell entsteht.

    Mit der Maus möchte ich die Y-Achse für Links/Rechts und für Oben / Unten werde ich 2 mal die X Achse festlegen. Bei der Y-Achse wird es fast immer die Kupplungshöhe sein und bei der X Achse der jeweilige höchste Punkt und der tiefste Punkt einer Aufnahme sein. Von diesen Startpunkten wird es dann noch einen kleinen Ausgleichsbereich geben, damit auch ein paar Pixel drum herum die Farbe untersucht wird. Stehen dann die Ergebnisse fest, dann soll erst einmal ein Rahmen / Linien angezeigt werden, die mir das Ganze Ergebnis anzeigen.
    Bestätige ich nun dieses Ergebnis, dann soll auch nur dieser Bereich als neues Bild abgespeichert werden.

    Nur leider bekomme ich das aktuell mit meinem Code nicht so hin.

    Da mein jetziger Code nach dem Laden des nicht transparenten Bildes dies direkt umwandelt und abspeichert, muss also die Prüfung der Farbwerte > color.Transparent sein.

    Ich hänge jetzt erst einmal meinen aktuellen Code kpl. an. Da gibt es am Ende mit Sicherheit noch optimierungsbedarf, aber erst einmal will ich das Problem gelöst haben bzw. den Grund für meine Schwierigkeiten herausbekommen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Imports System.Drawing
    3. Public Class Form1
    4. Dim farbe As Color
    5. Dim mw_farbe As Integer
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    9. Dim Dateipfad As String
    11. Dateipfad = "C:\Temp\Testlok.jpg"
    12. 'Dateipfad = "D:\Temp\Testwagen.jpg"
    14. PictureBox1.Image = Image.FromFile(Dateipfad)
    15. PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
    17. Dim bild As Bitmap = PictureBox1.Image
    19. Dim Schwelle As Integer = LBl_Schwellenwert.Text ' hier Deinen Wert vorgeben
    20. For x As Int32 = 0 To bild.Width - 1
    21. For y As Int32 = 0 To bild.Height - 1
    22. farbe = bild.GetPixel(x, y)
    23. mw_farbe = (CInt(farbe.R) + CInt(farbe.G) + CInt(farbe.B)) / 3
    24. If mw_farbe < Schwelle Then
    25. bild.SetPixel(x, y, farbe)
    26. Else
    27. bild.SetPixel(x, y, Color.Pink)
    28. End If
    29. Next
    30. Next
    32. ' Transparente Farbe festlegen
    33. bild.MakeTransparent(System.Drawing.Color.Pink)
    35. bild = PictureBox1.Image
    36. 'bild.Save("C:\Temp\Test_Transparent.png", Imaging.ImageFormat.Png) 'Bitmap abspeichern
    38. 'bild = Nothing 'und aus dem ram werfen, wenn du In der Sub noch was machen willst.
    40. Dim Pic1 As New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)
    42. Dim g As Graphics = Graphics.FromImage(Pic1)
    43. Pic1.Save("C:\Temp\Test_Transparent.png", System.Drawing.Imaging.ImageFormat.Png)
    44. Pic1.Dispose()
    46. End Sub
    48. Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
    49. Me.LBl_Schwellenwert.Text = Me.TrackBar1.Value
    50. End Sub
    52. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    53. Me.WindowState = FormWindowState.Maximized
    54. Me.LBl_Schwellenwert.Text = 235
    55. Me.TrackBar1.Value = Me.LBl_Schwellenwert.Text
    56. End Sub
    58. Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick
    59. Me.LabelX.Text = e.X
    60. Me.LabelY.Text = e.Y
    62. Dim Bild As New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)
    63. Dim Farbe As Color
    65. Farbe = Bild.GetPixel(e.X, e.Y - 1)
    66. LBL_FarbeA.Text = CInt(farbe.A)
    67. LBL_FarbeR.Text = CInt(farbe.R)
    68. LBL_FarbeG.Text = CInt(farbe.G)
    69. LBL_FarbeB.Text = CInt(farbe.B)
    70. LBL_FarbeRGB.BackColor = Color.FromArgb(LBL_FarbeA.Text, LBL_FarbeR.Text, LBL_FarbeG.Text, LBL_FarbeB.Text)
    72. End Sub
    73. Private Sub Btn_Links_Eingrenzen_Click(sender As Object, e As EventArgs) Handles Btn_Links_Eingrenzen.Click
    74. Dim Bild As New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)
    75. Dim Weiter As Boolean = True
    77. For y As Int32 = CInt(Me.LabelY.Text) - 40 To CInt(Me.LabelY.Text) + 40
    79. For x As Int32 = 1 To Bild.Width - 1
    80. Try
    82. farbe = Bild.GetPixel(x, y)
    84. Catch ex As Exception
    86. farbe = Color.White
    87. Bild.SetPixel(x, y, Color.Pink)
    89. End Try
    91. mw_farbe = (CInt(farbe.A) + CInt(farbe.R) + CInt(farbe.G) + CInt(farbe.B)) / 3
    93. Label1.Text = mw_farbe
    95. If mw_farbe > 0 Then
    97. Dim g As System.Drawing.Graphics
    98. Dim pen1 As New System.Drawing.Pen(Color.Black, 3)
    100. g = PictureBox1.CreateGraphics
    101. x = x - 7
    102. g.DrawLine(pen1, x, 10, x, PictureBox1.Height - 10)
    104. Weiter = False
    105. Exit For
    106. Else
    108. End If
    110. Bild.SetPixel(x, y, Color.Red)
    111. Next x
    113. If Weiter = False Then
    115. Exit For
    117. End If
    119. Next y
    121. End Sub
    123. Private Sub Btn_Rechts_Eingrenzen_Click(sender As Object, e As EventArgs) Handles Btn_Rechts_Eingrenzen.Click
    124. Dim Bild As New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)
    125. Dim Weiter As Boolean = True
    127. For y As Int32 = CInt(Me.LabelY.Text) - 40 To CInt(Me.LabelY.Text) + 40
    128. For x As Int32 = Bild.Width - 1 To 1 Step -1
    129. Try
    131. farbe = Bild.GetPixel(x, y)
    133. Catch ex As Exception
    135. farbe = Color.White
    136. Bild.SetPixel(x, y, Color.Pink)
    138. End Try
    140. mw_farbe = (CInt(farbe.R) + CInt(farbe.G) + CInt(farbe.B)) / 3
    142. Label1.Text = mw_farbe
    144. If mw_farbe > 0 Then
    146. Dim g As System.Drawing.Graphics
    147. Dim pen1 As New System.Drawing.Pen(Color.Black, 3)
    149. g = PictureBox1.CreateGraphics
    150. x = x - 7
    151. g.DrawLine(pen1, x, 10, x, PictureBox1.Height - 10)
    153. Weiter = False
    154. Exit For
    156. End If
    158. Next x
    160. If Weiter = False Then
    162. Exit For
    164. End If
    166. Next y
    168. End Sub
    169. Private Sub Btn_Oben_Eingrenzen_Click(sender As Object, e As EventArgs) Handles Btn_Oben_Eingrenzen.Click
    170. Dim Bild As New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)
    171. Dim Weiter As Boolean = True
    173. For x As Int32 = CInt(Me.LabelX.Text) - 20 To CInt(Me.LabelX.Text) + 20
    175. For y As Int32 = CInt(Me.LabelY.Text) To Bild.Height - 1
    177. Try
    179. farbe = Bild.GetPixel(x, y)
    181. Catch ex As Exception
    183. farbe = Color.White
    184. Bild.SetPixel(x, y, Color.Pink)
    186. End Try
    188. mw_farbe = (CInt(farbe.R) + CInt(farbe.G) + CInt(farbe.B)) / 3
    190. Label1.Text = mw_farbe
    192. If mw_farbe > 0 Then
    194. Dim g As System.Drawing.Graphics
    195. Dim pen1 As New System.Drawing.Pen(Color.Black, 3)
    197. g = PictureBox1.CreateGraphics
    199. g.DrawLine(pen1, 10, y, PictureBox1.Width - 10, y)
    201. Weiter = False
    202. Exit For
    204. End If
    206. Next y
    208. If Weiter = False Then
    210. Exit For
    212. End If
    214. Next x
    216. End Sub
    218. Private Sub Btn_Unten_Eingrenzen_Click(sender As Object, e As EventArgs) Handles Btn_Unten_Eingrenzen.Click
    220. End Sub
    222. End Class


    Des weiteren noch ein paar Screenshots von dem bisherigen Ergebnissen
    Bild1 = Der kleine rote Punkt ist die ungefähre Stelle, an der ich die Y Achse bestimmt habe. Die beiden senkrechten Striche von außen gesehen, sind meine Hilfslinien, die mir das Ergebnis anzeigen. Sie sind also noch sehr weit weg vom Endergebnis.
    Bild2 = Auch hier kurz von dem Puffer einen Mausklick gemacht
    Testlok.jpg (2032 x 1088 Pixel) = Da ich aus rechtlichen Gründen sicher sein will, habe ich mir eine Lok eh mit CorelDraw selbst gezeichnet und diese genommen. Den Hintergrund habe ich nachträglich mit Paint.Net weiß eingefärbt und als JPG - Datei abgespeichert.
    Testwaggon.jpg (2032 x 1088 Pixel) = Hier das gleiche und etwas breiteres Bild

    Das schwarze Rechteck oben im blauen Panel soll mir eigentlich die aktuelle Farbe meines Mausklick-Koordinatenpunktes anzeigen. Wir ihr aber seht, ist dort aber kein Schwarz zu sehen. Bei dem Wagen stimmt die Anzeige eigentlich auch nicht.

    Ich befürchte, dass hat etwas mit dem Zoomen der Grafik zu tun. Der GetPixel-Befehl greift hier ggf. nicht auf die Anzeige zurück, sondern auf das Bild, welches ohne Zoom entstehen würde. Aber auch dies habe ich mal mit dem Wagenbild getestet (Ergebnis Bild 3, Zeile PictureBox1.SizeMode = PictureBoxSizeMode.Zoom habe ich deaktiviert).

    Habt Ihr eine Idee, was ich machen muss, damit mein Bild richtig erkannt wird und dann mit diesem Bereich abgespeichert werden kann?

    Bin mal auf Eure Antworten gespannt.

    Volker

    *Topic verschoben*
    Bilder

    • Testlok.jpg

      95,07 kB, 2.032×1.088, 2 mal angesehen

    • Testwagen.jpg

      97,41 kB, 2.032×1.088, 1 mal angesehen

    • Bild1.png

      47,02 kB, 1.917×1.037, 1 mal angesehen

    • Bild2.png

      48,54 kB, 1.916×1.039, 3 mal angesehen

    • Bild3.jpg

      154,17 kB, 1.912×1.039, 2 mal angesehen

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Neu

    @Volker Bunge Ich habe das Gefühl, dass Du Dir viel zu viel Arbeit machst.
    Warum sind Deine Eisenbahn-Bilder so riesig groß (2000 x 1000 Pixel)?
    Bearbeite Deine Bilder in Paint, speichere sie als PNG ab.
    Schreibe Dir ein kleines Programm, mit dem Du Deine ansonsten fertigen Bilder transparent machst und die transparenten Bilder ebenfalls als PNG abspeicherst.
    Füge diese Bilder unter sinnvollen Namen Deinen Projektressourcen hinzu.
    Zeichne diese Bilder dahin, wo sie erscheinen sollen.
    Was für Probleme gibt es?
    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!

    Neu

    Hallo RodFromGermany,

    genau diese Bearbeitung wollte ich mir erleichtern. Mit Paint bzw. Paint.Net den weißen Hintergrund wegzubekommen ist jetzt auch nicht so einfach, gerade in den kleinen Zwischenräumen.

    Das Testbild ist tatsächlich vielleicht etwas groß, aber später sollen die Bilder auch eine gute Qualität haben.

    Die Möglichkeit, das Motiv in einem Rechteck fangen zu können, wäre halt insofern schön, das ich mit diesen Bildern dann so einiges machen könnte.

    Hast Du den eine Idee, warum mein Plan so nicht funktioniert, den Anfang und das Ende meines Bildes zu ermitteln? Das würde mich schon sehr interessieren, warum das nicht klappt bzw. wie es klappen könnte.

    Die Bilder sollen nicht als Projektrescource genutzt werden (aber das ist ja nebenbei erwähnt).

    Aufgrund der Masse an späteren Bildern wäre halt eine möglichst vollautomatische Lösung nice.

    Gruß
    Volker

    Neu

    Volker Bunge schrieb:

    den Anfang und das Ende meines Bildes zu ermitteln
    Alle Zeilen von oben und unten sowie die Spalten von rechts und von links nach dem ersten signifikanten Pixel durchsuchen.
    Wenn Du die Bilder vorher schneidest, entfällt diese Suche.
    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!