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
Bitte helt mir
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:
VB.NET-Quellcode
- Public Class Form1
- Dim xStart, yStart, xEnd, yEnd As Integer
- Dim zeichenbitmap As Bitmap
- Dim zeichengrafik As Graphics
- Dim myPen As New Pen(Color.Lime, 3)
- Dim mycolor As Color = Color.Lime
- Dim mybrush As New Drawing.SolidBrush(Color.Lime)
- Dim mybrushwidth As Integer
- Dim continuousflag As Boolean
- Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
- Me.Cursor = Cursors.Arrow
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- zeichenbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
- zeichengrafik = Graphics.FromImage(zeichenbitmap)
- PictureBox1.Image = zeichenbitmap
- zeichengrafik.Clear(Color.White)
- mybrushwidth = 4
- End Sub
- Private Sub drawmyline()
- Try
- PictureBox1.Image = zeichenbitmap
- zeichengrafik.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
- zeichengrafik.DrawLine(myPen, xStart, yStart, xEnd, yEnd)
- Catch ex As Exception : End Try
- End Sub
- Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
- End Sub
- Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
- Try
- xStart = Control.MousePosition.X - (Me.Left + PictureBox1.Left + 4)
- yStart = Control.MousePosition.Y - (Me.Top + PictureBox1.Top + 31)
- If RadioButton2.Checked = True Then
- continuousflag = True
- End If
- Catch ex As Exception : End Try
- End Sub
- Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
- Try
- If continuousflag Then
- zeichengrafik.SmoothingMode = Drawing2D.SmoothingMode.None
- zeichengrafik.FillEllipse(mybrush, e.X, e.Y, mybrushwidth, mybrushwidth)
- PictureBox1.Image = zeichenbitmap
- End If
- Catch ex As Exception : End Try
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- End
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- Try
- zeichenbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
- zeichengrafik = Graphics.FromImage(zeichenbitmap)
- PictureBox1.Image = zeichenbitmap
- zeichengrafik.Clear(Color.White)
- Catch ex As Exception : End Try
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Dim dlg As SaveFileDialog = New SaveFileDialog()
- Try
- dlg.Title = "Speichern"
- dlg.Filter = "Map (*.bmp)|*.bmp |All Files |*.*"
- If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
- PictureBox1.Image.Save(dlg.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
- End If
- Catch ex As Exception : End Try
- End Sub
- Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
- myPen.Width = 3
- mybrushwidth = 4
- End Sub
- Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
- myPen.Width = 6
- mybrushwidth = 7
- End Sub
- Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
- End Sub
- Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
- myPen.Width = 10
- mybrushwidth = 12
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- myPen.Color = Button1.BackColor
- mybrush.Color = Button1.BackColor
- Panel3.BackColor = myPen.Color
- Me.Cursor = New Cursor("green.cur")
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Me.Cursor = New Cursor("green.cur")
- myPen.Color = Button2.BackColor
- mybrush.Color = Button2.BackColor
- Panel3.BackColor = myPen.Color
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Me.Cursor = New Cursor("green.cur")
- myPen.Color = Button3.BackColor
- mybrush.Color = Button3.BackColor
- Panel3.BackColor = myPen.Color
- End Sub
- Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
- Try
- xEnd = Control.MousePosition.X - (Me.Left + PictureBox1.Left + 4)
- yEnd = Control.MousePosition.Y - (Me.Top + PictureBox1.Top + 31)
- If RadioButton2.Checked Then
- continuousflag = False
- Else
- drawmyline()
- End If
- Catch ex As Exception : End Try
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- Me.Cursor = New Cursor("green.cur")
- myPen.Color = Button7.BackColor
- mybrush.Color = Button7.BackColor
- Panel3.BackColor = myPen.Color
- End Sub
- Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
- myPen.Width = 16
- mybrushwidth = 16
- End Sub
- Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
- Try
- zeichenbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
- zeichengrafik = Graphics.FromImage(zeichenbitmap)
- PictureBox1.Image = zeichenbitmap
- zeichengrafik.Clear(Color.Lime)
- Catch ex As Exception : End Try
- End Sub
Bitte helt mir
Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Franzi564“ ()