Nota
La función, el método, el objeto o la propiedad descritos en este tema se deshabilitan si el servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente inseguras. Para obtener más información sobre el modo de espacio aislado, busque "modo de espacio aislado" en la Ayuda.
Devuelve una lista de valores de configuración clave y sus valores respectivos (creados originalmente con SaveSetting) desde la entrada de una aplicación en el Registro de Windows o (en el Macintosh) información en el archivo de inicialización de la aplicación.
Sintaxis
GetAllSettings(appname, section)
La sintaxis de la función GetAllSettings tiene los siguientes argumentos:
| Argumento | Descripción |
|---|---|
| Nombre de aplicación | Obligatorio. Expresión de cadena que contiene el nombre de la aplicación o proyecto cuya configuración de teclas se solicita. En Macintosh, este es el nombre del archivo de inicialización en la carpeta Preferencias de la carpeta Sistema. |
| sección | Obligatorio. Expresión de cadena que contiene el nombre de la sección cuya configuración de clave se solicita. GetAllSettings devuelve una variante cuyo contenido es una matriz bidimensional de cadenas que contiene todos los valores clave de la sección especificada y sus valores correspondientes. |
Observaciones
GetAllSettings devuelve una variante no inicializada si el nombre de la aplicación o la sección no existen.
Ejemplo
Nota
Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se usa primero la instrucción SaveSetting para realizar entradas en el Registro de Windows para la aplicación especificada como appname y, a continuación, se usa la función GetAllSettings para mostrar la configuración. Tenga en cuenta que los nombres de las aplicaciones y las secciones no se pueden recuperar con GetAllSettings. Por último, la instrucción DeleteSetting quita las entradas de la aplicación.
' 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"