Discussion :

[Dedara]

Bonjour,

J'ai declare et mis en forme la jagged Array suivante qui fonctionne correctement:

Code :

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

1
2
3
4
5
6
 
Public MyJaggedArray()() As Indicateur
 
MyJaggedArray = New Indicateur(nbUT)() {} ' 1ere dimension
MyJaggedArray(0) = New Indicateur(nbTotalMin) {}
MyJaggedArray(1) = New Indicateur(CInt(nbTotalMin / 2)) {}

J'essai de creer le Dictionary(Of T) pour avoir donc 2 keys avec cette JaggedArray associee a chaque key. j'ai essaye plein de possibilites au mieux j'ai fais ceci qui ne genere pas d'erreur a la compil.

Code :

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

1
2
3
4
5
6
 
Private dictionaryJaggedArray As New Dictionary(Of Short, Indicateur)
 
For Each kvp As KeyValuePair(Of Short, Indicateur) In newBar
  dictionaryJaggedArray.Add(kvp.key, MyJaggedArray(nbUT)(1)) ' <- LIGNE A PB
Next

la ligne dictionaryJaggedArray.Add... n'indique aucune erreur de compil
qd je vais au pas a pas je retrouve bien mes keys mais il y a Nothing comme value alors que que je devrais retrouve la JaggedArray, quand je passe la souris au dessus de MyJaggedArray(nbUT)(1) je vois bien la JaggedArray ????
quelqu'un a t'il une idee? de plus je met (1) pour eviter l'erreur de compil mais idealement pour moi il faudrait faire

Code :

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

1
2
 
dictionaryJaggedArray.Add(kvp.key, MyJaggedArray(nbUT)())

merci pour vos lumieres

[Pol63]

(1) et () ne font pas du tout la meme chose, donc écrire un truc juste parce que ca passe c'est pas terrible

quel est le message d'erreur, sur quelle ligne, et avec quelle valeur des variables au moment du plantage ...
tu peux aussi débugger en rajoutant du code

Code :

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

1
2
3
4
5
6
7
For Each kvp As KeyValuePair(Of Short, Indicateur) In newBar
  dim value as indicateur
  if not typeof MyJaggedArray(nbUT) is indicateur then messagebox.show("pas normal")
  value = MyJaggedArray(nbUT)
 
  dictionaryJaggedArray.Add(kvp.key, ) ' <- LIGNE A PB
Next

[Dedara]

j'ai donc essaye le code suivant

Code :

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

1
2
3
4
 
MyJaggedArray(1)(1) = New Indicateur
If TypeOf MyJaggedArray(1)(1) Is Indicateur Then MessageBox.Show("Type OK")
If TypeOf MyJaggedArray(1)(2) Is Indicateur Then MessageBox.Show("Type OK")

MyJaggedArray(1)(1) affiche bien ok alors que MyJaggedArray(1)(2) ne l'affiche pas ce qui expliquait que j'avais Nothing a kvp.Value.
Au final et apres d'autre essais j'ai l'impression qu'on ne pas faire de dictionary(of T) d'une Array entiere mais seulement des elements de l'Array ce qui ne m'avance pas.
Je vais laisser tomber et faire + simplement une Array de JaggedArray ou rajouter une dimension a la JaggedArray.
merci,

[Dedara]

Au final c'etait juste la declaration qui etait fausse il fallait

Code :

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

1
2
 
dictionaryJaggedArray = As New Dictionary(Of Short, System.Array)

et non pas

Code :

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

1
2
 
dictionaryJaggedArray = As New Dictionary(Of Short, Indicateur)

ou Indicateur etait le contenu de la JaggedArray
Public MyJaggedArray()() As Indicateur