PageRenderTime 15ms CodeModel.GetById 12ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/Source Code/ExperimentalProjection/AgnosticRectangle.vb

#
Visual Basic | 27 lines | 17 code | 10 blank | 0 comment | 0 complexity | a08c9a7d4c6619b4f7990f3a0cef22d0 MD5 | raw file
 1Public Class AgnosticRectangle
 2
 3    Public Property Left As Double = 0
 4
 5    Public Property Top As Double = 0
 6
 7    Public Property Width As Double = 0
 8
 9    Public Property Height As Double = 0
10
11    Public Sub New()
12
13    End Sub
14
15    Public Sub New(ByVal left As Double, _
16                   ByVal top As Double, _
17                   ByVal width As Double, _
18                   ByVal height As Double)
19
20        Me.Left = left
21        Me.Top = top
22        Me.Width = width
23        Me.Height = height
24
25    End Sub
26
27End Class