[VB6]: Aggiungere ed enumerare elementi di una Collection

[santino83_11_04]

Salve,

questa è la class collection :

private store as collection

public function Item(byval s as string) as myObject  'ritorna l'elemento specificato

public function Items() as Variant() 'ritorna un array con tutti gli elementi di store

.....

mi dite come faccio ad aggiungerci il supporto per l'enumerazione in maniera da poter usarci il for each? e soprattutto, una volta aggiunto, che sintassi dovrei usare nel for each?

grazie

[santino83_11_04]

nessuno?

[santino83_11_04]

Salve,

ho un piccolo problema utilizzando l'oggetto collection... questo script esemplificativo

Dim X As New Collection

Dim Y As New MyObject


Y.Name = "ciao"
Y.Id = "miano"

X.Add Y

Y.Name = "mio"

X.Add Y

Y.Name = "amico"

X.Add Y

For i = 1 To X.Count
MsgBox X(i).Name
Next

invece di stampare "ciao mio amico" mi stampa "amico amico amico"... in pratica gli oggetti che stanno già nella collection vengono modificati alla modifica di Y nei vari punti

c'è un modo per ovviare a questo oppure mi attacco?

[sspintux]

Originariamente inviato da santino83_11_04
.............
c'è un modo per ovviare a questo oppure mi attacco?

non funziona come pensi perchè hai aggiunto 3 volte la *stessa istanza y di MyObject*;
....ogni volta che aggiungi (x.add) devi crearne una nuova

P.S.
nel caso del tuo codice (che a me non piace molto)
dim y as new MyObject

per crearne una nuova basta fare
set y=nothing
y.nome="xxxx"
prima di x.add y

[santino83_11_04]

Originariamente inviato da sspintux
non funziona come pensi perchè hai aggiunto 3 volte la *stessa istanza y di MyObject*;
....ogni volta che aggiungi (x.add) devi crearne una nuova

P.S.
nel caso del tuo codice (che a me non piace molto)
dim y as new MyObject

per crearne una nuova basta fare
set y=nothing
y.nome="xxxx"
prima di x.add y

perchè non ti piace? ma se prima di y.nome metto set y=nothing, che metto in x.add?

[sspintux]

Originariamente inviato da santino83_11_04
.... ma se prima di y.nome metto set y=nothing, che metto in x.add?

la nuova istanza che il vb6 crea automaticamente grazie alla dichiarazione
dim y as new myobject.
.... è per questo che non mi piace.

[santino83_11_04]

Originariamente inviato da sspintux
la nuova istanza che il vb6 crea automaticamente grazie alla dichiarazione
dim y as new myobject.
.... è per questo che non mi piace.

sarebbe stata diversa se scrivevo:

dim y as myobject
set y=new myobject

?

ti piace o non ti piace mi interessa poco sinceramente, ma se mi argomentassi il perchè magari tornerebbe utile ai poveri ignorantoni come me

[alka]

Originariamente inviato da sspintux
la nuova istanza che il vb6 crea automaticamente grazie alla dichiarazione
dim y as new myobject.
.... è per questo che non mi piace.

Se omettessi New, forse ti piacerebbe di più?

[sspintux]

Originariamente inviato da santino83_11_04
sarebbe stata diversa se scrivevo:

dim y as myobject
set y=new myobject

?

Sì perchè in questo modo è il programmatore che deve creare
esplicitamente tutte le istanze di cui necessita evitando così
di ritrovarsi con istanze non volute automaticamente generate
dal compilatore in seguito a disattenzione del programmatore...

...IMHO ovviamente

Originariamente inviato da santino83_11_04
ti piace o non ti piace mi interessa poco sinceramente, ma se mi argomentassi il perchè magari tornerebbe utile ai poveri ignorantoni come me

...credo ci sia stata qualche incomprensione per cui
chiedo scusa se ho scritto, senza volerlo, qualcosa
che hai ritenuto offensiva e stai tranquillo che
in futuro non ti disturberò più.

[sspintux]

Originariamente inviato da alka
Se omettessi New, forse ti piacerebbe di più?

Sì (anche se forse in qualche caso potrebbe tornare utile)
...e grazie per l'interessamento