Remarque : La fonction, la méthode, l’objet ou la propriété décrite dans cette rubrique est désactivée 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.
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 contient les arguments suivants :
|
Argument |
Description |
|
Appname |
Obligatoire. Expression de chaîne contenant le nom de l’application ou du projet dont les paramètres de clé sont demandés. Sur Macintosh, il s’agit du nom du fichier d’initialisation dans le dossier Préférences du dossier Système. |
|
section |
Obligatoire. Chaîne expression contenant le nom de la section dont les paramètres de clé sont demandés. GetAllSettings renvoie un variant dont le contenu est une matrice bidimensionnelle de chaînes contenant tous les paramètres clés de la section spécifiée et leurs valeurs correspondantes. |
Remarques
GetAllSettings retourne un Variant non initialisé si appname ou 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 du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
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 les noms des applications et des sections 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"
