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"?
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
- Imports System.IO
- Public Class frm_Handschriftlich
- Private lastPoint As Point
- Private pdraw As Boolean
- Private cl As Color = Color.Red
- Private w As Integer = 4
- ''' <summary>
- ''' Speichert das Image der Picturebox in eine JPG Datei
- ''' </summary>
- ''' <param name="sender"></param>
- ''' <param name="e"></param>
- ''' <remarks></remarks>
- Private Sub btn_Speichern_Click(sender As Object, e As EventArgs) Handles btn_Speichern.Click
- Me.PictureBox1.Image.Save(Path.Combine(FlexX_Datenverzeichnis, "handschrift.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
- Me.Close()
- End Sub
- Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Left Then
- pdraw = True
- lastPoint = e.Location
- End If
- End Sub
- Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
- If pdraw AndAlso e.Location <> lastPoint Then
- Using g As Graphics = PictureBox1.CreateGraphics
- g.FillEllipse(New SolidBrush(cl), lastPoint.X - w \ 2, lastPoint.Y - w \ 2, w, w)
- g.DrawLine(New Pen(cl, w), lastPoint, e.Location)
- lastPoint = e.Location
- End Using
- End If
- End Sub
- Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
- pdraw = False
- End Sub
- 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
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at