PageRenderTime 44ms CodeModel.GetById 20ms RepoModel.GetById 0ms app.codeStats 0ms

/Source Code/ExperimentalProjection/AgnosticRectangle.vb

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