Type mismatch in class

[tiredofit]

In the code below, why am I getting a Type mismatch error on this line?

 a = rect.AreaItem(l, w)​

Standard Module:

Option Explicit

Sub Start()

    Dim l As Double
    Dim w As Double
    
    Dim rect As New clsRectangle
    
    l = 10
    w = 20
    
    rect.Area = l * w
    
    Dim a As Double
    
    a = rect.AreaItem(l, w)

End Sub

ClsRectangle:

Option Explicit

    Private dblA As Variant

Public Property Let Area(ar As Variant)

    dblA = ar

End Property

Public Property Get AreaItem(lngth As Double, wdth As Double) As Variant

    AreaItem = dblA(lngth, wdth)

End Property

Thanks

 

[tiredofit]

Not sure what you mean.

When I say arrays example, I mean post 5.

 

[Domenic]

In that example that you referred to, it was simply pointing out that it is possible to pass multiple arguments to a Property Let procedure. So in your example, it might make a bit more sense to include two additional member variables to hold the length and width. Then these values could also be retrieved in addition to the area. So your example could be amended as follows...

Class Module:

Option Explicit

Private dblA As Double
Private pLength As Double
Private pWidth As Double


Public Property Let Area(lngth As Double, wdth As Double, ar As Double)


    pLength = lngth
    pWidth = wdth
    dblA = ar


End Property


Public Property Get Area(lngth As Double, wdth As Double) As Double


    lngth = pLength
    wdth = pWidth
    Area = dblA


End Property

Regular Module:

Option Explicit

Sub clsRectangleRun()


    Dim rect As New clsRectangle
    Dim l As Double
    Dim w As Double
    Dim a As Double


    l = 10
    w = 20


    rect.Area(l, w) = l * w


    a = rect.Area(l, w)
    
    Debug.Print "Length = " & l & "; Width = " & w & "; Area = " & a


End Sub

 

[tiredofit]

Thanks for clarifying.