Lister toutes les classes d'un namespaceRésolu

Question

Bonjour,

J'ai un noyau de programmation [Noyau.dll] où se trouve plusieurs classes dans différents namespaces qui sont réutilisées dans plusieurs programmes.

Je cherche à faire quelque chose du genre :

   For Each cl as Classe In Noyau.Classes
   Next
 
   OU

   For Each ns as Namespace In Noyau.Namespaces
      For Each cl as Classe In Noyau.Classes
      Next
   Next

Ceci dans le but de me créer une méthode 'shared' ClasseTesteur afin de tester chacun des constructeurs, des méthodes et des propriétés de ma classe.


Merci,

Pascal

Passepoil75 · Accepted Answer

On ait jamais aussi bien servi que par soi-même:

Dim ClassNamespace As String = "Noyau" 
Dim Path As String = "\...\monDll.dll"
Dim a As Reflection.Assembly = Reflection.Assembly.LoadFrom(Path)
Dim assemblyTypes() As Type = a.GetTypes

For Each mytype As Type In assemblyTypes
    Dim methode As Reflection.MethodInfo = mytype.GetMethod("ClasseTesteur")
    If methode IsNot Nothing Then methode.Invoke(mytype, Nothing)
Next

Passepoil75 · Answer

Correction:

For Each ns as Namespace In Noyau.Namespaces 
   For Each cl as Classe In ns.Classes 
   Next 
Next

Passepoil75 · Answer

J'ai trouvé ma réponse:


Dim ClassNamespace As String = "Noyau" 
Dim Path As String = "\...\monDll.dll"
Dim a As Reflection.Assembly = Reflection.Assembly.LoadFrom(Path)
Dim assemblyTypes() As Type = a.GetTypes
For Each mytype As Type In assemblyTypes
    Me.CheckedListBox1.Items.Add(mytype.Name)
Next

Par contre, est-ce quelqu'un sait comment appeler une fonction shared de la classe?

Lister toutes les classes d'un namespace

3 réponses

Votre réponse

Discussions similaires