See
Re: Problem with an Array Message #
652903.
>Hi all,
>
>I have a mysterious behavior (well maybe not mysterious). I create a DLL in VFP7. It works with no problem under VFP 6 or 7. But when i try to used in VB6, i get a range of errors (wrong number of parameters, type mismatch, radonly property) and the error changes with each compile without changing a single line of code. The following is the VFP class:
>
>Define Class Test as Custom Of 'Test.prg' Olepublic
>
> Dimension Array1(10)
>
> Dimension Array1_COMATTRIB[4]
> Array1_COMATTRIB[1] = 0
> Array1_COMATTRIB[2] = 'Array1 Description'
> Array1_COMATTRIB[3] = 'Array1'
> Array1_COMATTRIB[4] = 'Single'
>
> Procedure Init as VOID
> For i=1 to 10
> This.Array1(i) = i
> EndFor
> EndProc
>
> Procedure Array1_Assign(m_Value as Single, intIndex as Integer) as VOID
> This.Array1(intIndex) = m_Value
> Endproc
>
> Function Array1_Access(intIndex as Integer) as Single
> Return This.Array1(intIndex)
> Endfunc
>
>Enddefine
>
>And now the vb6 code:
>Private Sub Command1_Click()
> Dim ox As testchar.Test
> Set ox = New testchar.Test
> With ox
> ox.Array1(1) = 6
> Debug.Print ox.Array1(1)
> End With
> Set ox = Nothing
>End Sub
>
>Thanks in advance,
>
>Setrak Aslanian
--sb--