Question rapide sur les classes
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:
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 |
