Una clase dentro de otra clase

[luciano]

Hola, tengo la siguiente duda.

Quiero crear una clase, que contenga una seria de objetos, y que esta clase pueda acceder a otra clase. Para ser mas claro, un ejemplo:

El objeto Font, que posee varios controles de vb, al presionar el ".", despliega las propiedades y metodos de "el objeto Fornt", como Bold, FontName, FontItalic etc...

Yo consegui hacerlo de una forma pero se que no es la correcta:

Dentro de un Class1

Código:

Property Get unObjeto() As Class2

Set unObjeto = New Class2

End Property

Dentro de un Class2

Código:

Sub MostrarMensaje(Mensaje As String)
MsgBox Mensaje
End Sub

Luego desde un Formulario creo una instancia de Class1, e invoco al metodo del Objeto "UnObjeto"

Código:

Private Sub Form_Load()
Dim obj As New Class1

Call obj.unObjeto.MostrarMensaje(" Hola ")


End Sub

Bueno, de esta forma como esta planteado funciona bien y es exactamente lo que quiero hacer, pero creo que no es lo ideal o correcto, ya que dentro de Class1, tengo que handar creando una nueva instancia para poder acceder a la otra clase.

Cualquier aporte se agradece.





-----------------------------------

[LeandroA]

hola no estoy muy seguro pero fijate en esta pagina, tiene un ejemplo pero no se si eso lo que buscas

http://vexpert.mvps.org/articles/SimHer.htm

Saludos

[luciano]

Hola Leandro gracias por el link, lo lei todo y lo probé, pero no es exactamente a lo que me refiero, creo que lo que busco lo puedo solucionar por medio de una colección, voy a probar y luego te comento si lo solucioné.

saludos




-------------------------------