Fonction dérivée d'une classe sous vb excel

Question

Voil&#224;, je suis dans le vb d'Excel (car je n'ai que &#231;a) et j'ai &#233;cris un nouveau module de classe
et je voudrais mettre dedans des fonctions (que je dirais d&#233;riv&#233;es<=>ayant un rapport avec la classe) mais qui seraient utilisables sans objet !

du genre

ma classe se nomme "Toto"

et je voudrais &#233;crire dans ce module de classe (pas dans un autre module, &#231;a j'y arrive d&#233;j&#224;) :

Public Fabrique (Chaine As String) As Toto
          .............
end

et pouvoir faire direct (de n''importe o&#249; dans le projet):

Set ABC=Fabrique ("TITI")

et pas devoir faire &#231;a :

Dim UnTotoInutilePourPouvoirUtiliserMaFonction As New Toto

Set ABC= UnTotoInutilePourPouvoirUtiliserMaFonction.
Fabrique ("TITI")

Voil&#224;, place aux id&#233;es !

cqui789 · Answer

Si j'ai bien compris l'interet d'un module de classe, c'est de definir
ce qui sera utilise AVEC les elements de la classe, donc ce qu'il
contiennent doit etre utilise avec un element.



Maintenant, comme a la fin de la definition nous dit que ce que tu rend est un toto, le ABC qui le recoit est un toto, non?



donc tu peut definir fabric comme etant une propriete du toto la recevant



Public Property Let Fabrique(chaine As String)

 ..............

End Property



et a ce moment la,



ABC.Fabrique = "TITI"



remplace

ABC = Fabrique("TITI")

Fonction dérivée d'une classe sous vb excel

1 réponse

Discussions similaires