Ajout d'objet dans une classe

Version imprimable

J'aissai d'ajouter un objet dans une classe avec le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Option Explicit
 
 
 
Public WithEvents CButton As MSForms.CommandButton
 
'Exemple pour gérer l'évènement clic sur les objets type Button
Private Sub CButton_Click()
    'cet exemple affiche le nom et la valeur de l'objet cliqué
    'MsgBox CButton.Name & ": " & CButton.Name
    saisi.Label6.Caption = "Opération " & CButton.Caption
 
    Dim requetteSQL As String
    Dim rst As New ADODB.Recordset
 
    requetteSQL = "SELECT information.idInformation,information.libelle,information.obligatoire,information.unite,information.defaut,information.min,information.max,information.typeinfo " _
    & " FROM necessiteremontee,information " _
    & " WHERE numOperation = '" & CButton.Caption & "' " _
    & " AND information.idInformation = necessiteremontee.idInformation  ;"
 
    Dim conn As ADODB.connection
    Set conn = connection
 
    rst.Open requetteSQL, conn
 
    Dim Obj As Control
    Dim i As Integer
 
 
    Dim Glabel As gere_event_label
    Set Glabel = New gere_event_label
 
    While Not rst.EOF
        Set Obj = saisi.Frame3.Controls.Add("forms.Label.1")
        With Obj
            .Name = "LabelInfo" & rst.Fields("idInformation")
            .Caption = rst.Fields("libelle")
            .Left = 35
            .Top = 25 * i + 40
            .Width = 80
            .Height = 20
        End With
 
 
        'ajout de l'objet dans la classe
        Set Glabel.CLabel = Obj
        CollectLabel.Add Glabel
 
        rst.MoveNext
        i = i + 1
 
    Wend
 
    rst.Close
 
End Sub

L'execution s'arrête à la ligne CollectLabel.Add Glabel. Il me dit erreur 91, Variable objet, ou variable de bloc with non défini...

Je ne comprends vraiment pas d'ou peut venir le problème. J'ai pourtant bien le début et la fin de mon with. Je précise que si je commente la ligne en question, tous marche.

Auriez vous une idée ou une piste pour résoudre ce problème ?

Merci ! :)

02/02/2008, 19h45
Pierre Fauconnier

Bonsoir

Il faudrait voir de quel type est l'objet CollectLabel.

Vu le nom, je suppose qu'il s'agit d'un objet de type Collection, mais vu qu'il semble y avoir des classes perso, j'ai quand même des doutes. Il faudrait donc voir à quel moment cet objet est instancié, car je n'ai rien vu pour cela dans le code que tu donnes. Il faudrait également voir ce que cet objet attend comme paramètre de sa procédure Add.

Merci donc de préciser le contexte.
02/02/2008, 19h55
Zorgloub
J'ai un module qui s'appelle fonction_diverses

j'y ai mis certaines fonctions dont les déclarations de mes collections :
Code:

1 2 3 Public CollectButton As Collection Public CollectLabel As Collection
Et ma classe gere_event_label ne contient que ça pour le moment :
Code:

1 2 3 Option Explicit Public WithEvents CLabel As MSForms.Label
En fait à l'origine j'ai mon IHM qui affiche un certain nombre de boutton qui varie en cours d'exécution du programme. J'ai créer une classe gere_event_button pour gérer ces évènements. Finalement ces évènements devaient ajouter encore d'autres Label. J'ai donc créer également gere_event_label, mais qui ne sert pas à grand chose...

Est-ce que cela vous aide pour déterminer d'où vient le problème ?
02/02/2008, 20h03
Pierre Fauconnier

Citation:

Est-ce que cela vous aide pour déterminer d'où vient le problème ?

Oui. Il s'agit donc bien d'une collection.

Elle est déclarée en dehors de la procédure qui l'utilise, et elle doit être instanciée. Il faut, dans le code, une ligne

Code:

set CollectLabel = New Collection

avant de pouvoir y ajouter des objets...

Cette ligne ne doit pas obligatoirement être présente dans la procédure qui utiliser la collection, mais il faut, à un moment ou un autre, dans le code appelant, que la collection soit créée, et pas seulement instanciée...
02/02/2008, 21h04
Zorgloub

Merci beaucoup ça marche !

Je pensais que cela déclarait et instanciait en même temps.

Merci encore ! :)