[VB6] utilisation de Property LET / GET pour un tableau

Version imprimable

18/10/2004, 17h05
titounne

[VB6] utilisation de Property LET / GET pour un tableau
Bonjour

j'ai une classe clsCourbes qui a comme propriete un tableau msTabData à deux dimentions.

Cette propriete est privée et j'aimerais donc me servir de property let (et aussi accessoirement de property get) pour affecter une valeur a ce tableau (et recuperer les valeures du tableu).

j'ai ecrit ça (ça marche pas ou je sais pas l'appeler)
Code:

1 2 3 4 5 6 7 8 Public Property Let LetTabData(ByRef pTabData() As String) Dim i, j As Integer For i = 0 To 23 For j = 0 To 2 msTabData(i, j) = pTabData(i, j) Next j Next i End Property
donc bon est ce comme ça qu'il fallait ecrire, et si oui comment l'appeler car pour une varaible tout bete c'est

Code:

LetVarariable = "test"

mais la j'y arrive pas

Merci de votre aide

ps: la fonction get j'ai pas fait encore car il faut que property get retourne un tableau et je ne voit pas comment faire

j'ai essayer avec

Code:

1
2
3
4
5
6
7
8
Public Property Let LetTabData(ParamArray pTabData() As Variant) 
  Dim i, j As Integer 
  For i = 0 To 23 
    For j = 0 To 2 
      msTabData(i, j) = pTabData(i, j) 
    Next j 
  Next i 
End Property

mais le complilateur demande abslument un autre argument

18/10/2004, 18h15
titounne
si je declare ma proprerty let comme ça
Code:

1 2 3 4 5 6 7 8 Public Property Let sTabData(ByRef pTabData As String) Dim i, j As Integer For i = 0 To 23 For j = 0 To 2 msTabData(i, j) = pTabData(i, j) Next j Next i End Property
c'est à dire sans parenthese apres le nom du parametre et que je l'appel comme ça

Code:

a.sTabData = t()

cela me met commeerreur à la compilation "l'argument du tableau doit etre ByRef"

si vous avez une idée

Moi, je verrai plus un truc du style :

Code:

1
2
3
4
5
6
7
8
9
 
Public Property Let sTabData(pTabData As variant) 
  Dim i, j As Integer 
  For i = 0 To 23 
    For j = 0 To 2 
      msTabData(i, j) = pTabData(i, j) 
    Next j 
  Next i 
End Property

et :

Code:

1
2
 
a.sTabData = t

18/10/2004, 21h44
titounne
Merci ça marche au poil!

par contre pour le get... j'avoue que j'ai le même probleme

ce que j'ai ecrit pour le moment
Code:

1 2 3 4 5 6 7 8 9 10 Public Property Get test() As Variant Dim i, j As Integer For i = 0 To 23 For j = 0 To 2 test = msTest(i, j) Next j Next i End Property
et pour appeler j'avais penser à
Code:

1 2 3 4 dim t(23,2) as integer dim a as new classe1 t = a.test
mais evidement ça ne marche pas avec l'erreur de compilation "impossible d'affecter à un tableau"

et je doit dire que je comprend pas tout la... je voit pas comment dire que test est un tableau et comment m'en servir

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Public Property Get test() As Variant 
    Dim i, j As Integer 
 
    For i = 0 To 23 
        For j = 0 To 2 
            test(i,j) = msTest(i, j) 
        Next j 
    Next i 
 
End Property

Et comme sa ?

18/10/2004, 22h06
titounne

heu en fait c ce que j'ai ecrit... erreur de copie..

et ça marche pas donc