Discussion :

[EvaristeGaloisBis]

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 :

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

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.
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?

[SfJ5Rpw8]

ne serait-ce pas un problème de type de donnée ?

déjà ici :

Code :

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

1
2
 
Dim stCheminFichier, stNomFichier As String

seul stNomFichier et un string, stCheminFichier est un variant...


ensuite spécifie le type (le même pour Get et Let ) pour toutes tes propriétés...

[Vld44]

et pour ça aussi c'est pareil :

Property Let Chemin(stLeChemin)

devrait être :

Property Let Chemin(stLeChemin as string)

[EvaristeGaloisBis]

mince je n'avais pas fait attention que dans mes let je n'avais pas mis que j'envoyais des string.
Mais pour le :

Code :

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

Dim stCheminFichier, stNomFichier As String

je confirme que ça crée bien deux string. (je suis en vb 6).

Merci. et désolé pour avoir posé une question si... simplette.

[zazaraignée]

Désolée de te contredire, mon cher mathématicien, mais si le type n'est pas explicitement déclaré, même si les variables sont sur une même ligne, seule la variable précédent le As String sera de type String. Les autres seront de type Variant. La preuve, tu peux y mettre un objet comme un TextBox. Essaie, tu verras.

[EvaristeGaloisBis]

mince oui c'est vrai. mais pourtant je suis toujours en option explicit et il me semblait que si la variable n'etait pas correctement définit ça ne fonctionnait.

Bon ben alors j'ai beaucoup de code a corriger.

Merci pour cette précision supplémentaire.