New Rectangle(Int x, Int y, Int w, Int y) : Rectangle « System.Drawing « VB.Net by API

1. VB.Net by API
2. System.Drawing
3. Rectangle

New Rectangle(Int x, Int y, Int w, Int y)

  

Imports System
Imports System.Windows.Forms
Imports System.Drawing


Public Class MainClass

  Shared Sub Main()
     Dim form1 As Form1 = new Form1
     Application.Run(form1)
  End Sub
  
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form

    Public Sub New()
        MyBase.New()
        Me.ClientSize = New System.Drawing.Size(292, 273)
    End Sub

  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    Dim G As Graphics = e.Graphics
    G.Clear(Color.BurlyWood)
    Dim r As Rectangle = New Rectangle(50, 50, 100, 100)
    Dim b As Brush = Brushes.Crimson
    G.FillRectangle(b, r)

  End Sub

End Class

   
    
  

Related examples in the same category