Bonjour.
Plutôt que de me lancer dans une solution qui peut se révéler inadaptée, je prends les devants en vous exposant mon problème.
Je crée la classe ClasseDeTrucs dans un module de classe, constituée de diverses variables avec les méthodes et les propriétés correspondantes.
J’y ajoute la méthode Bouge().
Dans la fenêtre Form1 je crée une procédure Creation() qui crée un Truc1
Ce qui fait que l’objet Truc1 est Privé pour la procédure Creation, je ne peux donc pas, dans une autre procédure, utiliser Bouge(Truc1), il ne reconnait pas l’existence de l’objet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Creation() Dim Truc1 as New ClasseDeTrucs . . . . . . End Sub
Par contre si je le déclare en tête de Form1
Il sera reconnu par la procédure Bouge(Truc1) mais je ne peux plus en créer et en disposer à ma guise.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Public Class Form1 Dim Truc1 as New ClasseDeTrucs
Dans son tutoriel p49 Serge Tahé présente un tableau d’objets sous la forme
qui peut être Public et accessible partout. Ce qui permet d’écrire par exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim TabTrucs(10) as ClasseDeTrucs
En gardant la possibilité de construire et disposer de mes objets comme je le souhaite. Je pourrai aussi les désigner par un TabTrucs(i) qui me paraît plus simple à gérer que leur nom Truc1, Truc2, etc.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Bouge(TabTrucs(1))
Est-ce la meilleure technique ?
Les Classes ne créent –elles pas ce type de tableau avec une indexation automatique des objets créés ?
Merci de me conseiller
Partager