Auf ein Backroundimage in einer Picturebox zeichnen ohne Performance verlust

  • VB.NET

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von ThePlexian.

    Auf ein Backroundimage in einer Picturebox zeichnen ohne Performance verlust

    Hallo,

    ich habe ein Problem:
    Ich habe ein Control, indem eine Picturebox in dem ein Hintergrundbild zur Laufzeit geladen wird.
    Außerdem kann ich auf diese Picturebox mit dem Hintergrundbild zeichnen.

    Nun ist das Problem, dass ich beim zeichnen einen Performance verlust habe.
    Das bedeutet, wenn ich zeichne, sind die Linien nicht mehr so "rund" wie vorher, sondern eckiger.
    Außerdem wird etwas langsamer gezeichnet.

    Hat dafür jemand eine Lösung ?

    Danke

    vivil schrieb:

    wenn ich zeichne
    Mit welchem Code?
    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!

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub pbNew_MouseDown(sender As Object, e As MouseEventArgs) Handles pbNew.MouseDown
    2. If e.Button = MouseButtons.Left Then ' draw a filled circle if left mouse is down
    3. If mousePath Is Nothing Then
    4. mousePath = New System.Drawing.Drawing2D.GraphicsPath()
    5. End If
    7. speichern = True
    8. mousePath.StartFigure() ' The L mouse is down so we need to start a new line in mousePath
    9. 'End If
    10. End If
    11. End Sub
    13. Private Sub pbNew_MouseMove(sender As Object, e As MouseEventArgs) Handles pbNew.MouseMove
    14. If e.Button = MouseButtons.Left Then ' draw a filled circle if left mouse is down
    15. If mousePath Is Nothing Then
    16. mousePath = New System.Drawing.Drawing2D.GraphicsPath()
    17. End If
    19. Try
    20. mousePath.AddLine(e.X, e.Y, e.X, e.Y) 'Add mouse coordiantes to mousePath
    21. Catch
    22. MsgBox("No way, Hose!")
    23. End Try
    24. 'End If
    25. pnlGrundriss.Invalidate() 'Repaint the PictureBox using the PictureBox1 Paint event
    26. End If
    27. End Sub
    29. Private Sub pbNew_Paint(sender As Object, e As PaintEventArgs) Handles pbNew.Paint
    30. Try
    31. myUserColor = (System.Drawing.Color.Black) 'You can remove this line and add a user selected color to
    32. 'change the value of myUserColor
    33. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    34. e.Graphics.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
    35. e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
    37. myAlpha = 255 ' This will give the color a Alpha effect, you can set this to 255 if you want a full color
    39. Dim CurrentPen = New Pen(Color.FromArgb(myAlpha, myUserColor), myPenWidth) 'Set up the pen
    41. e.Graphics.DrawPath(CurrentPen, mousePath) 'draw the path! :)
    42. 'End If
    43. '*********************** NOTE ***********************************************
    44. 'The line below set the pen up with the ability to add user selected Alpha, Color and Penwidth
    45. ' A simpler, but less flexible solution would be to replace the line with the following code:
    46. 'Dim CurrentPen = New Pen(System.Drawing.Color.Black, myPenWidth)
    47. '************ End Note ***************************
    48. Catch
    49. ' MsgBox("Not happening!")
    50. End Try
    51. End Sub


    @vivil so was:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private PointStart As Point
    3. Private PointEnd As Point
    4. Private draw As Boolean = False
    5. Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    6. PointStart = e.Location
    7. PointEnd = e.Location
    8. draw = True
    9. Me.Invalidate()
    10. End Sub
    12. Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
    13. PointEnd = e.Location
    14. Me.Invalidate()
    15. End Sub
    17. Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
    18. draw = False
    19. End Sub
    21. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
    22. If draw Then
    23. e.Graphics.DrawLine(Pens.Black, PointStart, PointEnd)
    24. End If
    25. End Sub
    26. 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!

    Danke für deine Antwort.
    Nur leider ist es nicht das was ich möchte.
    Ich möchte Wenn ich die linke Maustaste gedrückt halte, die Linie direkt zeichnen.
    Das funktioniert bei meinem Code ja auch schon alles.
    Das Problem ist nur, dass das Hintergrundbild der Picturebox das zeichnen verlangsamt.

    Definiere

    vivil schrieb:

    die Linie direkt zeichnen.
    oder poste mal ein Bild von deinem Output.
    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!

    Das MouseMove-Event fügt ja eine Linie hinzu, diese wird dann ja durch Invalidate direkt in dem Paint-Event gezeichnet.
    Das bedeutet also, sobald man die linke Maustaste drückt, diese gedrückt hält und die Maus verschiebt, wird eine Linie gezeichnet.
    Gibt es eine Möglichkeit, 2 Pictureboxen im Deisgner übereinander zu legen, in die eine Picturebox das Bild zu laden und auf der anderen zu zeichnen ?
    Mein Problem dabei ist, dass entweder nur gezeichnet werden kann, oder nur das Bild da ist.

    @vivil So was:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private PointStart As Point
    3. Private PointEnd As Point
    4. Private draw As Boolean = False
    5. Private AllLines As New List(Of Linie)
    7. Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    8. PointStart = e.Location
    9. PointEnd = e.Location
    10. draw = True
    11. Me.Invalidate()
    12. End Sub
    13. Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
    14. PointEnd = e.Location
    15. Me.Invalidate()
    16. End Sub
    17. Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
    18. draw = False
    19. AllLines.Add(New Linie(PointStart, PointEnd))
    20. End Sub
    21. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
    22. If draw Then
    23. e.Graphics.DrawLine(Pens.Black, PointStart, PointEnd)
    24. End If
    25. For Each line In AllLines
    26. line.DrawLine(e.Graphics)
    27. Next
    28. End Sub
    29. End Class
    31. Class Linie
    32. Private PointStart As Point
    33. Private PointEnd As Point
    35. Public Sub DrawLine(g As Graphics)
    36. g.DrawLine(Pens.Black, PointStart, PointEnd)
    37. End Sub
    39. Public Sub New(start As Point, ende As Point)
    40. PointStart = start
    41. PointEnd = ende
    42. End Sub
    43. 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!

    Ah okay, verstehe.
    Dies ist aber nicht die Lösung die ich suche, sorry.
    Es dürfen keine Linien sein, sondern es muss ein GraphicsPath sein, weil dann können auch kurven gezeichnet werden.
    Also sobald die linke Maustaste gedrückt wird und man die Maus bewegt, genau die Bewegung der Maus gezeichnet wird.
    Das funktioniert ja auch alles, nur sobald ein Bild in der Picturebox ist, verliert das zeichnen an Performance, heißt also,
    dass das zeichnen zu langsam ist.

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

    vivil schrieb:

    Es dürfen keine Linien sein
    Dann merk Dir bei MouseMove jeden Punkt und bearbeite die Klasse entsprechend.
    Dies als Anhaltspunkt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private draw As Boolean = False
    3. Private AllLines As New List(Of Linie)
    4. Private actLine As Linie
    5. Private col() As Color = {Color.Red, Color.Green, Color.Blue}
    6. Private index As Integer = 0
    7. Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    8. actLine = New Linie(e.Location, col(index))
    9. index = (index + 1) Mod col.Length
    10. draw = True
    11. Me.Invalidate()
    12. End Sub
    13. Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
    14. If draw Then
    15. actLine.Add(e.Location)
    16. Me.Invalidate()
    17. End If
    18. End Sub
    19. Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
    20. If draw Then
    21. actLine.Add(e.Location)
    22. AllLines.Add(actLine)
    23. Me.Invalidate()
    24. actLine = Nothing
    25. End If
    26. draw = False
    27. End Sub
    28. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
    29. If draw AndAlso actLine.allPoints.Count > 1 Then
    30. e.Graphics.DrawLines(Pens.Black, actLine.allPoints.ToArray)
    31. End If
    32. For Each line In AllLines
    33. line.DrawLine(e.Graphics)
    34. Next
    35. End Sub
    36. End Class
    38. Class Linie
    39. Public allPoints As New List(Of Point)
    40. Private col As Color
    41. Public Sub DrawLine(g As Graphics)
    42. g.DrawPolygon(New Pen(col), allPoints.ToArray)
    43. End Sub
    45. Public Sub New(pt As Point, co As Color)
    46. col = co
    47. allPoints.Add(pt)
    48. End Sub
    50. Public Sub Add(pt As Point)
    51. allPoints.Add(pt)
    52. End Sub
    53. 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!




    So sieht es aus, wenn ich schneller zeichne, aber wie bekomme ich es hin, dass die Zeichnung so aussieht wie oben ?


    Bei OneNote z.B. kann man ein Bild in den Hintergrund laden und die gezeichneten Linien werden wie im obigen Bild dargestellt, egal wie schnell man zeichnet.

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

    vivil schrieb:

    egal wie schnell man zeichnet
    AHa.
    Da setzt Du aber die Punkte einzeln.
    Aus den Punkten werden Splines gemacht, so etwa:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private AllLines As New List(Of Linie)
    3. Private actLine As New Linie
    4. Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    5. actLine.Add(e.Location)
    6. Me.Invalidate()
    7. End Sub
    8. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
    10. If actLine.allPoints.Count > 1 Then
    11. e.Graphics.DrawLines(Pens.Black, actLine.allPoints.ToArray)
    12. End If
    14. For Each line In AllLines
    15. line.DrawLine(e.Graphics)
    16. Next
    17. End Sub
    19. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    20. AllLines.Add(actLine)
    21. actLine = New Linie
    22. Me.Invalidate()
    23. End Sub
    24. End Class
    26. Class Linie
    27. Public allPoints As New List(Of Point)
    28. Private allPointsIntern As New List(Of Point)
    29. Public Sub DrawLine(g As Graphics)
    30. If allPointsIntern.Count >= 4 Then
    31. g.DrawBeziers(Pens.Black, allPointsIntern.ToArray)
    32. End If
    33. End Sub
    35. Public Sub Add(pt As Point)
    36. allPoints.Add(pt)
    37. If (allPoints.Count - 1) Mod 3 = 0 Then
    38. allPointsIntern.Clear()
    39. allPointsIntern.AddRange(allPoints)
    40. End If
    41. End Sub
    42. 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!

    Wie kommen die Punkte in Deinen

    vivil schrieb:

    GraphicsPath
    :?:
    (ohne jetzt Deinen Code verstehen zu müssen)
    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!

    Neuen Path zeichnen(MouseDown):

    VB.NET-Quellcode

    1. mousePath.StartFigure() ' The L mouse is down so we need to start a new line in mousePath


    Dort werden die Punkte in meinen GraphicsPath geschrieben (MouseMove):

    VB.NET-Quellcode

    1. mousePath.AddLine(e.X, e.Y, e.X, e.Y) 'Add mouse coordiantes to mousePath


    Path zeichnen(Paint):

    VB.NET-Quellcode

    1. e.Graphics.DrawPath(CurrentPen, mousePath) 'draw the path! :)

    vivil schrieb:

    VB.NET-Quellcode

    1. mousePath.AddLine(e.X, e.Y, e.X, e.Y)
    heißt, dass Deine Linien jeweils nur aus einem Punkt bestehen.
    Da kannst Du Dir auch gleich nur die Punkte merken und ein Polygon malen, ohne GraphicsPath.
    Oder hat es mit diesem eine besondere Bewandtnis?
    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!

    vivil schrieb:

    wo die Maus hin und her bewegt wurde.
    Dann merk Dir die Punkte und mach DrawLines() oder DrawBeziers(), letztere mit Auflagen, siehe mein Beispiel.
    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!

    vivil schrieb:

    nicht mehr mit GraphicsPath arbeiten
    Jou.
    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!

Facebook
Telefonspende