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.
-----------------------------------