Discussion :

[Emcy]

Bonjours,

je voudrais crée une collection :
- collection est composée de trois champs : champ1, champ2, champ3

je n'ai encore jamais créé de collection, comment faire pour,
-créer ma collection
- ajouter un élémnet à un endroit donné de ma collection
- supprimer un element à un endroit donné de ma collection
- connaitre le nombre d'element dans ma collection

[freddyboy]

tu peux utiliser l'objet ArrayList pour cela.
http://abstractvb.com/code.asp?A=1030

@+

[smikar]

Hello,

avec un ArrayList :

Code :

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

1
2
3
4
5
6
 
ArrayList al = new ArrayList();
al.Add("foo"); // ajoute un élément
al.Insert(0, "bar"); // insère un élément à l'index 0
al.RemoveAt(1); // Supprime l'élément à l'index 1
int i = al.Count; // Nombre d'éléments

a+

[Emcy]

Merci de votre aide mais la ligne de commande :
Public GridCaseGreyTemp As New Arraylist()

Me génère une erreur : Type ArrayList() indéfini

Remarque : je l'utilise dans un composant

Code :

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

1
2
3
4
5
6
7
8
9
10
Imports System 
Imports System.Drawing 
Imports System.Windows.Forms 
Imports System.ComponentModel 
 
Public Class AgendaGrid 
 
   Inherits ContainerControl 
 
   Public GridCaseGreyTemp As New Arraylist()

[freddyboy]

Imports System.Collections ou un truc dans le genre.

@+

[Emcy]

Merci ça marche,

on peut mettre plusieurs attribut pour un elements ?
GridCaseGrey.Add("coucou","kiki","coco") => ça marche pas

[freddyboy]

il faut faire des add successifs.

Code :

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

1
2
3
4
 
GridCaseGrey.Add("coucou");
GridCaseGrey.Add("kiki");
GridCaseGrey.Add("coco");

@+

[Emcy]

Mais pourquoi je ne retrouve pas tous mes elements

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
18
19
20
Dim MaCollection As New Arraylist()
			Dim MonTableau(2) As Int16
			Dim i As int16
 
			MonTableau(0)=1
			MonTableau(1)=2
			MonTableau(2)=3
			MaCollection.Add(MonTableau)
 
			MonTableau(0)=4
			MonTableau(1)=5
			MonTableau(2)=6
			MaCollection.Add(MonTableau)
 
			Dim Element(2) As Int16 'colorie les zones grises
   			For Each Element In MaCollection
   				For i=0 to 2
   					MessageBox.Show(Element(i))
   				Next i
   			Next Element

[freddyboy]

montre nous la sortie pour que je comprenne ce qui te manque.

@+

[Emcy]

je dois voir apparaitre successivement les valeurs 1,2,3,4,5,6 dans la messagebox => actuellement, j'ai 4,6,5,4,5,6

[Emcy]

En gros c'est comme si je rentrais deux fois le meme tableau

Code :

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

1
2
3
4
MonTableau(0)=4 
MonTableau(1)=5 
MonTableau(2)=6 
MaCollection.Add(MonTableau)

[Emcy]

Bizarement, si je crée deux tableaux, j'ai bien 1,2,3,4,5,6 qui s'affiche => comment puis-je faire pour n'avoir qu'un seule tableau ?

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
18
19
20
21
Dim MaCollection As New Arraylist()
			Dim MonTableau(2) As Int16
			Dim MonTableau2(2) As Int16
			Dim i As int16
 
			MonTableau(0)=1
			MonTableau(1)=2
			MonTableau(2)=3
			MaCollection.Add(MonTableau)
 
			MonTableau2(0)=4
			MonTableau2(1)=5
			MonTableau2(2)=6
			MaCollection.Add(MonTableau2)
 
			Dim Element(2) As Int16 'colorie les zones grises
   			For Each Element In MaCollection
   				For i=0 to 2
   					MessageBox.Show(Element(i))
   				Next i
   			Next Element

[trotters213]

Au pire tu peux faire comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
MonTableau(0)=1
MonTableau(1)=2
MonTableau(2)=3
MaCollection[0]=MonTableau
 
MonTableau(0)=4
MonTableau(1)=5
MonTableau(2)=6
MaCollection[1]=MonTableau

[Emcy]

ça marche pas

MaCollection[0] = MonTableau
=> l'expression n'est pas une methode

[trotters213]

c'est bizarre ça pourtant en C# ça marche
tu as essayé en faisant comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim MaCollection As New Arraylist()
Dim MaLittleCollection As New Arraylist()
 
MaLittleCollection.Add(1)
MaLittleCollection.Add(2)
MaLittleCollection.Add(3)
MaCollection.Add(MaLittleCollection)
 
MaLittleCollection.Add(4)
MaLittleCollection.Add(5)
MaLittleCollection.Add(6)
MaCollection.Add(MaLittleCollection)

[Emcy]

j'ai essyé ça : j'ai pas d'erreur à la compile mais quand je lance le programme ça bug

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
18
19
20
21
Dim MaCollectionMini3 As New Arraylist()
   			Dim MaCollection3 As New Arraylist()
 
			MaCollectionMini3.Add(1)
			MaCollectionMini3.Add(2)
			MaCollectionMini3.Add(3)
			MaCollection3.Add(MaCollectionMini3)
			MaCollectionMini3.Clear
 
			MaCollectionMini3.Add(4)
			MaCollectionMini3.Add(5)
			MaCollectionMini3.Add(6)
			MaCollection3.Add(MaCollectionMini3)
 
			Dim Element3 As object
			Dim Element3b As int16 
			For Each Element3 In MaCollection3
				For Each Element3b In Element3
   					MessageBox.Show(Element3)
   				Next Element3b
   			Next Element3

En plus je ne trouve pas cette methode térible : il doit bien y avoir un moyen de rentrer mes tableaux : est-ce un bug ou une erreur de code ?

[trotters213]

bè je vois rien qui soit mauvais et c'est sur qu'on peut le faire vu que je l'utilise (dans les 2 cas : avec les tableau et avec arraylist) en ce moment dans mon prog.
Mais pourquoi ça te gène au juste de créer 2 tableaux : C'est parce que c'est un exemple et tu peux en avoir plus :

[Emcy]

oui, je peux avoir X tableau (d'où l'interet d'utiliser une collection)

[trotters213]

dans ce cas là si tes tableau font toujours 3cases, tu peux insérer les valeurs de ton tableau directement dans ta collection :

Code :

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

1
2
3
4
5
6
MaCollection.Add(1)
MaCollection.Add(2)
MaCollection.Add(3)
MaCollection.Add(4)
MaCollection.Add(5)
MaCollection.Add(6)

et quand tu les récupères, tu le fait 3 par 3.

[Emcy]

merci trotters213, je crois que je vais être obligé d'utiliser cette solution

si quelq'un à la solution pour utiliser les tableaux, n'hésistez surtout pas ...