Mit Stift auf Picturebox/Bitmap zeichnen - Ohne Unterbrechungen/Wackler (rudimentärer Paint Clon)

    • VB.NET

    Es gibt 36 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

      Mit Stift auf Picturebox/Bitmap zeichnen - Ohne Unterbrechungen/Wackler (rudimentärer Paint Clon)

      Hi Liebe Com,

      ich habe mit ein paar Recherchen im Netz ein kleinen Paint Clon geschrieben. Funktionen sind lediglich zeichnen mit einem Stift in allen Farben und Dicken.
      Ich denke als Ansatz wie man zeichnet OHNE das bei schnellen Mausbewegungen Lücken entstehen, kann man den Code gebrauchen.
      Man braucht 1 Form(PaintForm) 1 Picturebox(PBDraw) 3 ComboBoxen(CBPenWidth,CBPenColor,CBPBBGColor)
      Am besten die PB oben andocken und unten die 3 Comboboxen hin:

      //Edit
      Neu: 2 Buttons: SaveButton & ClearButton

      VB.NET-Quellcode

      1. Public Class PaintForm
      2. Private MouseD As Boolean
      3. Private Col As Color
      4. Private NewPen As Pen
      5. Private bmp As Bitmap
      6. Private Plist As List(Of Point)
      7. Private HG_Bmp As Bitmap
      8. Private Sub PBDraw_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PBDraw.MouseDown
      9. MouseD = True
      10. Plist.Add(New Point(e.X, e.Y))
      11. End Sub
      12. Private Sub PBDraw_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PBDraw.MouseUp
      13. If MouseD Then
      14. MouseD = False
      15. Using gr = Graphics.FromImage(bmp)
      17. Draw(gr)
      18. gr.Flush()
      19. End Using
      20. Using gr = Graphics.FromImage(HG_Bmp)
      22. gr.DrawImage(bmp, 0, 0)
      23. gr.Flush()
      24. End Using
      26. Plist.Clear()
      27. PBDraw.Invalidate()
      28. End If
      29. End Sub
      30. Private Sub PBDraw_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PBDraw.MouseMove
      31. If MouseD Then
      32. Plist.Add(New Point(e.X, e.Y))
      33. PBDraw.Invalidate()
      34. End If
      35. End Sub
      36. Private Sub PBDraw_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PBDraw.Paint
      37. If MouseD Then Draw(e.Graphics)
      38. End Sub
      39. Private Sub Draw(ByVal g As Graphics)
      40. If Plist.Count > 0 Then
      41. Dim bs As Byte() = New Byte(Plist.Count - 1) {}
      42. bs(0) = CByte(System.Drawing.Drawing2D.PathPointType.Start)
      43. For a as Integer = 1 To Plist.Count - 1
      44. bs(a) = CByte(System.Drawing.Drawing2D.PathPointType.Line)
      45. g.DrawPath(NewPen, New System.Drawing.Drawing2D.GraphicsPath(Plist.ToArray, bs))
      46. Next
      47. End If
      48. End Sub
      49. Private Function GetColors() As List(Of String)
      50. Dim colors As New List(Of String)()
      51. Dim colorNames As String() = [Enum].GetNames(GetType(KnownColor))
      52. For Each colorName As String In colorNames
      53. Dim knownColor As KnownColor = DirectCast([Enum].Parse(GetType(KnownColor), colorName), KnownColor)
      54. If knownColor > knownColor.Transparent Then
      55. colors.Add(colorName)
      56. End If
      57. Next
      58. Return colors
      59. End Function
      60. Private Sub PainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      61. HG_Bmp = New Bitmap(PBDraw.Width, PBDraw.Height)
      62. bmp = New Bitmap(PBDraw.Width, PBDraw.Height)
      63. Using gr As Graphics = Graphics.FromImage(bmp)
      64. gr.Clear(Color.Transparent)
      65. PBDraw.Invalidate()
      66. End Using
      67. Using gr As Graphics = Graphics.FromImage(HG_Bmp)
      68. gr.Clear(Color.White)
      69. gr.DrawImage(bmp, 0, 0)
      70. PBDraw.Invalidate()
      71. End Using
      72. PBDraw.Image = HG_Bmp
      73. Plist = New List(Of Point)
      74. Me.DoubleBuffered = True
      75. For Each c As String In GetColors()
      76. CBPenColor.Items.Add(c)
      77. CBPBBGColor.Items.Add(c)
      78. Next
      79. For a as Integer = 1 To 25
      80. CBPenWidth.Items.Add(a.ToString)
      81. Next
      82. CBPenColor.SelectedItem = CBPenColor.Items(0)
      83. CBPenWidth.SelectedItem = CBPenWidth.Items(0)
      84. End Sub
      85. Private Sub CBPenColor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBPenColor.SelectedIndexChanged, CBPenWidth.SelectedIndexChanged
      86. NewPen = New Pen(Color.FromName(CBPenColor.SelectedItem), CSng(CBPenWidth.SelectedItem))
      87. End Sub
      89. Private Sub CBPBBGColor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBPBBGColor.SelectedIndexChanged
      91. Using gr As Graphics = Graphics.FromImage(HG_Bmp)
      92. gr.Clear(Color.FromName(CBPBBGColor.SelectedItem))
      93. gr.DrawImage(bmp, 0, 0)
      94. PBDraw.Invalidate()
      95. End Using
      97. End Sub
      99. Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click
      100. Dim sfd As New SaveFileDialog
      101. sfd.Filter = ".jpg|*.jpg"
      102. sfd.AddExtension = True
      103. If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
      104. HG_Bmp.Save(sfd.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
      105. End If
      106. End Sub
      108. Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
      109. Using gr As Graphics = Graphics.FromImage(bmp)
      110. gr.Clear(Color.Transparent)
      111. PBDraw.Invalidate()
      112. End Using
      113. Using gr As Graphics = Graphics.FromImage(HG_Bmp)
      114. gr.Clear(Color.White)
      115. gr.DrawImage(bmp, 0, 0)
      116. PBDraw.Invalidate()
      117. End Using
      118. End Sub
      119. End Class

      Man kann sauber zeichnen ohne Ruckeln, ohne fehlende Pixel bei schnellen Mausemoves etc.

      Ich denke dies ist SourceCodewürdig, da oft die Frage kommt, wie mach ich ein Paint Clone. Hier ist nun ein Ansatz zu finden, wie man sowas selber coden kann.

      Über Kritiken würde ich mich sehr freuen

      Gruss Mono :)


      *EDIT*

      Ich habe eine Save Button hinzugefügt.
      ACHTUNG

      Wenn man die Hintergrundfarbe ändert wird das Bild gelöscht.
      Ich weiß grad keine Lösung wie man den HG des bitmaps komplett ändert, ohne den Vordergrund zu löschen.

      *EDIT* 30.04.2010

      Ich habe nun eine 2. Ebene als Hintergrund eingebaut. damit kann man nun den Hintergrund ändern ohne den Vordergrund zu löschen.
      Ausserdem einen weiteren Button Namens ClearButton.
      Damit kann man das komplette Bild löschen.

      // Hat denn keiner weitere Kritiken daran ?
      Was könnte denn besser gemacht werden etc.. wo optimieren ? ^^
      Oder schaut es sich bloß keiner von den Pro's an

      Wie auch immer. Vll hilfts ja dem einen oder anderen Anfänger.


      Gruß Mono

      //EDIT

      For a Zu FOR A AS INTEGER geändert..
      Das ist meine Signatur und sie wird wunderbar sein!

      Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „Mono“ ()

      Wenn du den Hintergrund änderst, wird das Bild quasi gelöscht.

      VB.NET-Quellcode

      1. Using gr As Graphics = Graphics.FromImage(bmp)
      2. gr.Clear(Color.White)
      3. PBDraw.Invalidate()
      4. End Using


      so für komplettes bitmap 'clearen' und hg auf weiß setzen.

      Wie gesagt, es ist hier nur ein Ansatz
      Das ist meine Signatur und sie wird wunderbar sein!

      Phthmaster99 schrieb:


      HI,
      bei mir funktionierts net. Ich benutze Visual Basic 2008 Express Edition... Kannst du eventuell mal den sourcecode als downloadlink reinstellen?


      MFG

      PhThmaster99


      Der komplette Code steht doch da...was funktioniert denn nicht ?
      Das ist meine Signatur und sie wird wunderbar sein!

      Phthmaster99 schrieb:


      ich meine die .vbproject oder wie auch immer dateien...

      Wieso brauchst du die ?
      Was bekommst du denn nicht hin ?
      Der komplette Code PLUS benötigte Steuerelemente stehen doch da....
      Das ist meine Signatur und sie wird wunderbar sein!

      Sry, das ich so spät antworte..

      Folgender Error kommt:
      "Name 'a' is not declared"
      "Name 'a' is not declared"
      "Name 'a' is not declared"

      "Name 'a' is not declared"


      4 mal kommt die gleiche errormeldung.. -.-

      Kann jemand helfen?

      ich teste mahl selbst!

      man mier reicht der ganze müll hier, ich werde eventuell die Project Mappe Posten und dan ist gut, der gesamte koode ist sehr Flüßig und einwandfrei geschrieben was wolt ihr den, und chekt eure verwise den die sind dass Problem nummer 1 wen etwas nicht gefunden wird!

      A

      bei mier gibt es 4 Error dass a nicht Declariert ist, wo bei ich den Rest ja schon gut hinbekommen habe, zugegeben ich habe einige buttopn gegen Andere Steuerelemente ersetzt aber dass hat mit a nichts zu tuhen


      VB.NET-Quellcode

      1. For a = 1 To Plist.Count - 1bs(a) = CByte(System.Drawing.Drawing2D.PathPointType.Line)
      2. g.DrawPath(NewPen, New System.Drawing.Drawing2D.GraphicsPath(Plist.ToArray, bs))Next

    Facebook
    Telefonspende