/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. 

  2. 

    3. 

  3.     Public Property Left As Double = 0

    4. 

  4. 

    5. 

  5.     Public Property Top As Double = 0

    6. 

  6. 

    7. 

  7.     Public Property Width As Double = 0

    8. 

  8. 

    9. 

  9.     Public Property Height As Double = 0

    10. 

  10. 

    11. 

  11.     Public Sub New()

    12. 

  12. 

    13. 

  13.     End Sub

    14. 

  14. 

    15. 

  15.     Public Sub New(ByVal left As Double, _

    16. 

  16.                    ByVal top As Double, _

    17. 

  17.                    ByVal width As Double, _

    18. 

  18.                    ByVal height As Double)

    19. 

  19. 

    20. 

  20.         Me.Left = left

    21. 

  21.         Me.Top = top

    22. 

  22.         Me.Width = width

    23. 

  23.         Me.Height = height

    24. 

  24. 

    25. 

  25.     End Sub

    26. 

  26. 

    27. 

  27. End Class
    28.