Class attributes (NewB QUESTION)(RESOLVED)

[yyayl]

Currently i have a class called clsLoanPolicy which is as below:

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.

[Joacim Andersson]

You can use the Class_Initialize event to set initial values to cMaxLoanLimit and iOverdueCharges.

Private Sub Class_Initialize()
    cMaxLoanLimit = 200
    iOverdueCharges = 2
End Sub

May I ask why your property procedures returns and accept Variants when MaxLoanLimit should be in Currency and OverdueCharges in Integer according to your private variables?

[yyayl]

Thx for the ans Joacim

May I ask why your property procedures returns and accept Variants when MaxLoanLimit should be in Currency and OverdueCharges in Integer according to your private variables?

ermm.... no idea.
Isnt variant the default vb data type and holds any type of data?

[Wokawidget]

A variant can be ANY data type and due to this is scoffs a lot more memory. Since your properties are for a specific datatype, ie currency, then the property should also be curreny...

[yyayl]

Originally posted by Wokawidget
A variant can be ANY data type and due to this is scoffs a lot more memory. Since your properties are for a specific datatype, ie currency, then the property should also be curreny...

ahhhhhhhhh....... now these are the stuffs they dont say in the lecture notes.
then again i shouldnt expect much when the lecture notes are never more than 10 pages for a single topic

[si_the_geek]

not to mention the fact that you could pass text to it rather than numbers. if you use the proper data type then VB will force the coder to pass valid data to the class

[yyayl]

Originally posted by si_the_geek
not to mention the fact that you could pass text to it rather than numbers. if you use the proper data type then VB will force the coder to pass valid data to the class

ahhh......