Hoi.
Ich hätte keine idee wie ich es ordentlicher bekommen könnte. Villeicht wisst ihr etwas.
Code:
Ich hätte keine idee wie ich es ordentlicher bekommen könnte. Villeicht wisst ihr etwas.
Code:
VB.NET-Quellcode
- If e.X > startPos.X And e.Y > startPos.Y Then
- gr.DrawRectangle(myPen, New Rectangle(startPos.X, startPos.Y, e.X - startPos.X, e.Y - startPos.Y))
- boundsRect = New Rectangle(startPos.X, startPos.Y, e.X - startPos.X, e.Y - startPos.Y)
- ElseIf e.X < startPos.X And e.Y > startPos.Y Then
- gr.DrawRectangle(myPen, New Rectangle(e.X, startPos.Y, startPos.X - e.X, e.Y - startPos.Y))
- boundsRect = New Rectangle(e.X, startPos.Y, startPos.X - e.X, e.Y - startPos.Y)
- ElseIf e.X > startPos.X And e.Y < startPos.Y Then
- gr.DrawRectangle(myPen, New Rectangle(startPos.X, e.Y, e.X - startPos.X, startPos.Y - e.Y))
- boundsRect = New Rectangle(startPos.X, e.Y, e.X - startPos.X, startPos.Y - e.Y)
- ElseIf e.X < startPos.X And e.Y < startPos.Y Then
- gr.DrawRectangle(myPen, New Rectangle(e.X, e.Y, startPos.X - e.X, startPos.Y - e.Y))
- boundsRect = New Rectangle(e.X, e.Y, startPos.X - e.X, startPos.Y - e.Y)
- End If