[VB .Net] Affecter une classe dynamiquement

Bonjour à tous,

Je souhaiterais savoir s'il est possible d'affecter à une variable un nouvel objet de type dynamique. Je m'explique :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Interface B End Interface Class A extends B End Class Class C extends B End Class Dim texte As String = "A" Dim variable As ADO = new Classe_de_nom("texte")

---

Est - ce que vous pensez que cela est possible ?

Alors oui c'est possible (du moins j'ai jamais testé ...)

Ta syntaxe est fausse ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Class clsMaClasse   End Class   Public Class clsMaClasseA Inherits clsMaClasse   End Class   Public Class clsMaClasseB Inherits clsMaClasse   End Class   Sub Main() Dim uneInstance as New clsMaClasse   Select Case "MaVariable" Case "UnCas" uneInstance = CType(clsMaClasse, clsMaClasseA) Case "UnAutreCas" uneInstance = CType(clsMaClasse, clsMaClasseB)   End Select   End Sub

---

Je ne suis par contre par certain du "cast" (dans son utilisation) étant donné que je ne l'ai jamais mis à l'épreuve. Mais cela devrait être possible.



Pour info les interfaces s'utilise comme ça

Code:

---

1 2 3 4 5

Public Interface iMonInterface     End Interface

---

Et l'utilisation :

Code:

---

1 2 3 4

Public Class maClasse Implements iMonInterface   End Class

---

L'interface sert en fait à pouvoir modifier le contenu de ta classe sans devoir changer tes classes appelantes.

Par exemple :
Ta form appelle une interface "a".
L'interface "a" manipule la couche métier.
La couche métier appelle l'interface "b".
L'interface "b" manipule les couches d'accès aux données.

Si un jour tu veux modifier ton système de gestion des données, tu ne modifie que ta classe de couche d'accès aux données... Etc..

D'accord mais donc il faut que je passe par une méthode pour récupérer le type de ma classe et ensuite pouvoir l'instancier. :roll:

ça reste dynamique :)

Tu pourrais penser faire un truc du genre :

Code:

---

1 2 3 4

Dim instanceCls as New clsMaClass Dim maVar as String = "clsMaClasseB"   instanceCls = CType(instanceCls, maVar)

---

Mais je crois qu'il va tenter de convertir ta variable instanceCls en String.

Donc oui, il va falloir que tu passes par une méthode qui selon ton cas, convertie correctement ton instance de classe

Ben en fait j'ai retenu ta première idée, celle de faire un Select Case

ce qui donne ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public ado_systeme As ADO = getADOClasse(My.Settings.ado_systeme) Private Function getADOClasse(ByVal _nom As String) As ADO Select Case _nom Case "Access" Return New Access Case "XML" Return New XML Case "Mysql" Return New Mysql Case Else Return New Access End Select End Function

---

Et ça fonctionne ... :king:

Je te remercie pour ton idée ça m'a permis de bien avancer

Je me permets aussi d'y rajouter une petite touche de blindage dans ton code :

Soit tu passes par un

Code:

---

1 2 3 4 5

Public Enum enTypeAdo Access XML MySQL End Enum

---

Ensuite ton select Case se base sur un des éléments de l'énumération (la possibilité d'erreur est moins grande)

Ou bien tu rajoute sur un

Code:

---

_nom.ToUpper()

---

Et Tu testes avec

Code:

---

1 2 3

"ACCESS" "XML" "MYSQL"

---

Si jamais tu te bases sur un fichier de configuration ou autre, ton code risque de ne plus marcher.