Nota: La función, método, objeto o propiedad descrita en este tema se deshabilita si el Servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente no seguras. Para obtener más información sobre el modo de espacio aislado, busca "modo de espacio aislado" en la Ayuda.
Devuelve una lista de la configuración de clave y sus valores respectivos (creado originalmente con SaveSetting) a partir de la entrada de una aplicación en el Registro de Windows o (en Macintosh) en el archivo de inicialización de la aplicación.
Sintaxis
GetAllSettings ( nombre de aplicación , sección )
La sintaxis de la función GetAllSettings tiene estos argumentos:
|
Argumento |
Descripción |
|
Appname |
Requerido. Expresión de cadena que contiene el nombre de la aplicación o proyecto cuya configuración de clave se solicita. En Macintosh, este es el nombre de archivo del archivo de inicialización en la carpeta Preferencias de la carpeta Sistema. |
|
sección |
Requerido. Cadenae xpression que contiene el nombre de la sección cuya configuración de teclas se solicita. GetAllSettings devuelve un tipo de datos Variant cuyo contenido es un matriz bidimensional de cadenas que contiene todas las opciones de configuración clave de la sección especificada y sus valores correspondientes. |
Observaciones
GetAllSettings devuelve un variant no inicializado si no existe nombre de aplicación o sección .
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 nombre de aplicación y, a continuación, se usa la función GetAllSettings para mostrar la configuración. Tenga en cuenta que los nombres de aplicación y de sección 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"
