none
Instanciar un único objeto invocando instancias recorridas de otro objeto tipado. RRS feed

  • Pregunta

  •  

    Tengo una clase que posee muchas propiedades y dentro de ellas muchas más y asi por lo menos hasta cuato o cinco nodos. Lo que querría es instanciar un único objeto que posea todas estas propiedades incluidas sin tener que y declarándome una a una estas propiedades y después igualarlas a otro objeto tipo:

     

    Dim obj as new miClase

    Dim objhijo as new miClase.hijo

     

    objhijo.value="2"

    obj.hijo=objhijo

     

    y así hasta 5 veces para igualarle un valor.

    Se que se puede realizar con reflection y con createinstance pero me parece un poco difícil realizar el recorrido de todas estas propiedades y después obtener un objeto instanciado tipo:

     

    Private sub main()

    Dim obj as object=Creaobjeto("NOMBRECLASE")

    obj.hijo.value="2"

    end sub

     

    Public function Creaobbjeto(dato as string) as object

    'obtener el tipo del objeto .gettype y obtener sus propiedades .getproperties

    'recorrer las propiedades y subpropiedades instanciandolas

    'devolver el objeto

    end function

     

    Gracias

    lunes, 8 de octubre de 2007 12:48

Todas las respuestas