\' Gambas class file
\' Comprobada en la versiĆ³n de gambas gambas3.4.2
Private pordefecto As String = "Default" \'por defecto
Private ConfiguracionUsuarioTmp As New Settings
Public Sub _new()
ComboBoxUsuario.Add(pordefecto) \'por defecto
ComboBoxUsuario.Add("Juan")
ComboBoxUsuario.Add("Maria")
ComboBoxUsuario.Add("Pepe")
ComboBoxUsuario.ReadOnly = True \' lo hacemos que solo sea modo lectura
End
Public Sub Form_Open()
leerDatosConfiguracion()
End
Public Sub leerDatosConfiguracion()
ConfiguracionUsuarioTmp.Read(Me) \'lee datos del formulario: X, Y, Ancho y Largo
CheckBox1.value = ConfiguracionUsuarioTmp["formulario_Fmain/check1", CheckBox1.value]
CheckBox2.value = ConfiguracionUsuarioTmp["formulario_Fmain/check2", CheckBox2.value]
CheckBox3.value = ConfiguracionUsuarioTmp["formulario_Fmain/check3", CheckBox3.value]
CheckBox4.value = ConfiguracionUsuarioTmp["formulario_Fmain/check3", CheckBox4.value]
RadioButton1.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio1"]
RadioButton2.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio2"]
RadioButton3.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio3"]
RadioButton4.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio4"]
RadioButton5.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio5"]
RadioButton6.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio6"]
ColorButton1.value = ConfiguracionUsuarioTmp["formulario_Fmain/color1", ColorButton1.value]
SpinBox1.Value = ConfiguracionUsuarioTmp["formulario_Fmain/spin1", SpinBox1.value]
End
Public Sub form_Close()
guardarDatosConfiguracion()
End
Public Sub guardarDatosConfiguracion()
ConfiguracionUsuarioTmp.Write(Me)
ConfiguracionUsuarioTmp["formulario_Fmain/check1"] = CheckBox1.value
ConfiguracionUsuarioTmp["formulario_Fmain/check2"] = CheckBox2.value
ConfiguracionUsuarioTmp["formulario_Fmain/check3"] = CheckBox3.value
ConfiguracionUsuarioTmp["formulario_Fmain/check4"] = CheckBox4.value
ConfiguracionUsuarioTmp["formulario_Fmain/radio1"] = RadioButton1.Value
ConfiguracionUsuarioTmp["formulario_Fmain/radio2"] = RadioButton2.Value
ConfiguracionUsuarioTmp["formulario_Fmain/radio3"] = RadioButton3.Value
ConfiguracionUsuarioTmp["formulario_Fmain/radio4"] = RadioButton4.Value
ConfiguracionUsuarioTmp["formulario_Fmain/radio5"] = RadioButton5.Value
ConfiguracionUsuarioTmp["formulario_Fmain/radio6"] = RadioButton6.Value
ConfiguracionUsuarioTmp["formulario_Fmain/color1"] = ColorButton1.value
ConfiguracionUsuarioTmp["formulario_Fmain/spin1"] = SpinBox1.Value
End
Public Sub SpinBox1_Change()
ProgressBar1.value = SpinBox1.value / 100
End
Public Sub ComboBoxUsuario_Click()
Print "Cambio de usuario: " & comboboxusuario.text
If comboboxusuario.text = pordefecto Then
ConfiguracionUsuarioTmp = New Settings(User.home &/ ".config/gambas3" &/ Application.name & ".conf")
Else
ConfiguracionUsuarioTmp = New Settings(User.home &/ ".config/gambas3" &/ Application.name & comboboxusuario.text & ".conf")
Endif
Print ConfiguracionUsuarioTmp.Path
leerDatosConfiguracion()
End
Public Sub ButtonGuardarConfiguracion_Click()
guardarDatosConfiguracion()
\'fuerzo a que se guarde la configuraciĆ³n...
ConfiguracionUsuarioTmp.Save()
Print ConfiguracionUsuarioTmp.Path
End