Class attributes (NewB QUESTION)(RESOLVED)
Currently i have a class called clsLoanPolicy which is as below:
VB Code:
Option Explicit
Private cMaxLoanLimit As Currency
Private iOverdueCharges As Integer
Public Property Get MaxLoanLimit() As Variant
MaxLoanLimit = cMaxLoanLimit
End Property
Public Property Let MaxLoanLimit(ByVal vNewValue As Variant)
cMaxLoanLimit = vNewValue
End Property
Public Property Get OverdueCharges() As Variant
OverdueCharges = iOverdueCharges
End Property
Public Property Let OverdueCharges(ByVal vNewValue As Variant)
iOverdueCharges = vNewValue
End Property
What must i add in the class that will set the cMaxLoanLimit and iOverdueCharges as 200 and 2 respectively.
Then when users create objects of the class, they can use the getters to get the attributes value which should show 200 and 2
and also to use setters to set new attributes values.
In other words, making this class a sort of file to permanently store the attributes.