Comment faire : New Dictionary(Of Integer(), Double)

Version imprimable

Bonjour à tous,

Je cherche à renseigner les valeurs d'un DataGridView dans un dictionnaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Public Sub ReadMapCoefficcents(ByVal dataGridView As DataGridView, ByRef dictionary As Dictionary(Of Integer(), Double))
 
        Dim i As Integer, j As Integer
 
        For i = 1 To dataGridView.ColumnCount
            For j = 1 To dataGridView.RowCount
 
                dictionary.Add((i,j), CDbl(dataGridView.Item(i, j).Value))
            Next
        Next
 
    End Sub

Le problème est ligne 8, avec "Add((i,j)" qui ne convient pas...

Bonjour,

Attention aux bornes de tes boucles, les colonnes/lignes d'un DataGridView sont indéxées en base 0.
Code:

1 2 3 4 5 For i As Int32 = 0 To dgv.ColumnCount - 1 For j As Int32 = 0 To dgv.RowCount - 1 dict.Add({i, j}, Convert.ToDouble(dgv.Item(i, j).Value)) Next Next
Cordialement !

Bonjour,

Merci, mais dans le cas présent, les valeur de ligne et colonne 1 vont dans un autre dictionnaire.

Code:

1
2
3
4
5
6
7
8
9
10
11
   Public Sub ReadMapCoefficcents(ByVal dataGridView As DataGridView, ByRef dictionary As Dictionary(Of Integer, Double))
 
        Dim i As Integer, j As Integer
 
        For i = 1 To dataGridView.ColumnCount
            For j = 1 To dataGridView.RowCount
                dictionary.Add({i, j}, CDbl(dataGridView.Item(i, j).Value))
            Next
        Next
 
    End Sub

Ceci pose le même problème

Citation:

Value of type '1-dimensional array of Integer' cannot be converted to 'Integer'.

31/10/2011, 14h43
Sehnsucht

Citation:

Envoyé par Gualino

Bonjour,
Merci, mais dans le cas présent, les valeur de ligne et colonne 1 vont dans un autre dictionnaire.

Je parlais plus du fait que les bornes maximum doivent s'arrêter à ColumCount/RowCount - 1 (sinon tu vas avoir une IndexOutOfRangeException)

Citation:

Envoyé par Gualino

Code:

Public Sub ReadMapCoefficcents(ByVal dataGridView As DataGridView, ByRef dictionary As Dictionary(Of Integer, Double))

Alors là tu as dû éditer ton premier post pendant le mien (d'ailleurs le titre de ton post va dans ce sens) j'étais resté sur un Dictionary(Of Integer(), Double) ; je ne vois d'ailleurs pas comment tu peux souhaiter stocker un couple d'entier dans un seul :koi: donc soit remettre le Integer(), voire passer à un Tuple(Of Integer, Integer) (qui représente une paire d'entiers == forcément et seulement 2) ou alors mieux expliciter le souci exact.

Cordialement !
31/10/2011, 14h49
Gualino

Citation:

Envoyé par Sehnsucht

Je parlais plus du fait que les bornes maximum doivent s'arrêter à ColumCount/RowCount - 1 (sinon tu vas avoir une IndexOutOfRangeException)

Alors là tu as dû éditer ton premier post pendant le mien (d'ailleurs le titre de ton post va dans ce sens) j'étais resté sur un Dictionary(Of Integer(), Double) ; je ne vois d'ailleurs pas comment tu peux souhaiter stocker un couple d'entier dans un seul :koi: donc soit remettre le Integer(), voire passer à un Tuple(Of Integer, Integer) (qui représente une paire d'entiers == forcément et seulement 2) ou alors mieux expliciter le souci exact.

Cordialement !

Non tu as raison, j'ai cru que cette syntaxe n'étais pas correct.
Je réédite!
Maintenant çà fonctionne.:ccool:

Merci
31/10/2011, 14h51
Sehnsucht

Pense à cliquer sur http://www.developpez.net/forums/ima...ons/resolu.gif si tout est désormais bon ;)
31/10/2011, 16h58
Gualino

Voilà que maintenant je n'arrive pas à acceder à la valeur

Je n'ai pas encore compris la logique derrière tout çà.

Code:

Dictionary.Keys(1, 1)

est incorrect...

En théorie il suffirait de faire ceci pour accéder à la valeur du dictionnaire :dict({1, 1})Sauf que le Dictionary(Of TKey, TValue) se sert du HashCode pour accéder à une clef, et malheureusement lors de la création de ce tableau temporaire, le HashCode de ce tableau ne correspond pas forcément à celui contenu dans le dictionnaire (même si ces tableaux sont "identiques").
Un exemple simple pour comprendre:
Code:

1 2 3 4 Dim a1 As Integer() = {0, 0} Dim hash1 As Integer = a1.GetHashCode() Dim a2 As Integer() = {0, 0} Dim hash2 As Integer = a2.GetHashCode()
Tu pourras vérifier que hash1 et hash2 n'ont pas la même valeur, et donc ton dictionnaire lèvera une exception pour te signifier qu'il ne trouve pas ta clef.

Ainsi donc, je te suggère (par exemple) de passer par une clef de type Tuple(Of Integer, Integer)
Code:

1 2 3 4 5 6 7 8 'remplissage For i As Int32 = 0 To dgv.ColumnCount - 1 For j As Int32 = 0 To dgv.RowCount - 1 dict.Add(Tuple.Create(i, j), Convert.ToDouble(dgv.Item(i, j).Value)) Next Next 'accès Dim value As Double = dict(Tuple.Create(1, 1))
Cordialement !

31/10/2011, 18h49
Gualino

Merci, impec!:ccool: