Redim Array - Argumento

[Guest - Guilherme -]

Galera.. estou com um problema

tenho um array em um determinado form..

e tenho uma função em um módulo que precisa redimensionar esse array e passar valores pra ele também..

só passar avlores é tranquilo.. passo o array na chamada da função como byref..mas quando eu redimensiono ele dentro da função.. ele num é redimensionado no form..

alguém sabe como me ajudar?

Valeus desde já!

[Graymalkin]

A idéia é a mesma... ou seja, passar por referência. Veja:

Public Sub Teste(ByRef v)
    ReDim v(10)
    
    For i = 0 To 10
        v(i) = i
    Next i
End Sub

A função acima está em um módulo. Daí, eu chamo ela no form:

    Dim vetor()
    
    Teste vetor
    
    For Each valor In vetor
        Debug.Print valor
    Next valor

E "vetor" fica redimensionado e com os valores definidos na função.

Certo? ;)

Graymalkin

[Guest Visitante]

nossa cara.. num sei uq eu tinha feito.. na verdade eu quero algo assim:

For i = 0 To 10

ReDim Preserve v(UBound(v) + 1)

v(i) = i

Next i

Agora está funcionando.. antes dava erro.. script out of range.. é porque eu tinha esquecido de fazer isso:

ReDim Preserve v(0)

ai ele dava erro ao pegar o ubound(v)

Obrigado!!

[Graymalkin]

Beleza, então! :)

Agora, se cadastra aí no fórum e ajude a nossa comunidade a crescer, ok? ;)

Graymalkin