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
|
