Malprogramm Frage

  • VB.NET

    Malprogramm Frage

    Also ich habe nach folgenem Tut ein Malprogramm erstellt.
    Link
    Ich habe auch viel an den Code geändert aber was ich nicht hingriege
    ist das er wenn man schneller malt diese Punkte
    nicht macht sondern ganz normale malt.
    Kann mir da einer Bitte helfen.

    Mein Code:
    Code anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim xStart, yStart, xEnd, yEnd As Integer
    3. Dim zeichenbitmap As Bitmap
    4. Dim zeichengrafik As Graphics
    5. Dim myPen As New Pen(Color.Lime, 3)
    6. Dim mycolor As Color = Color.Lime
    7. Dim mybrush As New Drawing.SolidBrush(Color.Lime)
    8. Dim mybrushwidth As Integer
    9. Dim continuousflag As Boolean
    11. Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
    12. Me.Cursor = Cursors.Arrow
    13. End Sub
    15. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. zeichenbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
    17. zeichengrafik = Graphics.FromImage(zeichenbitmap)
    18. PictureBox1.Image = zeichenbitmap
    19. zeichengrafik.Clear(Color.White)
    20. mybrushwidth = 4
    21. End Sub
    23. Private Sub drawmyline()
    24. Try
    25. PictureBox1.Image = zeichenbitmap
    26. zeichengrafik.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    27. zeichengrafik.DrawLine(myPen, xStart, yStart, xEnd, yEnd)
    29. Catch ex As Exception : End Try
    31. End Sub
    33. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    35. End Sub
    37. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    38. Try
    39. xStart = Control.MousePosition.X - (Me.Left + PictureBox1.Left + 4)
    40. yStart = Control.MousePosition.Y - (Me.Top + PictureBox1.Top + 31)
    41. If RadioButton2.Checked = True Then
    42. continuousflag = True
    43. End If
    44. Catch ex As Exception : End Try
    45. End Sub
    47. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    48. Try
    49. If continuousflag Then
    50. zeichengrafik.SmoothingMode = Drawing2D.SmoothingMode.None
    51. zeichengrafik.FillEllipse(mybrush, e.X, e.Y, mybrushwidth, mybrushwidth)
    52. PictureBox1.Image = zeichenbitmap
    53. End If
    54. Catch ex As Exception : End Try
    56. End Sub
    58. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    59. End
    60. End Sub
    62. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    63. Try
    64. zeichenbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
    65. zeichengrafik = Graphics.FromImage(zeichenbitmap)
    66. PictureBox1.Image = zeichenbitmap
    67. zeichengrafik.Clear(Color.White)
    69. Catch ex As Exception : End Try
    71. End Sub
    73. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    74. Dim dlg As SaveFileDialog = New SaveFileDialog()
    75. Try
    76. dlg.Title = "Speichern"
    77. dlg.Filter = "Map (*.bmp)|*.bmp |All Files |*.*"
    78. If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
    79. PictureBox1.Image.Save(dlg.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
    80. End If
    81. Catch ex As Exception : End Try
    83. End Sub
    85. Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
    86. myPen.Width = 3
    87. mybrushwidth = 4
    88. End Sub
    90. Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
    91. myPen.Width = 6
    92. mybrushwidth = 7
    93. End Sub
    95. Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
    97. End Sub
    99. Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
    100. myPen.Width = 10
    101. mybrushwidth = 12
    102. End Sub
    104. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    105. myPen.Color = Button1.BackColor
    106. mybrush.Color = Button1.BackColor
    107. Panel3.BackColor = myPen.Color
    108. Me.Cursor = New Cursor("green.cur")
    109. End Sub
    111. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    112. Me.Cursor = New Cursor("green.cur")
    113. myPen.Color = Button2.BackColor
    114. mybrush.Color = Button2.BackColor
    115. Panel3.BackColor = myPen.Color
    116. End Sub
    118. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    119. Me.Cursor = New Cursor("green.cur")
    120. myPen.Color = Button3.BackColor
    121. mybrush.Color = Button3.BackColor
    122. Panel3.BackColor = myPen.Color
    123. End Sub
    125. Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    126. Try
    127. xEnd = Control.MousePosition.X - (Me.Left + PictureBox1.Left + 4)
    128. yEnd = Control.MousePosition.Y - (Me.Top + PictureBox1.Top + 31)
    129. If RadioButton2.Checked Then
    130. continuousflag = False
    131. Else
    132. drawmyline()
    133. End If
    134. Catch ex As Exception : End Try
    136. End Sub
    138. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    139. Me.Cursor = New Cursor("green.cur")
    140. myPen.Color = Button7.BackColor
    141. mybrush.Color = Button7.BackColor
    142. Panel3.BackColor = myPen.Color
    143. End Sub
    145. Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
    146. myPen.Width = 16
    147. mybrushwidth = 16
    148. End Sub
    150. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    151. Try
    152. zeichenbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
    153. zeichengrafik = Graphics.FromImage(zeichenbitmap)
    154. PictureBox1.Image = zeichenbitmap
    155. zeichengrafik.Clear(Color.Lime)
    157. Catch ex As Exception : End Try
    158. End Sub


    Bitte helt mir

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Franzi564“ ()

Facebook