[VB6] For Each ... In ...

Salut!

J'ai créer un classe qui en fait est une collection d'objets.
J'ai donc dans cette classe les méthodes classiques Add et Remove et les propriétés Item et Count.

Jusque là tout va bien ça fonctionne nickel :)

Le problème c'est que je veux pouvoir utiliser l'instruction For Each ... In...

Code:

---

1 2 3 4 5

Dim oObject as Object For Each oObject In myClass .... Next oObject

---

J'ai donc créer la propriété suivante dans ma classe

Code:

---

1 2 3 4 5

Public Property Get NewEnum() As IUnknown 'permet d'énumérer la collection avec la syntaxe For...Each Set NewEnum = cCol.[_NewEnum] End Property

---

et là sur l'instruction For Each oObject In myClass, j'ai une erreur: l'objet ne gère pas cette propriété ou cette méthode.

Ou est mon erreur :?:

oualala !
C'est loin ça !
Je crois qu'il faut que tu définisse dans Outils/Attributs de procédure l'ID de context d'aide à 2.

Teste et dis-nous si c'est ça ...
Désolé si je m'a gourru ... :?

Extrait de l'aide VB...

Citation:

---

Pour masquer la méthode NewEnum et lui donner l'ID de la procédure nécessaire

Dans le menu Outils, cliquez sur Attributs de procédure pour ouvrir la boîte de dialogue Attributs de procédure. Dans la liste Nom, cliquez sur la méthode NewEnum.

Cliquez sur Avancées pour afficher les fonctions étendues. Cochez Masquer ce membre pour masquer NewEnum dans la bibliothèque de types.


Dans la liste ID de la procédure, tapez -4 (moins quatre) pour donner à NewEnum l'ID de la procédure requise par For Each ... Next. Cliquez sur OK.
Important Pour que vos classes Collection fonctionnent avec For Each ... Next, vous devez fournir une méthode NewEnum masquée avec l'ID de la procédure approprié.

---

Merci, ça marche!!