[VB6] Visualizzazione di un vettore

[Armand]

Salve, cortesemente vorrei un'informazione, ho la necessità di visualizzare un vettore, nel quale ho precedentemente provveduto ad inserire i valori, in altre parole esiste una istruzione simile a MsgBox, se si, funziona sia con gli array semplici, diciamo i vettori colonna che con le matrici?

Grazie

Saluti

Mirko

[Lak3d]

una funzione che stampi un vettore non credo esista, ma puoi fartela tu in pochi secondi...

Function StampaVettore(Vettore as Variant, size as Long) as String
Dim i as Integer

str=""
For i=0 to size-1  'puoi anche usare Ubound(nome vettore)-1
   str=str+ Vettore(i)+vbcrlf   
Next
Stampa Vettore=str

End function

poi stamperai la stringa con msgbox volendo...

[MItaly]

Accidenti... battuto sul tempo! Comunque ecco la funzione che avevo scritto:

Public Function Vector2String(arr As Variant) As String
Dim c As Long
If Not IsArray(arr) Then Err.Raise 5, "Vector2String", "arr must be an array."
Err.Clear
On Error Resume Next
c = LBound(arr, 2)
If Err.Number = 0 Then Err.Raise 5, "Vector2String", "arr must be a single dimension array."
On Error GoTo 0
For c = LBound(arr) To UBound(arr)
    Vector2String = Vector2String & CStr(arr(c)) & vbCrLf
Next c
End Function

. Rispetto all'altra proposta, è più sicura (verifica che si tratti effettivamente di un array monodimensionale) e più versatile (funziona con array con qualunque indice di base).

[chico62]

Questo codice funziona sia con vettori che con matrici, indipendentemente dal numero di dimensioni:

Dim ElementoArray As Variant
For Each ElementoArray In NomeArray
    Debug.Print (ElementoArray)
Next

Ciauz

Chico

[Lak3d]

sicuro?

[chico62]

Sono sicuro solo della signora con la falce, Lak3d.....

I test che ho effettuato sinora con questo codice (ho provato con un vettore e con matrici sino a tre dimensioni) non mi hanno dato problemi....

Comunque, se reputi che nel codice da me proposto ci sia qualche imprecisione (o madornale errore) mi faresti una cortesia segnalandomelo.....

Ciauz

Chico

[Lak3d]

boh, a me funziona soltanto con vettori ad una dimensione... se ne creo uno dimensionale mi restituisce un errore... mi faresti un esempio di come lo utilizzi con un vettore a due dimensioni?

magari è soltanto la mia ignoranza...

[chico62]

Option Explicit
Private Sub Form_Load()
Dim MioArray(2, 5, 6) As Double
Dim ElementoArray As Variant
'popolo l'array con valori casuali
Dim A As Integer, B As Integer, C As Integer
For A = 0 To 2
    For B = 0 To 5
        For C = 0 To 6
            Randomize Timer
            MioArray(A, B, C) = Int((60 * Rnd) + 1)
        Next
    Next
Next
'elenco il contenuto dell'array
For Each ElementoArray In MioArray
    Debug.Print ElementoArray
Next
End Sub

Ciauz

Chico