' Gambas class file
' antes que nada el componente gb.Settings( gestión de archivo de configuración debe estar activado)
' Proyecto, propiedades, componentes y buscas gb.Settings y activarlo
' estas variables de tipo boolean serán las que guardaremos en el archivo de configuración,
' si ellas están en true los botones se verán, si en false los botones no se verán, pues al estar
' en true los checkbox en su propiedad value estarán en true y ejecutaran su código interno.
' (/home/aqui ira tu nombre de usuario/.config/gambas3/checkbox.conf
' veras algo asi:
' [Visualizar]
' VerBoton1 = True
' VerBoton2 = True
Public VerBoton1 As Boolean
Public VerBoton2 As Boolean
Public Sub CheckboxVerBoton1_Click()
' al hacer clic en el checkbox, el checkbox analizara si su propiedad value es true o false
' sera true cuando el cuadrado tenga la v del ok y sera falso cuando este en blanco.
If CheckboxVerBoton1.Value = True Then
btn1.Visible = True
VerBoton1 = True
Else
btn1.Visible = False
VerBoton1 = False
Endif
' con estas lineas guardamos en la variable de tipo Boolean VerBoton1 si es igual a True o False
Settings["Visualizar/VerBoton1"] = VerBoton1
Settings.Save ' guarda en el archivo de configuracion ahora mismo, sino se pone esta linea
' se guardara cuando el programa se cierre
End
Public Sub CheckboxVerBoton2_Click()
If CheckboxVerBoton2.Value = True Then
btn2.Visible = True
VerBoton2 = True
Else
btn2.Visible = False
VerBoton2 = False
Endif
Settings["Visualizar/VerBoton2"] = VerBoton2
Settings.Save
End
Public Sub Form_Open()
' con estas dos lineas leemos el archivo Settings para saber
' que valores tienen las variables VerBoton1 y VerBoton2
VerBoton2 = Settings["Visualizar/VerBoton2"]
VerBoton1 = Settings["Visualizar/VerBoton1"]
If VerBoton1 = True Then
CheckboxVerBoton1.Value = True
Else
CheckboxVerBoton1.Value = False
Endif
If VerBoton2 = True Then
CheckboxVerBoton2.Value = True
Else
CheckboxVerBoton2.Value = False
Endif
End
https://www.dropbox.com/s/pwa787c6gxdgtvi/checkbox-0.0.1.tar.gz
