Discussion :

[Invité]

Bonjour à tous,

Voila j'ai une petit soucis en VB6 pour la création et l'affectation d'un tableau.

J'ai crée une classe "clsCSSFXML".

Ensuite je veux creer un tableau de classe "clsCSSFXML", mais ca ne fonctionne pas.

Code :

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

1
2
3
Dim tabNameCSSF(5) As clsCSSFXML 
 
tabNameCSSF(0).EntityID = 12

Mais ca ne fonctionne pas

Ais-je oublié quelque chose ?

D'avance, merci pour votre aide

[zazaraignée]

Merci d'utiliser les balises Code. C'est le bouton de la barre de d'outils dans l'éditeur de messages.

Essaie

Code :

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

1
2
3
Dim tabNameCSSF(5) As clsCSSFXML
Set tabNameCSSF(0) = New clsCSSFXML
tabNameCSSF(0).EntityID = 12

Note : pas testé. Si ça ne fonctionne pas impec, tu dis.

[Invité]

Salut et merci pour ton aide.

En faite, la solution que tu m'a donné fonctionne si la taille du tableau est fixe, mais dans mon cas elle ne l'est pas.

En gros, j'ai ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Dim tabNameCSSF() As clsCSSFXML
Dim i as integer
 
i = 0
 
For For Each X in Y
      tabNameCSSF(i).EntityID = 12
      i = i + 1
Next

J'ai essayé un peu tout mais j'arrive pas à m'en sortir, et le redim preserve ne fonctionne pas

[Invité]

Bon, j'ai essayé comme ca, et ca à l'air de fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim tabNameCSSF() As clsCSSFXML
Dim i as integer
 
i = 0
 
For For Each X in Y
      ReDim Preserve tabNameCSSF(i)
      Set tabNameCSSF(i) = New clsCSSFXML
      tabNameCSSF(i).EntityID = 12
      i = i + 1
Next

Ca m'a l'air correct.

[Delbeke]

Et pourquoi ne pas utiliser une collection , plutot qu'un tableau ?

[Vld44]

j'ai pas osé le demande

En tout cas, si c'est résolu il faut le signaler avec le petit bouton en bas du thread