Recuperar SaveSetting en una variable

[hunter18]

Con este codigo se guarda una cadena en el registro de windows y se recupera
en un control determinado.
Que debo modificar para obtener el valor guardado en una variable y no en un control

Código:

Public Function LeerRegistro(ElControl As Control) As String
LeerRegistro = GetSetting(App.EXEName, "Settings", ElControl.Parent.Name & "_" & ElControl.Name)
End Function

Public Function GuardarRegistro(ElControl As Control)
'SaveSetting nombreAplicación, sección, clave, valor
SaveSetting App.EXEName, "Settings", ElControl.Parent.Name & "_" & ElControl.Name, ElControl
End Function

He intentado de varias formas pero solo se puede recuperar en el control donde se guardo

[David]

Sólo tienes que modificar el tercer parámetro por el nombre de valor con que quieres guardar en el registro. El cuarto parámetro de SaveSetting es el dato a guardar:

Código vb:

Leer = GetSetting(App.EXEName, "Settings", "Clave")
SaveSetting App.EXEName, "Settings", "Clave", Variable
 

[hunter18]

bien david voy a probar, gracias por los minutos

[Avellaneda]

Iniciado por hunter18

bien david voy a probar, gracias por los minutos

Efectivamente, es como te dice David. Pero tienes que cambiar el valor de los parámetros de las funciones:

Public Function LeerRegistro(Variable As String) As String
igual para 'GuardarRegistro'

Por cierto, que en un post anterior preguntabas cual es la ruta del registro donde se guarda la información. Se guarda aquí:

HKEY_CURRENT_USER\Software\VB and VBA Program Settings\NombreDeTuApp\Settings