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