[vb.net]caricare lista con collection

[Kahm]

salve a tutti
data la seguente classe:

Class cNote
    Dim mNota As String
    Dim mCodice As String
    Property Nota() As String
        Get
            Return mNota
        End Get
        Set(ByVal Value As String)
            mNota = Value
        End Set
    End Property
    Property codice() As String
        Get
            Return mCodice
        End Get
        Set(ByVal Value As String)
            mCodice = Value
        End Set
    End Property
End Class

premetto che sono principiante
vorrei caricare un listview usando una collection: ho provato in questo modo

        Dim OBJ As New cNote
        Dim Col As New Collection

        Dim i As Integer
        For i = 0 To 10
            OBJ.codice = i
            OBJ.Nota = i
            Col.Add(OBJ.Nota)
        Next

        For i = 0 To Col.Count - 1
            Me.ListBox1.Items.Add("????") 'carocare con le note
        Next

        'for each .....
        '

come faccio a caricare i valori "NOTE"???
ho creato un ciclo for, anche se con il for...each mi ci sono perso
qualche suggerimento?
vi ringrazio

[Il Totem]

For i = 0 To Col.Count - 1
  Me.ListBox1.Items.Add(OBJ(i).Nota)
Next

oppure

For Each O As cNote In Col
  Me.ListBox1.Items.Add(O.Nota)
Next

[Kahm]

Originariamente inviato da Il Totem

For i = 0 To Col.Count - 1
  Me.ListBox1.Items.Add(OBJ(i).Nota)
Next

oppure

For Each O As cNote In Col
  Me.ListBox1.Items.Add(O.Nota)
Next

questa riga di codice:

For Each O As cNote In Col

mi da errore:specified cast is not valid, segnalandomi COL in rosso
sai da cosa puo' dipendere?

graze

[KataKlism2002]

l'errore è qui

Col.Add(OBJ.Nota)

metti

Col.Add(OBJ)

[Kahm]

Originariamente inviato da KataKlism2002
l'errore è qui

Col.Add(OBJ.Nota)

metti

Col.Add(OBJ)

perfetto non da più errore
ma nella listbox compaiono 10 record uguali e cioè tutti: "10"
dici che ad ogni ciclo dovrei riazzerare la classe?

[KataKlism2002]

ghghgh errore subdolo, classico ma interessante per chi è alle prime armi

dipende dal fatto che nella collection stai inserendo 10 volte LO STESSO OGGETTO, passato per riferimento. quindi nei 10 cicli in cui popoli la collection, modificando il valore edll'oggetto lo stai modificando anche per i cicli precedenti...

mi spiego meglio

il ciclo in cui c'è l'errore è questo:

        For i = 0 To 10
            OBJ.codice = i
            OBJ.Nota = i
            Col.Add(OBJ.Nota)
        Next

al ciclo 0 obj.codice vale 0 e obj.nota anche, aggiungi l'oggetto quindi alla collection nella sua prma posizione

al ciclo 1 obj.codice vale 1 e obj.nota vale 1, ma essendo lo stesso oggetto di prima stai modificando anche l'oggetto che avevi inserito nella collection al ciclo 0, quindi alla fine del ciclo 1 la collection ha 2 riferimenti di memoria che puntano allo stesso oggetto.
al decimo ciclo hai 10 riferimenti di memoria che puntano allo stesso oggetto. ergo ti popola la lista di 10 righe uguali

soluzione, crea un nuovo oggetto ad ogni ciclo in modo che venga dedicata una nuova area di memoria a quell'oggetto.

        For i = 0 To 10
            OBJ = new cNote()
            OBJ.codice = i
            OBJ.Nota = i
            Col.Add(OBJ.Nota)
        Next

[MItaly]

        Dim OBJ As cNote
        Dim Col As New Collection

        Dim i As Integer
        For i = 0 To 10
            OBJ = New cNote
            OBJ.codice = i
            OBJ.Nota = i
            Col.Add(OBJ.Nota)
        Next
'eccetera

[Kahm]

grazie, mi serviva il vostro aiuto
ora posso iniziare a fare l'analisi di come strutturare il programma

a proposito
facendo un po' di esperimenti ho visto che anche se nella classe dichiaro una variabile pubblica

 Public a As String

invece di una properties, riesco lo stesso a gestire lo stesso la collection
visto che nella properties utlizzo anche una variabile private, quale è il motivo che si consiglia di usare la properties?

grazie

[KataKlism2002]

non basta un post per spiegare l'importanza di una property...

in parole spicciole..

se fai

public CodiceFiscale as string

in CodiceFiscale ci puoi mettere qualunque stringa ti pare... non rispettando le regole del codicefiscale (16 caratteri composti in un certo omdo)

facendo una property obblighi chi usufruisce edlla tua classe a rispettare tali regole... i nquesto modo:

        private _CodiceFiscale as string

    public Property CodiceFiscale() As String
        Get
            Return _CodiceFiscale 
        End Get
        Set(ByVal Value As String)
            if (IsCodiceFiscaleValido(value) = true) Then
                  _CodiceFiscale = value
            else
                 throw new Exception("Codice Fiscale non valido!")
            end if
        End Set
    End Property

ovviamente IsCodiceFiscaleValido è una funzione booleana che fa i controlli necessari sulla stringa che le si passa.

E' solo uno dei tanti esempi, spero renda l'ieda dell'importanza delle proprietà

[Kahm]

vabbeh, questo dei codice fiscali è una possibilità
attualmente non mi serve nessun tipo di controllo in quanto è un campo note

forse se posti qualche altro suggerimento oltre ai controlli potresti essere chiarito meglio _