Discussion :

[VBLed]

Bonjour
Je suis en train d'écrire une application en VB6 pour visualiser des fichiers de CAO et les transmettre en production.

J'ai plusieurs classes "collection"

Donc, bien sûr, une procédure NewEnum dans chacune d'entre elles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function NewEnum() As Variant
    Set NewEnum = pCol.[_NewEnum]
End Function

Bien sûr, comme à chaque fois, j'ai positionné Masquer ce membre et mis ID de la procédure à -4 dans Attributs de procédure

Quand je fais tourner le programme en mode debug (F5) ça marche sans problème
Mais quand je veux compiler, VB me répond dans chaque function NewEnum, en surlignant la variable _NewEnum :

Erreur de compilation :
Méthode ou membre de données introuvable

Quelqu'un a-t-il déjà eu ça et a-t-il une idée ?

Merci

[VBLed]

Bonjour
Il ne semble pas que ce pbm intéresse quelqu'un, pourtant il me bloque bien !

[ProgElecT]

Salut

Set NewEnum = pCol.[_NewEnum] à mon avis, le premier caractère, _ de la propriété de ta classe n'est pas autorisée sous VB6.

[VBLed]

Set NewEnum = pCol.[_NewEnum] à mon avis, le premier caractère, _ de la propriété de ta classe n'est pas autorisée sous VB6.

Merci de ta réponse, mais ...

https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Enabling For Each … Next

Along with robustness, you get For Each … Next back. Once again you can delegate all the work to the Collection object, by adding the following method:

' NewEnum must return the IUnknown interface of a
' collection's enumerator.
Public Function NewEnum() As IUnknown
   Set NewEnum = mcolEmployees.[_NewEnum]
End Function

The important thing you're delegating to the Collection object is its enumerator. An enumerator is a small object that knows how to iterate through the items in a collection. You can't write an enumerator object with Visual Basic, but because the Employees class is based on a Collection object, you can return the Collection object's enumerator — which naturally enough knows how to enumerate the items the Collection object is holding.

The square brackets around the Collection object's _NewEnum method are necessary because of the leading underscore in the method name. This leading underscore is a convention indicating that the method is hidden in the type library. You can't name your method _NewEnum, but you can hide it in the type library and give it the procedure ID that For Each … Next requires.

To hide the NewEnum method and give it the necessary procedure ID

    On the Tools menu, click Procedure Attributes to open the Procedure Attributes dialog box. In Name box, select the NewEnum method.

    Click Advanced to show the advanced features. Check Hide this member to make NewEnum hidden in the type library.

    In the Procedure ID box, type –4 (minus four) to give NewEnum the procedure ID required by For Each … Next. Click OK.

    Important   In order for your collection classes to work with For Each … Next, you must provide a hidden NewEnum method with the correct procedure ID.

Il faut bien mettre un caractère Underscore avant NewEnum
d'ailleurs je le fais depuis des années et ça marche nickel, mais ... pas là !

[VBLed]

Youps
Comme il fallait s'y attendre, j'avais fait une erreur !
pCol (dans cette class là) n'était pas une collection mais une autre de mes classe qui est elle même une collection, ça s'embrouillait

Une fois corrigé ça compile
Vous n'êtes pas obligé de vous moquer de moi

[EddiGordo]

Normal...

pCol (dans cette class là) n'était pas une collection...

En anglais ça se prononce "picol" et je te conseille d'arrêter de picoler...

C'est bon je sors, pas taper !