In Picturebox zeichnen und dann in eine Datei speichern

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

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von dive26.

    In Picturebox zeichnen und dann in eine Datei speichern

    Hallo Leute,

    entschuldigt wenn ich wieder einmal eine naive "Ein- und Umsteigerfrage" habe und das ganze falsch angehe. Aber ich weis zur Zeit nicht recht weiter. Ich möchte mit der Maus auf eine Picturebox zeichnen können. Das geht soweit mit folgendem Code. Nun möchte ich den Inhalt der Picturebox in eine Datei speichern.

    Zur Info: Die Picturebox ist bereits während der Entwicklugnszeit mit einem weißen Bild (800x500 Pixel) gefüllt.

    Führe ich folgenden Code aus, dann kann ich auf der Picturebox zeichnen. Wenn ich aber die Picturebox abspeichere, dann wird nur das weiße Bild gespeichert, nicht jedoch die gezeichneten Linien (die ich aber am Bildschirm sehe).

    Wie kann ich das geladene Bilde mit den gezeichneten Linien vor dem Speichern "Zusammenführen"?

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class frm_Handschriftlich
    4. Private lastPoint As Point
    5. Private pdraw As Boolean
    6. Private cl As Color = Color.Red
    7. Private w As Integer = 4
    9. ''' <summary>
    10. ''' Speichert das Image der Picturebox in eine JPG Datei
    11. ''' </summary>
    12. ''' <param name="sender"></param>
    13. ''' <param name="e"></param>
    14. ''' <remarks></remarks>
    15. Private Sub btn_Speichern_Click(sender As Object, e As EventArgs) Handles btn_Speichern.Click
    16. Me.PictureBox1.Image.Save(Path.Combine(FlexX_Datenverzeichnis, "handschrift.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
    17. Me.Close()
    18. End Sub
    20. Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
    21. If e.Button = Windows.Forms.MouseButtons.Left Then
    22. pdraw = True
    23. lastPoint = e.Location
    24. End If
    25. End Sub
    27. Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
    28. If pdraw AndAlso e.Location <> lastPoint Then
    29. Using g As Graphics = PictureBox1.CreateGraphics
    30. g.FillEllipse(New SolidBrush(cl), lastPoint.X - w \ 2, lastPoint.Y - w \ 2, w, w)
    31. g.DrawLine(New Pen(cl, w), lastPoint, e.Location)
    32. lastPoint = e.Location
    33. End Using
    34. End If
    35. End Sub
    37. Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
    38. pdraw = False
    39. End Sub
    40. End Class
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    Danke Sonne für den Link,

    Wie bekomme ich die Funktion von "PictureBox1_MouseMove" in das Paint Event?

    Du musst Dir die praktische Anwendung so vorstellen:

    Das Fenster mit der "Zeichenfläche" (Picturebox) wird geöffnet. Der User kann nun mit der Maus oder mit dem Finger am Touchscreen etwas auf diese "Zeichenfläche" kritzeln und das ganze dann mit "Absenden" als Datei speichern.

    LG Roland
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    Wozu brauchst du unbedingt eine PictureBox? Du kannst ein Panel draufmachen und im MausMove-Event Me.Invalidate aufrufen, damit wird die ganze Form neu gezeichnet (und somit Paint-Event aufgerufen). Dieser Methode kannst du auch Koordinaten eines Rechtecks (also des Panels dann) übergeben, falls auf deiner Form sich weitere Elemente befindet, die nicht neu gezeichnet werden sollen.

    Super, vielen Dank LaMiy!!!!

    Mit Deinem Tipp und mit der Verwendung eines Initialbildes im Format jpg (statt gif oder bmp) funktioniert das nun einwandfrei und so wie von mir erwartet. Danke, Danke, Danke!! :thumbsup:

    VB.NET-Quellcode

    1. Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
    2. If pdraw AndAlso e.Location <> lastPoint Then
    3. 'Using g As Graphics = PictureBox1.CreateGraphics
    4. Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
    5. g.FillEllipse(New SolidBrush(cl), lastPoint.X - w \ 2, lastPoint.Y - w \ 2, w, w)
    6. g.DrawLine(New Pen(cl, w), lastPoint, e.Location)
    7. lastPoint = e.Location
    8. End Using
    9. PictureBox1.Refresh()
    10. End If
    11. End Sub
    Bilder

    • 13052014173459.jpg

      128,35 kB, 800×600, 218 mal angesehen
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    @sonne75 Versteh' ich nicht so ganz. Er möchte ja auf das Bild zeichnen. Da muss ich ja nicht die Form neuzeichnen wenn sich das Bild im Panel (oder einem anderen Container) befindet.
    Aber ich glaube ich weiß worauf du hinaus willst.

    Btw. Das Form-Paint-Event wird nicht aufgerufen, sondern ausgelöst. Lediglich die Behandlermethode wird aufgerufen.
    (Sorry wegen der Klugscheißerei, aber so wie ich dein Auftreten kenne nimmst du es mir nicht übel und freust dich über das neue Wissen :D
    (leider konnte ich kein typ. DataSet mit reinbringen :P ))

    dive26 schrieb:

    Zusammenführen
    Probier mal dies, eine separate Bitmap, Code kann noch optimiert werden:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Private lastPoint As Point
    4. Private pdraw As Boolean
    5. Private cl As Color = Color.Red
    6. Private w As Integer = 4
    7. Private FlexX_Datenverzeichnis As String = "c:\temp\"
    9. Private bmp As Bitmap = New Bitmap(500, 500)
    11. ''' <summary>
    12. ''' Speichert das Image der Picturebox in eine JPG Datei
    13. ''' </summary>
    14. ''' <param name="sender"></param>
    15. ''' <param name="e"></param>
    16. ''' <remarks></remarks>
    17. Private Sub btn_Speichern_Click(sender As Object, e As EventArgs) Handles Button1.Click
    18. Me.bmp.Save(Path.Combine(FlexX_Datenverzeichnis, "handschrift.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
    19. Me.Close()
    20. End Sub
    22. Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
    23. If e.Button = Windows.Forms.MouseButtons.Left Then
    24. pdraw = True
    25. lastPoint = e.Location
    26. End If
    27. End Sub
    29. Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
    30. If pdraw AndAlso e.Location <> lastPoint Then
    31. Using g As Graphics = Graphics.FromImage(bmp) 'PictureBox1.CreateGraphics
    32. g.FillEllipse(New SolidBrush(cl), lastPoint.X - w \ 2, lastPoint.Y - w \ 2, w, w)
    33. g.DrawLine(New Pen(cl, w), lastPoint, e.Location)
    34. lastPoint = e.Location
    35. End Using
    36. End If
    37. PictureBox1.Image = bmp
    38. End Sub
    40. Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
    41. pdraw = False
    42. End Sub
    44. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    45. Me.PictureBox1.Image = New Bitmap(500, 500)
    46. End Sub
    47. End Class
    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!

    LaMiy schrieb:

    leider konnte ich kein typ. DataSet mit reinbringen

    Ich bin mit @ErfinderDesRades weder verwandt noch verschwägert :P

    LaMiy schrieb:

    Er möchte ja auf das Bild zeichnen


    Muss aber nicht, das war meine Aussage. Er kann auch direkt auf Form zeichnen (so habe ich es zumindest in diversen Threads aufgeschnappt, dass es die bevorzugte Art und Weise ist). Und dafür muss dann halt Me.Invalidate aufgerufen werden, dafür kann man den Bereich einschränken.

    Und natürlich nehme ich es nicht übel, bin selbst häufig genug eine Korinthenkackerin :P

    Danke Euch allen,

    dass ich nicht zwingend auf eine Picturebox zeichnen muss, sondern auch auf eine Form oder ein Panel kann, dass habe ich verstanden. Danke für den Hinweis.

    @Rod
    Ich muss keine anderen Bitmaps zur Laufzeit laden. In der Entwicklungszeit wird einfach ein weißes JPG-Bild (weißer Hintergrund) aus den Ressourcen eingebunden und das reicht vollkommen für meinen Einsatzzweck.

    Gespeichert wird das Bild dann natürlich auch unter einem anderen Dateinamen- und Pfad. Der Fixpfad ist nur zu Testzwecken drin.

    Und entschuldigt, dass ich kein Dataset verwendet habe :D
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    dive26 schrieb:

    Ich muss keine anderen Bitmaps zur Laufzeit laden
    Ich auch nicht, ich brauch nicht mal eine leere Datei. :D
    Das, was Du im Designer gemacht hast, hab ich im Code gemacht und ist somit für alle hier sofort ersichtlich. Dir nun auch?
    Meine Bitmap muss nur noch "geweißt" werden.
    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!

    Versteh ich schon, Rod.

    Aber ich müsste bei Deiner Variante bei der Installation noch eine Datei irgendwo mit hin kopieren, wo die Gefahr besteht, dass diese vom User irgendwann einmal gelöscht wird und dann nicht mehr für diese Zwecke vorhanden ist. Daher befindet die sich in den Ressourcen.
    Natürlich lade ich das Bild im onLoad Ereignis der Form nochmals rein, da ja bei jedem Aufruf eine weiße Zeichenfläche vorhanden sein soll:

    VB.NET-Quellcode

    1. PictureBox1.Image = My.Resources.weiss800x5001


    Das oben gepostete war ja nur für meine Frage bezüglich des Zeichnens und Speicherns.
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    dive26 schrieb:

    Aber ich müsste bei Deiner Variante bei der Installation noch eine Datei irgendwo mit hin kopieren, wo die Gefahr besteht, dass diese vom User irgendwann einmal gelöscht wird


    Eben nicht. ;)

    Das von Rod ist die konsequente Umsetzung seines oft postulierten Paradigmas Daten und UI zu trennen. Du hälst deine Daten (das Bild) in der UI vor - nämlich in der PictureBox. Der korrekte Ansatz wäre, das Bild im Speicher zu "zeichnen" und die PictureBox (oder die Form oder das Panel oder...) nur zu dessen Anzeige zu verwenden.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

    sonne75 schrieb:

    Vielleicht die?
    Glaub nicht.

    dive26 schrieb:

    bei der Installation
    Meine Bitmap wird während der Laufzeit generiert, ohne Datei.
    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!

    Hier zur Aufklärung der vollständige Sourcecode und als Anhang das Ergebnis als Bonausdruck. Dieser Programmteil ist fertig und funktioniert auch soweit einwandfrei. Ich könnte das Image auche während der Laufzeit erzeugen, müsste es dann aber noch weiß einfärben. Der Vorteil einer externen Grafik ist, dass ich (falls notwendig) auch Wasserzeichen oder andere Vorgaben in diese Ressoursendatei aufnehmen könnte. Aber passt so, ich habe jetzt den Beitrag von Rod nochmals durchgelesen und gesehen was er meinte. Danke nochmals.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class frm_Handschriftlich
    4. Private lastPoint As Point
    5. Private pdraw As Boolean
    6. Private cl As Color = Color.Black
    7. Private w As Integer = 4
    9. ''' <summary>
    10. ''' Speichert das Image der Picturebox in eine JPG Datei mit dem Namen die dieser Programmfunktion über die
    11. ''' Variable "HandschriftlichBildName" übergeben wurde
    12. ''' </summary>
    13. ''' <param name="sender"></param>
    14. ''' <param name="e"></param>
    15. ''' <remarks></remarks>
    16. Private Sub btn_Speichern_Click(sender As Object, e As EventArgs) Handles btn_Speichern.Click
    17. Me.PictureBox1.Image.Save(Path.Combine(FlexX_Datenverzeichnis, "temp", HandschriftlichBildName + ".jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
    18. Me.Close()
    19. End Sub
    21. ''' <summary>
    22. ''' Abbrechen wird gedrückt. Die globale Variable "HandschriftlichBildName" wird geleert und
    23. ''' übergibt somit der aufrufenden Form die Info dass abgebrochen wurde
    24. ''' </summary>
    25. ''' <param name="sender"></param>
    26. ''' <param name="e"></param>
    27. ''' <remarks></remarks>
    28. Private Sub btn_abbrechen_Click(sender As Object, e As EventArgs) Handles btn_abbrechen.Click
    29. HandschriftlichBildName = ""
    30. Me.Close()
    31. End Sub
    33. Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
    34. If e.Button = Windows.Forms.MouseButtons.Left Then
    35. pdraw = True
    36. lastPoint = e.Location
    37. End If
    38. End Sub
    40. Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
    41. If pdraw AndAlso e.Location <> lastPoint Then
    42. Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
    43. g.FillEllipse(New SolidBrush(cl), lastPoint.X - w \ 2, lastPoint.Y - w \ 2, w, w)
    44. g.DrawLine(New Pen(cl, w), lastPoint, e.Location)
    45. lastPoint = e.Location
    46. End Using
    47. PictureBox1.Refresh()
    48. End If
    49. End Sub
    51. Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
    52. pdraw = False
    53. End Sub
    55. Private Sub frm_Handschriftlich_Load(sender As Object, e As EventArgs) Handles Me.Load
    56. lbl_Artikel.Text = "Handschriftliche Information zu " + vbCrLf + Artikelliste(VariablerPreisArtikelIndex).Artikelbezeichnung + "(" + HandschriftlichBildName + ")"
    57. PictureBox1.Image = My.Resources.weiss800x5001
    58. End Sub
    59. End Class

    Bilder

    • beleg.jpg

      155,98 kB, 414×725, 193 mal angesehen

    • Handschriftlich.jpg

      88,39 kB, 786×586, 160 mal angesehen
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

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

Facebook
Telefonspende