'Beispiel: VB .Net - GraphicsPath - Pruefen ob sich die Maus in einem best. Bereich befindet ' ' Option Explicit On Option Strict On Imports System.Drawing.Drawing2D Public Partial Class MainForm Public Sub New() Me.InitializeComponent() End Sub Private gp As New GraphicsPath Private Success As Boolean Private Sub MainFormLoad(sender As Object, e As System.EventArgs) Dim rc As Rectangle = New Rectangle(10, 10, 100, 100) gp.AddRectangle(rc) End Sub Private Sub MainFormMouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) With gp If .IsVisible(e.Location) = False Then Me.label1.Text = "Die Maus befindet sich auserhalb des Quadrats" Success = False ElseIf .IsVisible(e.Location) = True Then Me.label1.Text = "Die Maus befindet sich innerhalb des Quadrats" Success = True End If If .IsOutlineVisible(e.Location, New Pen(Color.Black, 4)) = True Then Me.label1.Text = "Die Maus befindet sich ueber dem Rand des Quadrats" End If End With If Success Then Dim hPen As Pen = New Pen(Color.Red, 4) Dim g As Graphics = Me.CreateGraphics g.DrawRectangle(hPen, New Rectangle(15, 15, 50, 50)) Me.Text = Success.ToString g.Dispose() Else Dim hPen As Pen = New Pen(Me.BackColor, 4) Dim g As Graphics = Me.CreateGraphics g.DrawRectangle(hPen, New Rectangle(15, 15, 50, 50)) Me.Text = Success.ToString g.Dispose() End If End Sub Private Sub MainFormPaint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Dim hPen As Pen = New Pen(Color.Red, 4) e.Graphics.DrawPath(hPen, gp) End Sub Private Sub MainFormFormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) If Not gp Is Nothing Then gp.Dispose() End Sub End Class