Discussion :

[zak_mckraken]

Bonjour,

Suite à la lecture des tutoriels de sinarf et fauconnier sur les modules de classe (très clairs et complets, soit dit en passant!), j'ai décidé d'en implanter un dans l'application que je développe actuellement. Ça fonctionne très bien, mais une constatation me chicotte un peu et j'aimerais avoir votre opinion.

Pour faire simple, j'ai une classe pour les employés (nom, prénom, salaire, service, etc). Une fois mon module de classe complété, je déclare une instance dans un formulaire et, lorsque je tape le code, un menu déroulant m'apparait avec seulement les propriétés de ma classe, ce qui est super. Ce qui me tracasse, c'est que si je met un espion sur mon instance je peux voir les propriétés de ma classe ainsi que les propriétés déclarées comme privées dans la classe (ex : Employe.Nom = "Gamache", Employe.strNom = "Gamache"). Évidemment, ça n'affecte pas mon code le moindrement. Par contre, je ne trouve pas ça très propre puisque je vois chaque propriété en double. Est-ce que c'est normal? Est-ce que j'ai mal déclaré mes variables dans le module de classe?

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
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Compare Database
 
Private strCodeNT As String
Private strNom As String
Private strPrenom As String
 
 
Property Let CodeNT(ByVal CodeNT As String)
    strCodeNT = CodeNT
    RemplitChamps
End Property
 
Property Get CodeNT() As String
    CodeNT = strCodeNT
End Property
 
Property Let Nom(ByVal Nom As String)
    strNom = Nom
End Property
 
Property Get Nom() As String
    Nom = strNom
End Property
 
Property Let Prenom(ByVal Prenom As String)
    strPrenom = Prenom
End Property
 
Property Get Prenom() As String
    Prenom = strPrenom
End Property
 
' Propriété NomComplet en lecture seule
Property Get NomComplet() As String
    NomComplet = Me.Prenom & " " & Me.Nom
End Property

[marot_r]

Si tu as mis ton espion dans la classe alors c'est normal, les variables privées sont visibles dans l'objet qui les déclare par contre si tu essais de les voir à partir de code qui utilise cette classe là tu ne devrait voir que les propriété publiques.

A+

[zak_mckraken]

En fait non, j'ai déclaré ma variable qui utilise la classe dans l'en-tête d'un module standard et j'ai mis mon espion dans le formulaire qui fait usage de cette variable.

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Public Usager As Employe
 
Sub infoUsager()
On Error GoTo erreur
 
    Set Usager = New Employe
    'Récupère le code NT de l'usager
    Usager.CodeNT = Environ("USERNAME")
...

Ce que je trouve étrange, c'est que la composition automatique ne m'affiche que les propriétés publiques telles que je les ai nommées, mais que l'espion affiche en plus les propriétés privées de la classe.

Enfin, ma question n'est peut-être pas pertinente, car tout fonctionne bien au fond. J'ai simplement l'impression de faire quelque chose de malpropre.

Merci quand même!

[marot_r]

L'espion étant un outil de bebuggage, il a probablement des droits supérieurs à ceux du code standard.

A+