CREER, LIRE, SUPPRIMER, LISTER LES SECTIONS DE BASE DE REGISTRE POUR VOS PROGRAMMES VB ET VBA (TRÈS SIMPLEMENT !)

**************************************************************************
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"