VB.Net by API/System.Drawing/RectangleF

New RectangleF

<source lang="vbnet">

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class UsingRectangleF

  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()
       Dim x As Single = 40.0F
       Dim y As Single = 40.0F
       Dim height As Single = 120.0F
       Dim width As Single = 120.0F
       Dim pt As New PointF(80.0F, 80.0F)
       Dim sz As New SizeF(100.0F, 100.0F)
       Dim rect1 As New RectangleF(pt, sz)
       Dim rect2 As New RectangleF(x, y, width, height)
       Dim rect3 As New RectangleF(10.0F, 10.0F, 180.0F, 180.0F)
       Dim redPen As New Pen(Color.Red, 2)
       Dim greenBrush As New SolidBrush(Color.Blue)
       Dim blueBrush As New SolidBrush(Color.Green)
       g.DrawRectangle(redPen, rect3.X, rect3.Y, rect3.Width, rect3.Height)
       g.FillRectangle(blueBrush, rect2)
       g.FillRectangle(greenBrush, rect1)
       redPen.Dispose()
       blueBrush.Dispose()
       greenBrush.Dispose()
       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

 </source>

RectangleF.Width

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class DrawCircle

  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 a As Graphics =  e.Graphics
       Dim mypen As Pen
       Dim myrect As RectangleF
       mypen = New Pen(System.Drawing.Color.Red, 6)
       a = Me.CreateGraphics
       a.Clear(Me.BackColor)
       a.DrawEllipse(mypen, 100, 100, 50, 50)
       a.DrawEllipse(mypen, 75, 75, 100, 100)
       a.DrawEllipse(mypen, 25, 25, 200, 200)
       a.DrawEllipse(mypen, 0, 0, 250, 250)
       myrect.X = 300
       myrect.Y = 10
       myrect.Width = 250
       myrect.Height = 100
       a.DrawEllipse(mypen, myrect)
       myrect.X = 400
       myrect.Y = 10
       myrect.Width = 100
       myrect.Height = 250
       a.DrawEllipse(mypen, myrect)

       a.Dispose()
       mypen.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

 </source>

RectangleF.X

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class DrawCircle

  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 a As Graphics =  e.Graphics
       Dim mypen As Pen
       Dim myrect As RectangleF
       mypen = New Pen(System.Drawing.Color.Red, 6)
       a = Me.CreateGraphics
       a.Clear(Me.BackColor)
       a.DrawEllipse(mypen, 100, 100, 50, 50)
       a.DrawEllipse(mypen, 75, 75, 100, 100)
       a.DrawEllipse(mypen, 25, 25, 200, 200)
       a.DrawEllipse(mypen, 0, 0, 250, 250)
       myrect.X = 300
       myrect.Y = 10
       myrect.Width = 250
       myrect.Height = 100
       a.DrawEllipse(mypen, myrect)
       myrect.X = 400
       myrect.Y = 10
       myrect.Width = 100
       myrect.Height = 250
       a.DrawEllipse(mypen, myrect)

       a.Dispose()
       mypen.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

 </source>