Discussion :

[scarfunk]

Bonjour,
J'ai une collection (dictionnaire) que j'aimerais afficher dans un DataGridView mais je n'y arrive pas.

J'ai essayé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Key as String
 
For each Key in Dico.Mondicoi(i)
    DataGridView1.Rows(i).Cells(0).Value = Dico.Mondico(Key)
Next
 
'et ça aussi:
 
For Each Kvp as KeyValuePair(of string, string) in Dico.Mondico
   DataGridView1.Rows(i).Cells(0).Value = Dico.Mondico(i)
Next Kvp

Je suis débutant
Quelqu'un sait comment faire?

Merci de m'aider.

[sebnantes]

Je viens de retrouver ton sujet ici ^^

Peux-tu me détailler les types de chacune de tes variables ? Parce là je suis un peu largué ...

[scarfunk]

alor j'utilise un dictionnaire (collection) que j'ai créé dans un module Dico:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Module Dico 
 
    Public DicEssais As New Dictionnary(Of String, String)
 
    sub InitDicEssais()
        DicEssais.Add("ess1","Niveau")
        DicEssais.Add("ess2","Vitesse")
        ...
        DicEssais.Add("ess21","Etat")
    End sub
 
End module

Puis dans le code de ma form je veux afficher les valeurs de ma collection (pas les clés) mais je ne sais pas comment faire

[methylene]

Code :

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

DataGridView1.Rows(i).Cells(0).Value = Dico.Mondico.Item(Key)

Il suffit de rajouter item .

[scarfunk]

J'ai essayer de faire çà:

Code :

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

1
2
3
4
 
For each Key in Dico.DicEssais(i)
   DataGridView.Rows(i).Cells(0).Value = Dico.DicEssais.Item(Key)
Next

SA marche toujours pas

[sebnantes]

Tu rentres dans ta boucle au moins ? Parce que ta déclaration me semble bancale...surtout le Dico.DicEssais(i)

[methylene]

Met un point d'arrêt au niveau du "Next" et regarde ce qui se passe.

[scarfunk]

J'ai trouver la solution pour l'afficher dans un TextBox:

Code :

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

1
2
3
4
 
For Each kvp As KeyValuePair(Of String, String) In Dico.DicEssais
     TextBox1.Text = TextBox1.Text  + Environment.NewLine + Format(Now,heure) + " -->" + kvp.Value
Next kvp

mais lorsque j'essais de faire la mm chose pour DataGridView sa ne marche pas:

Code :

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

1
2
3
4
 
For Each kvp As KeyValuePair(Of String, String) In Dico.DicEssais
      DataGridView.Rows(i).Cells(0).Value = kvp.value
Next kvp

[sebnantes]

Et le i que tu utilises, il a une valeur à un moment donné ?
Ne serais-ce pas plutôt "Cells(1)" ? C'est juste une question sur l'index de départ des cellules, je ne m'en souviens plus ^^

[scarfunk]

Mon DataGrid a 2 colonnes est la première colonne a l'indice 0 donc non c'est bon...
Dans Cells(1) j'affiche d'autres données

[scarfunk]

C'EST BON !!!!!!!!!!

J'ai enfin réussi:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Dim j as integer = 0
 
For Each kvp As KeyValuePair(Of String, String) In Dico.DicEssais
      DataGridView.Rows.Add()
      DataGridView.Rows(i).Cells(0).Value = kvp.value
      j = j + 1
Next kvp

Voila tout

Merci à tous pour vos conseils sans lesquels je n'y serais jamais arrivé