Trouble! Array of Array of UDT

[Mythrandil]

Hey all

Im having trouble defining an array of an array of user defined types.

So far i have:

Public Type POINTAPI
    X As Long
    Y As Long
End Type
Public Points()         As POINTAPI
Public Objects()       As Variant

Private Sub Form_Load()
    Objects = Array()
    ReDim Points(0) As POINTAPI
    ReDim Objects(0) As Variant
End Sub

Private Sub cmdcomplete_Click()
    Objects(UBound(Objects)) = Points
    ReDim Objects(UBound(Objects) + 1)
    Erase Points
    ReDim Points(0)

Basicly points is an array of coords that defines a polygon. When cmdcomplete is clicked this polygon is added to the objects array, and the points array initialized to create another polygon ;d

Thanks for any help

/edit, compiler doesn't like line: Objects(UBound(Objects)) = Points

Stating: Only UDT defined in public object modules can be coerced to or from a variant.

[Andrew G]

Try

Objects() = Points()

and have

Objects() As POINTAPI

instead of Variants

[Mythrandil]

Hey thanks for the reply.

I get a type mismatch error on the same line as before doing it your way !

[Mythrandil]

Sorry for bumping but really need help with this!!

Seems such a trivial thing to do i don't understand why it isn't so simple

[Bearnerd]

How about this way

objects(UBound(objects)) = points(UBound(points))

[Mythrandil]

That would put the last element of the points array in objects which isn't my aim. I want to put the whole array points in an element of objects.

[MartinLiss]

To get around the Only UDT defined in public object modules... error you can create a dummy class that contains Public variables x and y and use it instead of the UDT.

[Mythrandil]

Yes after some research i realised that is my only option. Which is a mighty kick in the crutch, as i need to pass the points to API's like polygon which require a UDT so i presume i need to convert them from dummy classes and back again every time i require these apis, which is very inefficient and nasty!!!!

[MartinLiss]

After the UDT has the data wouldn't all you need do is the following?

MyClass.x = Point.x
MyClass.y = Point.y

[Mythrandil]

but everytime my image refreshs i will have to pull all data out of the dummy classes back into udts to pass to polygon api's, just annoying is all.