VB.NET: Optimiser l'initialisation de plusieurs classes

Question

Dans un de mes projets, je suis en train de faire ceci:

addTemplateToList(New docNULL) 
    addTemplateToList(New docAgenda) 
    addTemplateToList(New docAgendaNew) 
    addTemplateToList(New docOffer) 
    : 
     20 more 
    : 
    addTemplateToList(New docRequest) 

toutes les classes héritent docMain et addTemplateToList (X) ajoute x à une liste (de docMain). Maintenant, ma question est: Y at-il une meilleure façon de faire ce qui est fait dans l'échantillon de code?

Je pensais que quelque chose comme:

for all x as docMain in ALLAVAILABLECLASSES 
    if x.className().beginswith("doc") then addTemplateToList(x) 
next 

Est-ce possible dans une certaine façon VB.net (réflexion?)?

Answer 1

J'ai trouvé une solution assez simple à mon problème:

Dim m As Type = Type.GetType("mainARGQ.docCreator") 
    For Each TypeObj As Type In [Assembly].GetExecutingAssembly().GetTypes() 
     If TypeObj.BaseType Is m And TypeObj IsNot m Then 
      addTemplateToList(Activator.CreateInstance(TypeObj)) 
     End If 
    Next 

Edit: Je me demandais s'il y a un moyen de simplifier "TypeObj.BaseType Est-m et TypeObj IsNot m"

Answer 2

réflexion Google vb.net donne:

http://www.vbdotnetheaven.com/UploadFile/rahul4_saxena/Reflection09122007031247AM/Reflection.aspx

Notez que la même si elle rendra votre code plus flexible/plus court. Ce n'est pas l'optimisation, la réflexion est une fonctionnalité généralement coûteuse dans les programmes.

Answer 3

Vous avez besoin d'utiliser la réflexion, encore mieux d'utiliser MEF (http://www.codeplex.com/MEF) pour coller de nouveaux modules lors de l'exécution ou simplement en supprimant une DLL.

Comme quelqu'un l'a déjà dit, cela ne le rendra pas plus rapide et moins de code.