Discussion :

[Pouknouki]

Salut à tous

Ca fait quelques temps que je programme en VB.NET (quand même) mais il y a quelque chose que je n'ai jamais compris. J'ai besoin de créer des tableaux dynamiques, pour ça je fais

Dim Tableau() as String
Le truc c'est que, je l'ai dit, il est dynamique et donc je ne connais pas à l'avance le nombre de "cases". Mon but est donc d'en ajouter au fur et à mesure. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Public TableauTitres() As String
Public TableauContenu() As String
For i = 0 To NombreNotes - 1
    ReDim Preserve TableauTitres(TableauTitres.Length + 1)
    ReDim Preserve TableauContenu(TableauContenu.Length + 1)
    TableauTitres(i) = IsolatedStorageSettings.ApplicationSettings("titre" & i)
    TableauContenu(i) = IsolatedStorageSettings.ApplicationSettings("contenu" & i)
Next
'Sachant que NombreNotes > 0

Mais voilà, quand je lance l'application, on me retourne cette erreur :

Code :

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

1
2
3
Une exception de type 'System.NullReferenceException' s'est produite dans CloudyNote.DLL mais n'a pas été gérée dans le code utilisateur
 
Informations supplémentaires : Object reference not set to an instance of an object.

Il est toutefois intéressant de noter que le problème vient bien de mon tableau et pas de ce à quoi j'accède, puisque je peux très bien faire

Code :

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

MessageBox.Show(TableauTitres(i) = IsolatedStorageSettings.ApplicationSettings("titre" & i))

Dans ma boucle...
Je sais bien que ce problème peut paraître tout con mais sérieusement, là je ne comprends pas...

Merci d'avance

[wallace1]

Bonjour pouknouki,

Dynamique est un faux problème dans ton cas ! Pourquoi ne pas utiliser de collections ou de dictionnaires ?

Déclaration et instanciation d'un dictionnaire :

Code :

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

1
2
3
 
 Private _notes As Dictionary(Of String, String)
_notes = New Dictionary(Of String, String)

Ajout de données :

Code :

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

1
2
3
4
5
6
7
8
 
Dim title1 as string = "title1"
Dim content1 as string = "content1"
Dim title2 as string = "title2"
Dim content2 as string = "content2"
 
_notes.add(title1,content1)
_notes.add(title2,content2)

Récupération de données :

Code :

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

1
2
3
4
5
6
 
Dim i a integer  = 1
For Each data As KeyValuePair(Of String, String) in _notes
    i += 1
    msgbox("Titre " & i.tostring & " : " & data.Key & "---" & "Contenu " & i.tostring & " : " & data.Value)
Next

Récupérer une valeur spécifique selon la clé :

Code :

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

Dim val as string =  _notes.Item(title1)

Savoir si le dictionnaire contient une clé spécifique :

Code :

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

Dim b as boolean  = _notes.ContainsKey(title1)

A+

[Pouknouki]

Merci de ta réponse rapide.