Obtention des interfaces implémentées dans une classe

Question

Existe-t-il un moyen d'obtenir une référence pour chacune des interfaces implémentées dans une classe?

Par exemple, j'ai une classe; Est-ce que je peux obtenir une référence à chaque interface, afin de pouvoir la stocker dans une autre classe?

Class ExampleClass2 

    Private interface1Implementer as IInterface1 
    Private interface2Implementer as IInterface2 

End Class 

Et quand je l'appelle les méthodes dans chaque interface, il appelle les méthodes mises en œuvre par ExampleClass1?

Answer 1

Vous devriez pouvoir utiliser:

Dim Instance As New ExampleClass1() 
Dim Interface1Implementer As IInterface1 = Instance 
Dim Interface2Implementer As IInterface2 = Instance