Mega Code Archive

 

Categories / VB.Net Tutorial / 2D Graphics

 

Region MakeEmpty, Region MakeInfinite, Region GetBounds

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class RegionMakeEmptyMakeInfinite    public Shared Sub Main         Application.Run(New Form1)    End Sub End class public class Form1   Inherits System.Windows.Forms.Form   Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)         Dim g As Graphics = Me.CreateGraphics()         g.Clear(Me.BackColor)         Dim rect1 As New Rectangle(20, 20, 60, 80)         Dim rect2 As New Rectangle(50, 30, 60, 80)         Dim rgn1 As New [Region](rect1)         Dim rgn2 As New [Region](rect2)         If Not rgn1.IsEmpty(g) Then             rgn1.MakeEmpty()         End If          If Not rgn2.IsInfinite(g) Then             rgn2.MakeInfinite()         End If ' Get bounds of the infinite region         Dim rect As RectangleF = rgn2.GetBounds(g)         Console.WriteLine(rect.ToString())         g.FillRegion(Brushes.Red, rgn2)         g.Dispose()   End Sub   Public Sub New()         MyBase.New()     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)     Me.ClientSize = New System.Drawing.Size(292, 273)     Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen   End Sub End Class