Compartir a través de


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.