Nota
La funzione, il metodo, la proprietà o l'oggetto descritto in questo argomento è disabilitato se Microsoft Jet Expression Service è in esecuzione in modalità sandbox, che impedisce la valutazione delle espressioni potenzialmente pericolose. Per altre informazioni sulla modalità sandbox, cercare "modalità sandbox" nella Guida.
Restituisce un elenco di impostazioni di chiave e dei rispettivi valori, creati in origine con l'istruzione SaveSetting, da una voce del Registro di sistema di Windows relativa a un'applicazione oppure, in Macintosh, restituisce un elenco di informazioni presenti nel file di inizializzazione dell'applicazione.
Sintassi
GetAllSettings(nome app, sezione)
Gli argomenti della sintassi della funzione GetAllSettings sono i seguenti:
| Argomento | Descrizione |
|---|---|
| nomeapplicazione | Obbligatorio. Espressione stringa contenente il nome dell'applicazione o del progetto di cui vengono richieste le impostazioni chiave. In Macintosh è il nome del file di inizializzazione presente nella cartella Preferenze della cartella Sistema. |
| sezione | Obbligatorio. Espressione stringa contenente il nome della sezione di cui sono richieste le impostazioni di chiave. GetAllSettings restituisce un oggetto Variant il cui contenuto è una matrice bidimensionale di stringhe contenente tutte le impostazioni chiave nella sezione specificata e i valori corrispondenti. |
Osservazioni
GetAllSettings restituisce un oggetto Variant non inizializzato se appname o section non esistono.
Esempio
Nota
Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Questo esempio usa prima l'istruzione SaveSetting per inserire voci nel Registro di sistema di Windows per l'applicazione specificata come appname, quindi usa la funzione GetAllSettings per visualizzare le impostazioni. Si noti che i nomi delle applicazioni e delle sezioni non possono essere recuperati con GetAllSettings. L'istruzione DeleteSetting rimuove infine le voci dell'applicazione.
' 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"