Abstraction : Class « Data Type Functions « VBA / Excel / Access / Word

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

Abstraction

 
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
''''''''''''''''''''''''''''
Sub ClassDemo2()
    Dim objKite As MyKite
    Set objKite = New MyKite
    
    objKite.Height = 5
    objKite.Width = 8
    
    Debug.Print "The area of a kite measuring " & objKite.Height & _
                " x " & objKite.Width & " is " & objKite.Area
    
    objKite.DoubleSides
    Debug.Print "The area of a kite measuring " & objKite.Height & _
                " x " & objKite.Width & " is " & objKite.Area
    
    Set objKite = Nothing
End Sub

 

Related examples in the same category