GetSetting (función)
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.