[VB6] Problema con visualizzazione degli elementi di un Array

[tomazek]

Ciao Ragazzi, ho bisogno di un aiuto.

A scuola mi è stato dato un esercizio base sugli array, ovvero devo caricare e visualizzare 5 nomi. Per il caricamento non ho avuto problemi.
Il professore vuole che per capire bene il funzionamento dell'array, devo fare in modo di farli visualizzare in una Label.

Questo è il codice del caricamento più le variabili:

Dim Nome As String
Dim ElencoPersone(4) As String
Dim Contatore As Integer

Private Sub cmdCarica_Click()
Nome = InputBox("Scrivi il nome", "Inserisci il Nome")
ElencoPersone(Contatore) = Nome
Contatore = Contatore + 1
If Contatore = 5 Then
cmdCarica.Enabled = False
End If
End Sub

Questo è il form:


Per la visualizzazione stavo provando un codice del genere:
Private Sub cmdVisualizza_Click()
lblDati.Caption = ""
For Cont = 1 To Contatore
lblDati.Caption = ElencoPersone(Nome)
Next
Cont = Cont + 1
End Sub

Mi da Errore 13

[oregon]

La visualizzazione dovrebbe essere

Originariamente inviato da tomazek
Private Sub cmdVisualizza_Click()
lblDati.Caption = ""
For Cont = 0 To Contatore-1
lblDati.Caption = ElencoPersone(Cont)
Next
End Sub

[tomazek]

Inserisce solo l'ultimo elemento dell'array

[oregon]

Originariamente inviato da tomazek
Inserisce solo l'ultimo elemento dell'array

Giusto ... mi è sfuggito (ma potevi accorgertene e correggere da solo) ...

lblDati.Caption = lblDati.Caption & ElencoPersone(Cont) & vbCrLf

[tomazek]

Ok Grazie..ultima curiosità..per visualizzarli uno alla volta??

Ovvero: visualizza il primo, poi il secondo, poi il terzo ecc. mettendoli però l'uno sotto l'altro.

[Grumpy]

Quando devi riportare un errore, oltre al codice riporta anche il testo e indica in quale riga avviene. Grazie.

Se vuoi visualizzare un nome alla volta, cioè agni volta che viene premuto il pulsante Visualizza, devi eliminare il ciclo For...Next.