Nota: La función, el método, el objeto o la propiedad que se describe en este tema está deshabilitada si el servicio microsoft Jet Expression 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, busque "modo de espacio aislado" en la Ayuda.
Devuelve una lista de la configuración de clave y sus valores respectivos (creados originalmente con SaveSetting)de la entrada de una aplicación en el Registro de Windows o (en Macintosh) información en el archivo de inicialización de la aplicación.
Sintaxis
GetAllSettings (nombre dela aplicación, sección)
La sintaxis de la función GetAllSettings tiene estos argumentos:
|
argumento |
Descripción |
|
nombre de la aplicación |
Obligatorio. 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 del archivo de inicialización de la carpeta Preferencias de la carpeta Sistema. |
|
sección |
Obligatorio. String expression que contiene el nombre de la sección cuya configuración de clave se solicita. GetAllSettings devuelve un valor Variant cuyo contenido es un matriz bidimensional de cadenas que contienen toda la configuración de clave de la sección especificada y sus valores correspondientes. |
Observaciones
GetAllSettings devuelve una variant no inicializada si no existe el nombre de la aplicación o la sección.
Ejemplo
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo 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 junto a Buscar y escriba uno o más términos en el cuadro de búsqueda.
En este ejemplo, primero se usa la instrucción SaveSetting para realizar entradas en el Registro de Windows para la aplicación especificada como nombrede aplicación 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 los nombres 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"
