Ricquet47 | Bonjour à tous,
J'ai déclaré une structure simple et une list(Of) qui en dépend :
Code :
- Public Structure PlaceLieux
- Dim Ville As String
- Dim Decalage As Integer
- End Structure
- Public listeLieux As New List(Of PlaceLieux)
- 'Jusque là, ça va :pt1cable:
- 'J'enregistre, dans le registre, ma liste avant de quitter :
- Const userRoot As String = "HKEY_CURRENT_USER\MonAppli\"
- Const subkey1 As String = "PlacesLieux"
- Const keyName1 As String = userRoot & "\" & subkey1
- Dim i%
- For i = 0 To listeLieux.Count - 1
- Registry.SetValue(keyName1, "Place" & (i.ToString).Trim, listeLieux(i).Ville)
- Registry.SetValue(keyName1, "Decal" & (i.ToString).Trim, listeLieux(i).Decalage)
- Next
- 'Il semble que, là, ça aille encore :)
- 'MAIS je ne sais pas relire. J'ai essayé plusieurs formules mais j'ai toujours un bugue :cry: . Mon code, pour l'instant :
- Const userRoot As String = "HKEY_CURRENT_USER\MonAppli\"
- Const subkey1 As String = "PlacesLieux"
- Const keyName1 As String = userRoot & "\" & subkey1
- Dim i%
- Dim valeurV As String
- Dim valeurD As Integer
- i = 0
- For Each subkey In keyName1
- cle = Registry.LocalMachine.OpenSubKey(keyName1, True)
- valeurV = cle.GetValue("Place", "" )
- valeurD = cle.GetValue("Decal", "0" )
- listeLieux(i).Ville = valeurV <---------- 'Le dégoger me dit "Cette expression est _
- listeLieux(i).Decalage = valeurD <----- 'une valeur et ne peut donc pas être la cible d'une _
- 'assignation" en soulignant la variable listeLieux
- cle.Close()
- i += 1
- Next
|
J'ai essayé d'écrire (parce que je n'y comprends pas grand chose à cette erreur) :
Code :
- listeLieux(i).Decalage = valeurD
|
Quelqu'un pourrait-il m'aider ? |