Partager via


GetAllSettings, fonction

Retourne une liste de paramètres clés et leurs valeurs respectives (créées à l’origine avec SaveSetting) à partir de l’entrée d’une application dans le Registre Windows ou (sur Macintosh) dans le fichier d’initialisation de l’application.

Syntaxe

GetAllSettings(appname, section)

La syntaxe de la fonction GetAllSettings comprend les arguments nommés suivants :

Élément Description
appname Obligatoire. Expression de chaîne contenant le nom de l’application ou du projet dont vous voulez extraire les valeurs de clé. Sur Macintosh, il s’agit du nom du fichier d’initialisation qui se trouve dans le dossier Préférences du dossier Système.
section Obligatoire. Expression de chaîne contenant le nom de la section dont les paramètres de clé sont demandés. La fonction GetAllSettings renvoie une valeur de type Variant contenant un tableau de chaînes à deux dimensions où sont stockées les clés de la section indiquée et leur valeur.

Remarques

La fonction GetAllSettings renvoie une valeur de type Variant non initialisée si les arguments appname ou section n’existent pas.

Exemple

Cet exemple utilise d’abord l’instruction SaveSetting pour créer des entrées dans le Registre Windows pour l’application spécifiée en tant que nom_application, puis utilise la fonction GetAllSettings pour afficher les paramètres. Notez que la fonction GetAllSettings ne permet pas de récupérer les noms d’application et de section. Enfin, l’instruction DeleteSetting supprime les entrées de l’application.

' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
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"

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.