Polymorphisme et collection en VB6

Question

Bonjour,

Je suis de retour car j'ai &#233;t&#233; bien renseign&#233; ce matin.
Toujours dans mon interface, j'ai maintenant un probl&#232;me de collection.

Interface (IParametrage) :


Public Function Dependance() As Collection
End Function

Classe (CAlarme) :

Implements IParametrage

Private Function IParametrage_Dependance() As Collection
    IParametrage_Dependance = Me.Dependance  'erreur : cet argument n'est pas facultatif
End Function

Public Function Dependance() As Collection
    Dim zone As CZone


    Dependance.Add zone, "A_CodeZone"
End Function

Appel :

'TEST
Dim Classe As IParametrage
Classe = pe_clsClasse.Dependance.Item(rs.Fields(j).Name)      'j'utilise un RecordSet rs

Merci de votre aide.

cs_DARKSIDIOUS · Answer

Salut, Essaye avec un Set : Private Function IParametrage_Dependance() As Collection SET IParametrage_Dependance = Me.Dependance End Function _ Avant de poster dans le forum, Prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx<

Polymorphisme et collection en VB6

1 réponse

Discussions similaires