Rectangle class : Class « Data Type Functions « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Data Type Functions
3. Class

Rectangle class

 

Option Compare Database
Option Explicit

Private dblHeight As Double
Private dblWidth As Double

Public Property Let Height(dblParam As Double)

    dblHeight = dblParam

End Property

Public Property Let Width(dblParam As Double)

    dblWidth = dblParam

End Property

Public Property Get Height() As Double

    Height = dblHeight

End Property

Public Property Get Width() As Double

    Width = dblWidth

End Property

Public Property Get Area() As Double

    Area = (dblHeight * dblWidth) / 2

End Property

Public Sub DoubleSides()

    dblHeight = dblHeight * 2
    dblWidth = dblWidth * 2
    
End Sub

 

Related examples in the same category