Hey,
ich arbeite momentan an einem Paint-Programm, und egal wie ich es versuche, das zeichnen sieht nicht annähernd so aus, wie in Microsofts Paint oder Paint.net etc..
Basierend auf dem Mousemove-event habe ich schon einiges ausprobiert:
und
ich arbeite momentan an einem Paint-Programm, und egal wie ich es versuche, das zeichnen sieht nicht annähernd so aus, wie in Microsofts Paint oder Paint.net etc..
Basierend auf dem Mousemove-event habe ich schon einiges ausprobiert:
Quellcode
- Private Sub canvas_MouseDown(sender As Object, e As MouseEventArgs) Handles canvas.MouseDown
- mouseIsDown = True
- px = e.X
- py = e.Y
- gObj.FillRectangle(Brushes.Purple, e.X, e.Y, 10, 10)
- canvas.Invalidate()
- End Sub
- Private Sub canvas_MouseMove(sender As Object, e As MouseEventArgs) Handles canvas.MouseMove
- If mouseIsDown = True Then
- gObj.DrawLine(Pens.Black, px, py, e.X, e.Y)
- canvas.Invalidate()
- px = e.X
- py = e.Y
- End If
- End Sub
und