[VB] Ridimensionamento array..è_é

[Vinxi]

Salve ragazzi, ho un piccolo intoppo con l'uso degli array.. In pratica mi
servirebbe riempire un vettore ridimensionandolo di volta in volta in modo
tale che la sua grandezza sia uguale al numero degli elementi contenuti. Vi
posto il mio codice..

Dim grandezza() as variant
ReDim Preserve grandezza(UBound(grandezza) + UBound(size))
i = 0
While i < UBound(size)
grandezza(UBound(grandezza) + 1) = size(i)
i = i + 1
Wend

Grandezza è il vettore in questione.. Size è il vettore contenente i dati da
copiare in grandezza.
Questo codice mi genera l'errore "Subscript out of range"..perchè? Grazie
per le eventuali risposte!

[riky78]

[supersaibal]Originariamente inviato da Vinxi

grandezza(UBound(grandezza) + 1) = size(i)


[/supersaibal]

questa riga cerca di mettere dentro a Grandezza un valore nella posizione Max + 1... l'errore dovrebbe essere qui

[Vinxi]

Il fatto è che l'errore mi arriva già sulla riga
ReDim Preserve grandezza(UBound(grandezza) + UBound(size))

[ladyBlu]

Allora, devi spostare nel ciclo l'istruzione che ridimensiona il tuo array.

Dim grandezza() as  variant

ReDim grandezza(0)
i = 0
While i < UBound(size)
    
    grandezza(UBound(grandezza) - 1) = size(i)
    i = i + 1

    ReDim Preserve grandezza(UBound(grandezza) + 1)

Wend

Così dovrebbe andare.

[IKON]

Il problema sta qui:

Dim grandezza() as variant
ReDim Preserve grandezza(UBound(grandezza) + UBound(size))

L'array grandezza l'hai appenda dichiarato senza dimensioni quindi eseguendo l'UBOUND su un array senza alcuna dimensione si genera un errore!

Spero di essere stato chiaro