los siguiente codigos guardan y cargan el contenido de un texbox, pero mi intención es que el usuario pueda guardar y cargar la configuración del programa, es decir si dejaron algunos checkboxes checkeados, combox, etc donde se utiliza el comando "Settings" ejemplo: Settings["Opciones/Audio"]=checkbox1.value.
quiero que el usuario puede guardar y cargar su propia configuración cuando lo desea.
podrian ayudarme con esto.
gracias
codigo para guardar
codigo para abrir
[ACTUALIZADO]
Bueno encontré la solución a prueba y error (así es como se aprende) y pues creo que este post ahora se va a convertir en una guía, aquí dejo el codigo:
Básicamente lo que se necesita del Dialog.openfile es solo obtener la dirección el archivo, para luego hacer cambiar la dirección del "settings" y proceder a cargar la información. Las variables son las misma en ambos procesos porque son locales, no hay conflicto en usarlas.
Public Sub abrir_Click()
Dim directorio_abrir As String
Dim direccion_setting As Settings
Dialog.Filter = ["*.conf", "Archivo de mapeo", "*", "Todos los archivo"]
If Dialog.OpenFile() Then Return
directorio_abrir = Dialog.Path & ".conf"
direccion_setting = New Settings(directorio_abrir)
CheckBox1.Value = direccion_setting["Opciones/checkbox", CheckBox1.Value]
Catch
Message.Info(Error.Text)
End
Dim directorio_abrir As String
Dim direccion_setting As Settings
Dialog.Filter = ["*.conf", "Archivo de mapeo", "*", "Todos los archivo"]
If Dialog.OpenFile() Then Return
directorio_abrir = Dialog.Path & ".conf"
direccion_setting = New Settings(directorio_abrir)
CheckBox1.Value = direccion_setting["Opciones/checkbox", CheckBox1.Value]
Catch
Message.Info(Error.Text)
End
con el codigo del Dialog.save file, es los mismo lo que necesitamos es solo obtener el nombre del archivo y dirección donde el usuario desea guardar el archivo, pero básicamente no se esta guardando nada, ya que el archivo lo guardará el comando "settings".
Public Sub Button2_Click()
Dim directorio_guardar As String
Dim direccion_setting As Settings
Dialog.Filter = ["*.conf", "Archivo de mapeo", "*", "todos los archivos"]
If Dialog.SaveFile() Then Return
directorio_guardar = Dialog.Path & ".conf"
direccion_setting = New Settings(directorio_guardar)
direccion_setting["Opciones/checkbox"] = CheckBox1.Value
Catch
Message.Info(Error.Text)
End
Dim directorio_guardar As String
Dim direccion_setting As Settings
Dialog.Filter = ["*.conf", "Archivo de mapeo", "*", "todos los archivos"]
If Dialog.SaveFile() Then Return
directorio_guardar = Dialog.Path & ".conf"
direccion_setting = New Settings(directorio_guardar)
direccion_setting["Opciones/checkbox"] = CheckBox1.Value
Catch
Message.Info(Error.Text)
End
Albacete
