bonjour,
j'ai voulu créer une classe dans laquelle je gère l'entrée et la sortie des variables qui la compose. le code es le suivant :
quand je le laisse comme ça, il me dit qu'il y a un bug : incohérence dans la définition de mes propriétés. si je change le nom des Let par CheminFichier et NomFichier, l'erreur disparait.
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 Dim stCheminFichier, stNomFichier As String 'setteur Property Let Chemin(stLeChemin) If Len(stLeChemin) > 2 And Mid$(stLeChemin, 2, 1) = ":" Then If Right(stLeChemin, 1) <> "\" Then stLeChemin = stLeChemin & "\" stCheminFichier = stLeChemin Else MsgBox ("Incorrect") End If End Property Property Let Nom(stLeNom) If Len(stLeNom) > 3 And InStr(stLeNom, ".") <> 0 Then stNomFichier = stLeNom Else MsgBox ("Incorrect") End If End Property 'getteur Property Get Chemin() As String Chemin = stCheminFichier End Property Property Get Nom() As String Nom = stNomFichier End Property
Je ne comprends pas l'erreur. Il me semble qu'on a le droit de mettre une propritété en get et en let, non?
Partager