VBA -- Property Get

  • Thread starter Thread starter jfp
  • Start date Start date
J

jfp

Supposedly Property Get can return an array -- but i cannot figure out
how to use this -- i get an "Cannot assign to array" when i try to do
something like
myArray = GetXXX()

How does this work ?
 
jfp said:
Supposedly Property Get can return an array -- but i cannot figure out
how to use this -- i get an "Cannot assign to array" when i try to do
something like
myArray = GetXXX()

How does this work ?
Click to expand...

In a class module?

<clsPassArray>
Private arry() As String

Public Property Get TheArray() As String()
TheArray = arry
End Property


Private Sub Class_Initialize()
ReDim arry(6)
arry(0) = "Once"
arry(1) = "upon"
arry(2) = "a"
arry(3) = "time"
arry(4) = "in"
arry(5) = "the"
arry(6) = "west."
End Sub

</clsPassArray>

<Form Test>

Private Sub Command0_Click()
Dim ar As clsPassArray
Dim s() As String
Dim i As Integer
Set ar = New clsPassArray

s = ar.TheArray
Text0.Value = ""

For i = 0 To UBound(s)
Text0.Value = Text0.Value & i & ": " & s(i) & vbCrLf
Next

Set ar = Nothing
End Sub

</Form Test>
 
Ahhh ...
I had an example similar to yours, but i knew (by design) the size of
the array. So, in the part that calls the function, instead of your
Dim s() As String
i had something like
Dim s(4) As String
This led to the "Cannot assign to array" error during compilation.
Any idea why this is ?

Also -- i was surprised that your
s = ar.TheArray
worked. I thought the () were needed since it is a function call.
Apparently not, but
s = ar.TheArray()
works equally well.

Thanks !
-=-=-=-=
 
Back
Top