problema Collection e array!!

[cipo002]

Ciao a tutti, sto cercando di far fare ad un programma di grafica qualcosa di + interessante.
devo recuperare le cordinate di tutti i punti che compongono una curca.

il mio problema arriva adesso, io sono riusto a farmi restituire le coordinate deipunti in un array:

es: ArraypointXY, dove ArraypointXY(0) contiene le coordinate della X
dove ArraypointXY(1) contiene le coordinate della Y

io adesso devo passarle in un unico array bidimensionale perchè mi è più comodo lavorarci in seguito!!!

come posso fare?

ho provato con una collection ma non funziona!!

grazie a tutti ciaooo!!!

vi posto il codice, anche se può sembrare un pò strano!


Dim aPoint

Dim ArraypointXY(2)

For i = 1 To hybridBodyPoints.HybridShapes.Count
Set aPoint = hybridBodyPoints.HybridShapes.Item(i)
aPoint.getCoordinates ArraypointXY


Next i

[Sypher]

Spiegati meglio...vuoi sapere come si usa un array bidimensionale???
cmq vedi se qualcosa del genere può esserti utile(ad esempio un array di 2 dimensioni,la prima da 4 elementi,la seconda da 2):

Dim ArrBidimensionale(3, 1)

ArrBidimensionale(0, 0) = "tuaX"
ArrBidimensionale(0, 1) = "tuaY"
ArrBidimensionale(1, 0) = "tuaX1"
ArrBidimensionale(1, 1) = "tuaY1"
ArrBidimensionale(2, 0) = "tuaX2"
ArrBidimensionale(2, 1) = "tuaY2"
ArrBidimensionale(3, 0) = "tuaX3"
ArrBidimensionale(3, 1) = "tuaY3"

[cipo002]

Con questo codice mi genero 3 array, volevo però crearne uno unico, visto che poi devo fare abbastanza conti sui dati!

Ciao e grazieeeeee




Dim aPoint

Dim ArraypointXY(2)

Dim CoordinateX(1000) As Double
Dim CoordinateY(1000) As Double
Dim CoordinateZ(1000) As Double

For i = 1 To hybridBodyPoints.HybridShapes.Count
Set aPoint = hybridBodyPoints.HybridShapes.Item(i)
aPoint.getCoordinates ArraypointXY

CoordinateX(i) = ArraypointXY(1)
CoordinateY(i) = ArraypointXY(2)
CoordinateZ(i) = ArraypointXY(0)

Next i

[iguana13]

Con il codice di Sypher generi solo 1 array con 2 dimensioni!

[iguana13]

Puoi anche fare:

[CODE]
Private Type Coords
X as integer
Y as integer
end type

Public ArrCoordinate(30) as Coords

ArrCoordinate(0).Y=8
ArrCoordinate(0).X=4
ArrCoordinate(1).Y=3
ArrCoordinate(1).X=5
ArrCoordinate(2).Y=1
ArrCoordinate(2).X=85643