Discussion :

[titounne]

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 :

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

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 :

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

 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

[titounne]

j'ai essayer avec

Code :

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

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

[titounne]

si je declare ma proprerty let comme ça

Code :

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

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 :

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

a.sTabData = t()

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

si vous avez une idée

[Tofalu]

Moi, je verrai plus un truc du style :

Code :

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

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 :

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

1
2
 
a.sTabData = t

[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 :

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

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 :

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

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

[Tofalu]

Code :

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

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 ?

[titounne]

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

et ça marche pas donc