Hallo zusammen.
Ich würde gerne mit der Maus ein Rechteck in eine Picturebox zeichnen. Was in der Form an sich gut funktioniert, geht in der Picturebox nicht und ich kann mir nicht wirklich erklären warum
Was könnte ich übersehen haben?
BG
Ich würde gerne mit der Maus ein Rechteck in eine Picturebox zeichnen. Was in der Form an sich gut funktioniert, geht in der Picturebox nicht und ich kann mir nicht wirklich erklären warum
VB.NET-Quellcode
- Public Class Form1
- Dim isMouseDown As Boolean
- Dim rect As Rectangle
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- PictureBox1.Image = My.Resources.testbild
- End Sub
- Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
- e.Graphics.DrawRectangle(Pens.Red, rect)
- End Sub
- Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
- isMouseDown = False
- Console.WriteLine("x2: " & e.X)
- Console.WriteLine("y2: " & e.Y)
- End Sub
- Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
- isMouseDown = True
- With rect
- .Location = e.Location
- .Width = 0
- .Height = 0
- End With
- Console.WriteLine("x1: " & e.X)
- Console.WriteLine("y1: " & e.Y)
- Invalidate()
- End Sub
- Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
- If isMouseDown Then
- With rect
- .Width = e.X - rect.X
- .Height = e.Y - rect.Y
- End With
- Invalidate()
- End If
- End Sub
- End Class
Was könnte ich übersehen haben?
BG