Salut ERIIIC,

d'abord, je te remercie pour ton commentaire. Ensuite, je te remercie pour son contenu :)

Il est vrai, que quand on utilise souvent la POO en VB, et les classes d'emballage, on finit par oublier que tout le monde ne les connait pas!

Néanmoins, le but de cette source n'était pas de les présenter, mais de solutionner un problème lié au classes d'emballage :

Comment faire remonter le flux d'évènements des classes emballées, à la classe d'emballage (on ne peux pas déclarer un tableau de contrôles avec le prédicat WithEvents, ni une collection [dans ce cas, ce serait inutile, on n'obtiendrait que les évènements de la collection et pas ceux des "collectionnés"])?

Pour ce faire, je le mets en évidence (et en pratique) en tentant de "solutionner" un autre problème récurrent (mais en VBA seulement) : l'ajout dynamique de contrôles (pendant l'exécution) et la récupération des évènements de ceux-ci.

Je viens de jeter un oeil sur le site... pour constater qu'il n'existe pas de tutoriel sur les classes d'emballage! Voici donc un travail potentiel d'avenir (il faudrait juste que je trouve du temps).

Pour résumer la technique de la classe d'emballage (et des classes emballées [plus connues sous le nom de "classe à s'emballe :)]) :
- vu de l'utilisateur (mais développeur), on veux une collection d'objets de même type (MesObjets contenant du type MonObjet), et on veux manipuler cette collection comme n'importe quelle collection VB (For each In... Next, Item, Add, Remove...).
- vu du concepteur (ça peut être le même développeur), il faut une classe qui sera vue de l'utilisateur comme une collection (MesObjets, classe d'emballage, toujours au pluriel), et une classe qui sera vue de l'utilisateur comme un élément de la collection (MonObjet, classe emballée, toujours au singulier).

Donc, MesObjets implémentera, au minimum, les méthodes Add et Remove, et les propriétés Item et NewEnum (Item est la propriété par défaut, qui permet à l'utilisateur d'écrire MesObjets("Clé") pour obtenir une référence à un objet de type MonObjet, et NewEnum est la propriété qui lui permet d'écrire un bloc d'énumération For each moTemp in Mesobjets blabla Next moTemp). Pour que ceci fonctionne, MesObjets déclare un membre privé de type Collection (la vraie, mais invisible pour l'utilisateur), et s'appuie dessus pour fournir les services précités.
On peut ensuite ajouter un tas d'autres services observateurs (genre Count, ItemByValue, ...).
La classe MonObjet se contente d'implémenter une propriété ParentCollection, qui lui permet d'accéder à sa collection pour solliciter des services de sa part (c'est une référence circulaire, qu'il faut apprendre à libérer à la destruction, ce qui n'est pas le cas dans l'exemple que je fourni (oups)), et les propriétés qui sont propres à son aspect fonctionnel (par exemple Value).

Pour conclure (je n'aurais pas dû développer ici), on peut maintenant écrire :

set moTemp = MesObjets.Add("clé")
msgbox MesObjets("clé").Value
ou (parfaitement inutile, donc totalement indispensable)
msgbox MesObjets("clé").ParentCollection.Add("clé2").Value

voilà ce que cela donne quand je fais court (j'essaierais de faire un tuto, promis, à moins que quelqu'un le fasse avant).

à+, et merci encore pour ton commentaire.
PS : tu es de mon entourage, tu es sur VB France :)

Costaud! (mais pas surprenant venant de toi)
ne servira jamais, ne servira jamais...je ne suis pas sûr!

Il suffit de trouver un opérateur VB, limité d'origine, et pour lequel la surchage pourrait offrir une réelle utilité...

Tiens, et l'opérateur New? pourrait-on le surcharger? est-il considérable comme un opérateur? parce que, qui n'a pas réver d'initialiser les membres d'une classe avec des arguments reçu lors de l'appel au construction?

Et puisqu'il s'agit d'un opérateur unaire, est-il envisageable de faire supporter ceux-ci? et donc les fameux ++, += et les autres?

en tout cas, déjà, merci!

Salut Gumpynou,

bonne source, simple, efficace.

Attention, je te conseille quand même de mémoriser l'état de Printer avant de la modifier, et de la remettre dans son état initial à la fin.

sinon, très bien continue.
8/10

Salut Cheval,
d'après ce que j'ai vu, et compris des autres membres, c'est pas sur la prochaine source, mais sur la prochaine version de celle-ci qu'il faut concentrer tes efforts :)
Non, c'est vrai qu'elle est dur à lire.

Sinon, j'voulais juste rappeler aux autres qu'il s'agit là d'un postcardware, une race d'application qu'on ne voit pas souvent:)

Je me doutais bien, venant d'Alain, que cela ne pouvait être que ça.

Au fait, c'est quoi le problème du zip?

Je confirme, il mérite le respect (il y a même un fichier d'aide chm).

Bon, il y a bien quelque anicroches, genre faire de fautes d'orthographe ou de conjugaison pour un correcteur d'orthographe, c'est limite.
Sinon, il y aussi les commandes de lancement de fichiers externes (aide, lisez-moi...) qui ne fonctionne pas sur mon poste W2K. tu fais un shell ("start fichier.truc"), le chemin n'est pas bon, et je pense surtout que c'est le chemin de la commande start (pur XP ou autre?).

Sinon, très cool, continues.

Salut Cheval, Salut Alain Proviste,
Alain Proviste, je n'ai pas vu le source, mais par hazard, je tombe sur ton commentaire, et je ne le trouve pas très encourageant.

Saches tout de même que Cheval a 3 fois ton age (j'ai bien dit 3), après on se plaint que tout se perd.

Bon, je suis sûr que tu ne voulais pas lui manquer de respect, et que ce que tu voulais étâit sûrement justifié (juste mal formulé), donc si tu répares, personne ne t'en voudra.

Surtout pas Cheval.

Cheval, je te promets de regarder ton source, à+

Bonne idée.

Alors, essayes peut-être le FileObjectSystem, méthode ShortPath (ou ShortName) de l'objet File (elle doit fournir, me semble-t-il, le chemin d'accès au format 8.3 du DOS).

La référence nécessaire est "Windows Script Host Object Model" (wshom.ocx).

à+.

D'ac, je te remercie,
mais je ne suis pas du genre à poser mes dossiers d'application sur le bureau!
Peut-être la taille du chemin (mais ça m'étonne : "D:\Donnees\Developpement\Veille technologique\Tierce\vbfrance\rubix\Anid_20_08").
J'exécute le projet directement sous VB6 (je n'ai pas essayé de compiler).
Je pense plus à un problème de compatibilité W2K (c'est une dll 16 bits la MCI, il me semble).
à+

Bonsoir Chaibat05,

beau jeu, belle réalisation.
J'ai vu les remarques qu'on t'a fait concernant l'ergonomie d'utilisation : c'est vrai que j'ai eu du mal au début (20s pas plus), mais avec du recul, je ne vois pas ce que tu pourrais faire de plus intuitif (à part mettre les boutons de chaque côté du cube, et encore, je préfère la barre en bas).
Chapeau bas.
PS: testé sous W2K SP4, erreur sur mci non initialisé (à chaque rotation, j'ai désactivé la ligne mciexecute, et je peux jouer)
bslama.