Remarque
La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivé si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Renvoie une liste des paramètres de clé et leurs valeurs respectives (créées à l’origine avec SaveSetting) à partir de l’entrée d’une application dans le Registre Windows ou (sur le Macintosh) des informations dans le fichier d’initialisation de l’application.
Syntaxe
GetAllSettings(appname, section)
La syntaxe de la fonction GetAllSettings contient les arguments suivants :
| Argument | Description |
|---|---|
| Nom de l’application | Obligatoire. Expression de chaîne contenant le nom de l’application ou du projet dont les paramètres de clé sont demandés. Sur le Macintosh, il s’agit du nom du fichier d’initialisation 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. GetAllSettings renvoie une variante dont le contenu est un tableau bidimensionnel de chaînes contenant tous les paramètres clés de la section spécifiée et leurs valeurs correspondantes. |
Remarques
GetAllSettings retourne une variante non initialisée si le nom d’application ou la section n’existe pas.
Exemple
Remarque
Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence développeur dans la liste déroulante en regard de Rechercher , puis entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise d’abord l’instruction SaveSetting pour effectuer des entrées dans le Registre Windows pour l’application spécifiée en tant qu’appname, puis utilise la fonction GetAllSettings pour afficher les paramètres. Notez que les noms d’application et les noms de section ne peuvent pas être récupérés avec GetAllSettings. 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"