Visual Basic - Clases y Collection

Life is soft - evento anual de software empresarial
   
Vista:

Clases y Collection

Publicado por Gabriel (38 intervenciones) el 26/12/2007 22:23:53
Estimados, les esccribo debido a que tengo un problema, a modo de prueba estoy queriendo implementar colecciones de clases para después utilizarlas individualmente, en un módulo de clase (cDatos) tengo por ej

public id as long
public nombre as string

y en un formulario ahgo

dim Datos as new collection
dim NuevoDato as cDatos

set nuevodato = new cdatos

nuevodato.id = 1
nuevodatos.nombre = "uno"

datos.add nuevodatos.nombre, nuevodatos.id

nuevodato.id = 2
nuevodatos.nombre = "dos"

datos.add nuevodatos.nombre, nuevodatos.id

Ahora bien yo quisiera realizar un bucle para poder obtener el id y el nombre de las clases que fueron agregadas a la colección, es decir que me aparezca

1
uno
2
dos

probé con el for each pero no hay caso, alguien me puede decir como puedo hacer esto??
Atentamente
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Clases y Collection

Publicado por Francesc (1 intervención) el 27/12/2007 17:33:28
Hola,

Exactamente que quieres hacer? Una Lista generica , o sea una colección de instancias de una clase o una Lista generica de diferentes instancias de diferentes clases?Visual Basic 6 o .net?

Gracias! a ver si te puedo ayudar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Clases y Collection

Publicado por Gabriel (38 intervenciones) el 27/12/2007 21:32:38
Lo que estoy queriendo hacer es una colección de instancias de una sola clase y estoy trabajando en VB 6.
Gracias por responder
Atentamente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Clases y Collection

Publicado por alberto (123 intervenciones) el 09/01/2008 10:40:41
Prueba con:

dim x as cDatos

for each x in Datos
debug.print x.id, x.nombre
next x
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar