Rectangle.X : Rectangle « System.Drawing « VB.Net by API

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

Rectangle.X

  
Imports System.Drawing.Text
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class Test
   public Shared Sub Main
        Dim pt As New Point(10, 10)
        Dim sz As New Size(60, 40)
        Dim rect1 As Rectangle = Rectangle.Empty
        Dim rect2 As New Rectangle(20, 30, 30, 10)
        ' Set Rectangle properties
        If rect1.IsEmpty Then
            rect1.Location = pt
            rect1.Width = sz.Width
            rect1.Height = sz.Height
        End If
        ' Get Rectangle properties
        Dim str As String = "Location:" + rect1.Location.ToString()
        str += ", X:" + rect1.X.ToString()
        str += ", Y:" + rect1.Y.ToString()
        str += ", Left:" + rect1.Left.ToString()
        str += ", Right" + rect1.Right.ToString()
        str += ", Top:" + rect1.Top.ToString()
        str += ", Bottom:" + rect1.Bottom.ToString()
        Console.WriteLine(str)
   End Sub
End class     

   
    
  

Related examples in the same category