Creating the MyRectangle Class : Class « Data Type Functions « VBA / Excel / Access / Word

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

Creating the MyRectangle 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
     End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''     
Sub ClassDemo()
     Dim objRect As MyRectangle
     Set objRect = New MyRectangle
     objRect.Height = 5
     objRect.Width = 8
     Debug.Print "The area of a rectangle measuring " & objRect.Height & _
                 " x " & objRect.Width & " is " & objRect.Area
     Set objRect = Nothing
End Sub

 

Related examples in the same category