Projektdateien hinzufügen.

Pilz.Drawing/HelpfulDrawingFunctions.vb

@@ -0,0 +1,41 @@
+Imports System.Drawing
+Imports System.Drawing.Drawing2D
+
+Public Class HelpfulDrawingFunctions
+
+    Public Shared Function IsPointInRectangle(p As PointF, rect As RectangleF) As Boolean
+        Dim bList As New List(Of Boolean)
+
+        bList.Add(p.X > rect.Left)
+        bList.Add(p.X < rect.Right)
+        bList.Add(p.Y > rect.Top)
+        bList.Add(p.Y < rect.Bottom)
+
+        Return Not bList.Contains(False)
+    End Function
+
+    Public Shared Function OverlapsTwoRectangles(a As RectangleF, b As RectangleF) As Boolean
+        Return a.IntersectsWith(b) 'RectangleF.Intersect(a, b) <> RectangleF.Empty
+    End Function
+
+    Public Shared Function GetRectangle(p1 As PointF, p2 As PointF) As RectangleF
+        Dim rect As New RectangleF
+        Dim startIsEnd As Boolean = p1.X > p2.X AndAlso p1.Y > p2.Y
+
+        Dim xValues() As Integer = {p1.X, p2.X}
+        Dim yValues() As Integer = {p1.Y, p2.Y}
+
+        rect.Location = New PointF(xValues.OrderBy(Function(n) n).First,
+                                  yValues.OrderBy(Function(n) n).First)
+
+        rect.Size = New SizeF(xValues.OrderByDescending(Function(n) n).First,
+                             yValues.OrderByDescending(Function(n) n).First)
+
+        rect.Size = New SizeF(rect.Size.Width - rect.Location.X,
+                             rect.Size.Height - rect.Location.Y)
+
+        Return rect
+    End Function
+
+End Class
+