Doublebuffered Panel sauberes zeichnen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Doublebuffered Panel sauberes zeichnen

    Hallo,

    ich habe ein Doublebuffered Panel erstellt, auf dem ich mit der Maus per mousepath zeichnen kann.
    Dies funktioniert auch.
    Nun sind die gezeichneten Linien nicht sehr sauber, sondern haben kleinere Pixel Fehler.
    In OneNote z.B. werden diese Pixelfehler nicht angezeigt, bzw. dort wird sauber gezeichnet.

    Wie bekomme ich dies ebenso hin?

    Ich habe 2 Anhänge angehangen, in der man den Unterschied erkennt.
    Hier mein Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub pbSignature_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles pbSignature.MouseDown
    3. If e.Button = MouseButtons.Left Then ' draw a filled circle if left mouse is down
    5. mousePathMieter.StartFigure() ' The L mouse is down so we need to start a new line in mousePath
    7. End If
    9. End Sub
    12. Private Sub pbSignature_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles pbSignature.MouseMove
    13. If e.Button = MouseButtons.Left Then ' draw a filled circle if left mouse is down
    15. Try
    16. mousePathMieter.AddLine(e.X, e.Y, e.X, e.Y) 'Add mouse coordiantes to mousePath
    18. Catch
    19. MsgBox("No way, Hose!")
    20. End Try
    22. End If
    24. pbSignature.Invalidate() 'Repaint the PictureBox using the PictureBox1 Paint event
    25. End Sub
    28. Private Sub pbSignature_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles pbSignature.Paint
    29. Try
    30. If clearSign Then
    31. clearSign = False
    32. e.Graphics.Clear(Color.White)
    33. mousePathMieter.Reset()
    34. Else
    35. myUserColor = (System.Drawing.Color.Black) 'You can remove this line and add a user selected color to
    36. 'change the value of myUserColor
    37. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    38. e.Graphics.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
    39. e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
    41. myAlpha = 255 ' This will give the color a Alpha effect, you can set this to 255 if you want a full color
    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 ***************************
    49. Dim CurrentPen = New Pen(Color.FromArgb(myAlpha, myUserColor), myPenWidth) 'Set up the pen
    51. e.Graphics.DrawPath(CurrentPen, mousePathMieter) 'draw the path! :)
    52. End If
    53. Catch
    54. ' MsgBox("Not happening!")
    55. End Try
    56. End Sub
    Bilder

    • onenoteZeichnung.png

      7,44 kB, 262×190, 469 mal angesehen

    • selbstzeichnung.png

      9,43 kB, 902×243, 123 mal angesehen

    vivil schrieb:

    Unterschied

    Mit genau Deinem Code, PictureBox ohne DoubleBuffered:
    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!