J'ai pu remarquer qu'il y a beaucoups d'exemples de lecture et d'écriture dans la base de registre (utilisant des API ou non). Mais je veux simplement rapeller ici qu'il existe des fonctions natives VB et VBA pour le faire sans aucune déclaration préalable. Elle ne permette pas de lire toutes les entrées de la base de registre mais seulement celles que vous aurez créées pour vos programmes (ce qui est bien suffisant dans la plupart des cas).
Source / Exemple :
SaveSetting, instruction, exemple
L'exemple suivant utilise d'abord l'instruction SaveSetting pour entrer des données relatives à l'application MyApp dans la base de registres Windows (ou dans le fichier .INI sur les plates-formes Windows 16 bits). L'instruction DeleteSetting est ensuite utilisée pour supprimer ces entrées.
' Place des paramètres dans la base de registres.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Supprime de la base de registres la section avec tous ses paramètres.
DeleteSetting "MyApp", "Startup"
GetSetting, fonction, exemple
L'exemple suivant utilise d'abord l'instruction SaveSetting pour entrer des données relatives à l'application appname dans la base de registres Windows (ou dans le fichier .INI sur les plates-formes Windows 16 bits). La fonction GetSetting est ensuite utilisée pour afficher l'un des paramètres. Puisque l'argument default est spécifié, vous avez la certitude que des valeurs seront renvoyées. Notez que les noms des sections ne peuvent pas être extraits par la fonction GetSetting. Pour terminer, l'instruction DeleteSetting supprime les entrées relatives à l'application.
' Variant devant contenir un tableau à deux dimensions renvoyé par la fonction GetSettings
Dim MySettings As Variant
' Place des paramètres dans la base de registres.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
key :="Left", default := "25")
DeleteSetting "MyApp", "Startup"
GetAllSettings, fonction, exemple
L'exemple suivant utilise d'abord l'instruction SaveSetting pour entrer des données relatives à l'application appname dans la base de registres Windows (ou dans le fichier .INI sur les plates-formes Windows 16 bits) . La fonction GetAllSettings est ensuite utilisée pour afficher les paramètres. Notez que les noms des applications comme ceux des sections ne peuvent pas être extraits par la fonction GetAllSettings. Pour terminer, l'instruction DeleteSetting supprime les entrées relatives à l'application.
' Variant devant contenir un tableau à deux dimensions renvoyé par la
' fonction GetAllSettings Nombre entier correspondant à la valeur du compteur.
Dim MySettings As Variant, intSettings As Integer
' Place des paramètres dans la base de registres.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Extrait les paramètres.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"
Conclusion :
Ces exemples sont ceux de l'aide de Visual Basic, je n'ai rien inventé !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.