Comment lire un tableau dans le registre

Comment lire un tableau dans le registre - VB/VBA/VBS - Programmation

Marsh Posté le 31-10-2011 à 09:37:08    

Bonjour à tous,
 
J'ai déclaré une structure simple et une list(Of) qui en dépend :
 

Code :
  1. Public Structure PlaceLieux
  2.         Dim Ville As String
  3.         Dim Decalage As Integer
  4.     End Structure
  6.     Public listeLieux As New List(Of PlaceLieux)
  8. 'Jusque là, ça va  :pt1cable:
  10. 'J'enregistre, dans le registre, ma liste avant de quitter :
  12.         Const userRoot As String = "HKEY_CURRENT_USER\MonAppli\"
  13.         Const subkey1 As String = "PlacesLieux"
  14.         Const keyName1 As String = userRoot & "\" & subkey1
  15.         Dim i%
  17.         For i = 0 To listeLieux.Count - 1
  18.             Registry.SetValue(keyName1, "Place" & (i.ToString).Trim, listeLieux(i).Ville)
  19.             Registry.SetValue(keyName1, "Decal" & (i.ToString).Trim, listeLieux(i).Decalage)
  20.         Next
  22. 'Il semble que, là, ça aille encore  :)
  24. 'MAIS je ne sais pas relire. J'ai essayé plusieurs formules mais j'ai toujours un bugue  :cry: . Mon code, pour l'instant :
  26.         Const userRoot As String = "HKEY_CURRENT_USER\MonAppli\"
  27.         Const subkey1 As String = "PlacesLieux"
  28.         Const keyName1 As String = userRoot & "\" & subkey1
  29.         Dim i%
  31.         Dim valeurV As String
  32.         Dim valeurD As Integer
  34.         i = 0
  35.         For Each subkey In keyName1
  36.             cle = Registry.LocalMachine.OpenSubKey(keyName1, True)
  37.             valeurV = cle.GetValue("Place", "" )
  38.             valeurD = cle.GetValue("Decal", "0" )
  39.             listeLieux(i).Ville = valeurV  <----------  'Le dégoger me dit "Cette expression est _
  40.             listeLieux(i).Decalage = valeurD   <----- 'une valeur et ne peut donc pas être la cible d'une _
  41.                                                                             'assignation" en soulignant la variable listeLieux
  42.             cle.Close()
  43.             i += 1
  44.         Next


 
J'ai essayé d'écrire (parce que je n'y comprends pas grand chose à cette erreur) :
 

Code :
  1. listeLieux(i).Decalage = valeurD


Quelqu'un pourrait-il m'aider ?

Reply

Marsh Posté le 31-10-2011 à 09:37:08   

Reply

Marsh Posté le 31-10-2011 à 09:40:14    

Mauvaise manip... Je suis nouveau ici...
 
Je disais : j'ai essayé d'écrire :
 
listeLieux(i).Ville = cStr(valeurD)
 
et
 
listeLieux(i).Ville = valeurD.toString
 
Mais j'obtiens la même erreur !

Reply

Marsh Posté le 31-10-2011 à 09:55:40    

Salut,pourquoi ne pas utiliser des fichiers INI ? voir par exemple http://faq.vb.free.fr/index.php?question=32 et http://vb.developpez.com/faq/?page=Systeme#ini


Message édité par kiki29 le 31-10-2011 à 09:58:14

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 31-10-2011 à 10:06:08    

Oh, parce que je tente (depuis 50 jours) de développer en Net avec VB 2010 et que le ini je le faisais avec VB 4 (d'où je viens). J'essaie de suivre l'évolution pour ne pas rester en traîne..

Reply

Marsh Posté le 31-10-2011 à 12:27:42    

re,ok mais la base de registre, à priori, sert plutot à la sauvegarde de parametres et n'est pas appropriée comme "base de données"


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 31-10-2011 à 12:40:24    

Oui, je vais certainement abandonner l'idée... Merci de ta réponse.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed