Share via

GetSetting (función)

  • Artículo

Devuelve un valor de configuración clave desde una entrada de una aplicación en el Registro de Windows o información (en Macintosh) en el archivo de inicialización de la aplicación.

Sintaxis

GetSetting(appname, section, key, [ default ])

La sintaxis de la función GetSetting tiene estos argumentos con nombre:

Parte Descripción
appname Obligatorio. Expresión de cadena que contiene el nombre de la aplicación o proyecto cuyas configuraciones clave se solicitan. En Macintosh, es el nombre de archivo del archivo de inicialización de la carpeta Preferencias de la carpeta Sistema.
section Obligatorio. Expresión de cadena que contiene el nombre de la sección donde se encuentra la configuración clave.
key Obligatorio. Expresión de cadena que contiene el nombre de la configuración clave que hay que devolver.
default Opcional. Expresión que contiene el valor que hay que devolver si no se ha establecido valor alguno en la configuración clave. Si se omite, se presupone que predeterminado es una cadena de longitud cero ("").

Comentarios

Si alguno de los elementos denominados en los argumentos GetSetting no existe, GetSetting devuelve el valor predeterminado.

Ejemplo:

En este ejemplo, primero se usa la instrucción SaveSetting para realizar entradas en el registro de Windows (o .ini archivo en plataformas Windows de 16 bits) para la aplicación especificada como appname y, a continuación, se usa la función GetSetting para mostrar una de las opciones. Dado que se ha especificado el argumento predeterminado, se garantiza que se devuelve algún valor. Tenga en cuenta que los nombres de sección no se pueden recuperar con GetSetting. Por último, la instrucción DeleteSetting quita todas las entradas de la aplicación.

' Variant to hold 2-dimensional array returned by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50

Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
                       key := "Left", default := "25")

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.