Función GetAllSettings
Devuelve una lista de la configuración de clave y sus valores respectivos (creados originalmente con SaveSetting) a partir de la entrada de una aplicación en el Registro de Windows o (en Macintosh) de la información del archivo de inicialización de la aplicación.
Sintaxis
GetAllSettings(appname, section)
La sintaxis de la función GetAllSettings tiene estos argumentos con nombre:
| Parte | Descripción |
|---|---|
| appname | Obligatorio. Expresión de cadena que contiene el nombre de la aplicación o el proyecto cuyas opciones de configuración clave sean necesarias. En Macintosh, se trata del nombre del archivo de inicialización situado en la carpeta de preferencias dentro de la carpeta de sistema. |
| section | 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 todas las opciones de configuración clave en la sección especificada y sus valores correspondientes. |
Comentarios
GetAllSettings devuelve una variante no inicializada si appname o section no existen.
Ejemplo:
En este ejemplo se usa primero la instrucción SaveSetting para realizar entradas en el Registro de Windows para la aplicación especificada como nombreDeAplicaciones 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"
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.