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.




Reply With Quote