Discussion :

[Pico142]

Bonjour,

Je ne sais pas si mon titre est très explicite, mais je vais expliquer ce que je compte faire.
J'ai créé une classe qui contient les coordonnées d'un point (Est, Nord, Altitude). J'essaye de créer une propriété accessible en lecture et écriture qui me permette de récupérer directement un tableau de 3 double contenant les coordonnées et la propriété inverse qui permette de compléter ma classe avec un array équivalent.
Voilà le code de ma 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
Private mEast As Double
Private mNorth As Double
Private mElevation As String
 
' Coordinates
Property Get Coordinates() As Double()
    Dim coord(1 To 3) As Double
    coord(1) = mEast
    coord(2) = mNorth
    coord(3) = mElevation
    Coordinates = coord
End Property
Property Let Coordinates(Coordinates() As Double)
    mEast = Coordinates(1)
    mNorth = Coordinates(2)
    mElevation = Coordinates(3)
End Property

La propriété Get fonctionnne très bien.
Par contre la propriété Let ne fonctionne pas.

Code :

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

1
2
3
Dim pt1 As New cPoint
Dim toto(1 To 3) As Double
pt1.Coordinates = toto

Le code ci-dessus me renvois l'erreur : "Impossible d'affecter à un tableau"

Dans mes recherches, j'ai cru comprendre qu'il n'est pas possible de passer un tableau en paramètre de Property Let, mais ce n'est pas très clair pour moi. Est-ce quelqu'un me confirme cela ? Sinon quelle est l'erreur ?
La solution que j'ai trouvé serait d'utiliser un Sub à la place de Let, mais dans ce cas là, je ne peux pas garder le même nom entre Get et Sub, ce qui est dommage pour moi.

Merci d'avance

[pijaku]

Bonjour,

Il convient de ne pas dimensionner le tableau dans sa déclaration, mais par l'intermédiaire de ReDim.

Essaye ce code :

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
Sub test()
Dim pt1 As New cPoint
Dim toto() As Double, Michou() As Double
 
ReDim Preserve toto(1 To 3)
toto(1) = 360
toto(2) = 400
toto(3) = 670
pt1.Coordinates = toto
 
Michou = pt1.Coordinates
For i = 1 To 3
   Debug.Print Michou(i)
Next
End Sub

EDIT : Le pourquoi de la "chose"...
extrait de : http://tissotemmanuel.developpez.com...lasse/#LIV-A-6
Notez que les dimensions du tableau ne sont pas fixées à la déclaration, ceci parce qu'il est impossible de procéder à des affectations entre tableaux de taille fixe, et que Property Get se termine par une paire de parenthèses indiquant qu'elle renvoie un tableau.

[Pico142]

Ok merci beaucoup !

[Invité]

Code class :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private mEast As Double
Private mNorth As Double
Private mElevation As String
 
' Coordinates
Public Property Get Coordinates() As Variant
    Coordinates = Array(, mEast, mNorth, mElevation)
End Property
Public Property Let Coordinates(value As Variant)
    mEast = value(1)
    mNorth = value(2)
    mElevation = value(3)
End Property

Code module :

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

1
2
3
4
5
Sub test()
Dim a As New Classe1
a.Coordinates = Array(, 1, 2, "Paris")
aa = a.Coordinates
End Sub

[Pico142]

Ta solution permet de raccourcir un peu le code effectivement.
Mais j'y vois 2 inconvénient :
1- Je n'aime pas les Variant, je préfère autant que possible déclarer les variables précisément.
2- On récupère un Array de 4 valeurs avec une erreur en 0, je ne veux pas risquer que cela puisse poser des problèmes par la suite.

Merci quand même pour ta proposition.