Ok alors je déclare ma classeA, puis j'effectue la méthode pour remplir le tableau1
1 2 3
| Dim classeA As New MyClass.MyClass()
Dim tableau1 As Array
tableau1 = classeA.GetProperties(id1, id2) |
Le tableau1 va en fait être composé des propriétés qui répondent aux paramètres id1 et id2.
Chaque propriété renvoyée est composée d'un tableau spécial de propriétés que nous avons créé spécialement grâce aux méthodes:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Public Class propriété
Private num1 As Integer
Private text1 As String
Private typePerso As Type
...
Public Property num1() As Int32
Get
Return ws_num1
End Get
Set(ByVal value As Int32)
ws_num1 = value
End Set
End Property
End Class |
Une des propriétés (typePerso) créé dans cette classe est une sorte de tableau spécial créé de la même manière par une autre classe Type:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Class Type
Private ws_Id As Integer
Private ws_value As String
Public Property Id() As Int32
Get
Return ws_Id
End Get
Set(ByVal value As Int32)
ws_Id = value
End Set
End Property
Public Property value() As String
Get
Return ws_value
End Get
Set(ByVal value As String)
ws_value = value
End Set
End Property
End Class |
La propriété typePerso ainsi créé est composée d'Int et de String.
Au niveau du traîtement des données:
J'ai donc mon tableau1, avec ses propriétés. J'ai accès à toutes ces propriétés (comme num1 ou text1 par exemple), via le code suivant:
1 2
| tableau1(i).num1
tableau1(i).text1 |
Mais lorsque je veux atteindre les propriétés de typePerso, je n'y parviens pas, et il me renvoie la fameuse erreur citée plus haut. Voici mon code:
1 2 3 4
|
For j = 0 To tableau1(i).typePerso.length - 1
Dim toto As Integer = tableau1(i).typePerso(j).Id
Next |
L'erreur est signalée au niveau de
For j = 0 To tableau1(i).typePerso.length - 1
Voilà j'espère avoir été clair, merci !
Partager