[vb] 2 quesiti sugli Array

[ZioAlfredo]

Ho due quesiti, spero elementari, sugli Array da risolvere:

1) Nel caso in cui devo inserire in un array un numero non definito di elementi come si deve fare ? Come funziona il Redim ?

2) Devo passare ad una funzione varie variabili in input, compreso un Array, come lo devo passare l'array ???

[Johnny_Depp]

abbiamo un subforum apposito per il VB, sposto il thread.
(p.s. nel titolo bisogna specificare anche la versione: VB6 o VB.NET ?)

[Mabi]

Originariamente inviato da ZioAlfredo
1) Nel caso in cui devo inserire in un array un numero non definito di elementi come si deve fare ? Come funziona il Redim ?

Se si tratta di VB6, ReDim ridimensiona un array dichiarato senza dimensioni, cioè ridimensionabile.
Quindi per prima cosa lo dichiari e poi lo ridimensioni come vuoi:

Const NumeroElementi1 = 10
Const NumeroElementi2 = 20
Dim ArrayProva() As Integer

ReDim ArrayProva(NumeroElementi1)
MsgBox UBound(ArrayProva)
ReDim ArrayProva(NumeroElementi2)
MsgBox UBound(ArrayProva)

Originariamente inviato da ZioAlfredo
2) Devo passare ad una funzione varie variabili in input, compreso un Array, come lo devo passare l'array ???

L'array lo passi come array (Array()):

Const NumeroElementi1 = 10
Const NumeroElementi2 = 20
Dim ArrayProva() As Integer

Call ReDim_Array(ArrayProva, NumeroElementi1)
MsgBox UBound(ArrayProva)
Call ReDim_Array(ArrayProva, NumeroElementi2)
MsgBox UBound(ArrayProva)

Private Sub ReDim_Array(ByRef ArrayIn() As Integer, ByVal Dimensione As Integer)
ReDim ArrayIn(Dimensione)
End Sub