[AC-2003] Instanciation de classe [Résolu]

[Stef999]

Bonjour

Dans un formulaire j'ai besoin de :
- déclarer un grand nombre de référence à un module de classe
- définir une propriété de chacune des instanciations ...

Est ce que je pourrais par une astuce quelconque m'éviter de déclarer ligne à ligne et définir toutes les propriétés par une sorte de boucle ...

Merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Option Compare Database
Option Explicit
 
'Instanciation clsCBox
Private CaseCoche0 As New clsCBox
Private CaseCoche1 As New clsCBox
'... CaseCoche40 As New clsCBox
 
Public Sub Form_Load()
    Set CaseCoche0.CaseACocher = Me.Cocher0
    Set CaseCoche1.CaseACocher = Me.Cocher1
    ' ... CaseCoche40.CaseACocher = Me.Cocher40
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Set CaseCoche0 = Nothing
    Set CaseCoche1 = Nothing
    'Set CaseCoche40 = Nothing
 
End Sub

[marot_r]

Si ton nombre est fixe tu peux sans doute utiliser un tableau.

Quelque chose du genre.

Code :

1
2
3
4
5
6
dim tCaseCoche(NombreDeCase-1) as clsCBox 'Les indices de tabeau commence a 0.
 
dim i as integer:for i=lbound(tCaseCoche) to ubound(tcaseCoche)
   set tCaseCoche(i)=new clsCBox
   set tCaseCoche(i).CaseACocher=me.controls("Cocher" & i)
next i

sinon tu peux aussi regarder l'objet Collection ou Dictionnary.

A+

[Stef999]

Parfait !

Merci